Visual Basic 6 - Precisando calcular datas e horas ?


 Você esta precisando calcular datas e horas no Visual Basic 6 e não sabe por onde começar ?

Hoje vamos recordar como trabalhar com datas e horas...

Abaixo temos alguns exemplos de como calcular datas e horas que foram extraídos do artigo - Trabalhando com datas no Visual Basic.

1-) Calculo da quantidade de horas em um determinado período:

a-) Hora inicial :  9:00 horas    Hora Final :  17:00 horas

horas_trabalhadas= format((#17:00# - #09:00#) * 24, "#0.0")
? horas_trabalhadas & " horas "

Resultado =>  8,0 horas 

b-) Hora inicial : 19:00 horas      Hora Final :  7:30 horas do outro dia

horas_trabalhadas= format((1+ #7:30# - #19:00#) * 24, "#0.0")
? horas_trabalhadas & " horas "

Resultado =>  12,5 horas 

c-) Hora inicial : 15:00 horas      Hora Final :  20:30 horas do outro dia (mais de 24 horas)

horas_trabalhadas= format((#15:00# + #20:30#) * 24, "#0.0")
? horas_trabalhadas & " horas "

Resultado =>  35,5 horas 

d-) Hora inicial : 7:00 horas      Hora Final :  21:00 horas do outro dia (mais de 24 horas)

horas_trabalhadas= format((#07:00# + #21:00#), "#0.0")
? horas_trabalhadas & " dias "

Resultado =>  1,2 dias 

Só para relembrar...

Referências:


José Carlos Macoratti