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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Pegar as decimais
Emanuel
não registrado
Postada em 06/11/2004 10:07 hs   
Pessoal, Bom dia!
como pegar as decimais de um numero? tipo:
 
tenho um calculo onde o resultado é 8,56
o 8 eu pego atraves da função FIX
dai, como pegar o ,56 para eu fazer os calculos em seguida com estas decimais, ou seja, quero multiplicar as decimais por 60 e encontrar a quantiade de minutos
 
 
alguem algum exemplo com calculos de horas?
 
obrigado,
sds
 
     
X-Crow Original
 Pontos: 2843
VITÓRIA
ES - BRASIL
Postada em 06/11/2004 10:25 hs         
Bem Regra para converter os quebrados para decimais obedece a seguinte regra de 3:
60 - 100
Segs - ValDecimal
Ou seja: Segs = (60* ValDecimal) / 100
 
Já os Números quebrados é + fácil basta usar:
ValDecimal=CByte(Right(Cstr(Format(Valor,"0.00")),2))
 
E para Fechar a conta use DateDiff para calcular Horas:
MsgBox DateDiff("h", #00:00#, #12:00#) ' h=hora,m=minutos,s=segundos
 
Espero ter ajudado...Abraços, Sidnei
     
Jose.Niz
CURITIBA
PR - BRASIL
Postada em 06/11/2004 14:01 hs         
Se você já conhece a função para obter a parte inteira (FIX ou INT), basta um pouco ed matemática básica para obter a parte fracionária !
 
Dim Valor As Single, Inteiro As Integer, Fracao As Single
Valor = 8.56
Inteiro = Fix(Valor)
Fracao = Valor - Fix(Valor)
Fracao = Round(Fracao, 2)
 
     
Emanuel
não registrado
Postada em 06/11/2004 20:55 hs   
Valeu Pessoal, obrigado mesmo pela ajuda!!!
um abraço a todos!
 
Mano
 
     
Página(s): 1/1    

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