USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  casas decimais
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 29/03/2010 11:09 hs         
Ola!! Por favor queria uma ajuda de voces! Como eu faco para arredondar casas decimais no Vb6??
 
Eu preciso desenvolver uma logica que eh mais ou menos assim... O Usuario digita um numero, por exemplo 38.
Atraves do numero que ele digitou eu preciso saber que numero multiplicado por 0,74 daria 38.
 
51,33*0,74 = 37,9842
51,34*0,74 = 37,9916
51,35*0,74 = 37,999
51,36*0,74 = 38,0063
 
Ou seja, o valor que mais se aproximou foi 51,35 pq na hora que arredondar o 38,0063 vai ficar 38,01.
Soh que eu nao estou conseguindo fazer no VB6 arredondar... Alguem sabe me dizer como posso fazer?
 
Desde ja obrigada
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 29/03/2010 12:56 hs         
Bom galera, mechendo aqui consegui eu mesma resolver o meu problema!!
 
Entao deixo aqui o que eu fiz para caso alguem tenha a mesma duvida que eu algum dia...
 
Me.MousePointer = vbHourglass
    aux = "1000,00"
        If Text1.Text > 740 Then
            MsgBox "Valor informado maior do que 740. Por favor entre em contato com o administrador.", vbInformation, "Aviso"
        Else
            valor = Round((aux * "0,74"), 2)
   
        ValorInfText = Round(Text1.Text, 2)
        Do While ValorInfText <> valor
            aux = aux - "0,01"
            valor = Round((aux * "0,74"), 2)
        Loop
       
        resultado = Round(aux, 2)
        MsgBox resultado
        End If
Me.MousePointer = vbArrow
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página