CALCULO DE HORAS VIRANDO O DIA

SACOFRITO 10/03/2011 09:40:45
#367620
Bom dia pessoal do VBMania,
Seguinte estou precisando de uma funçao para calcular o numero da horas trabalhadas, mas que considere a possibilidade de ter começado as 18:00 e ir at[e as 12:00 do outro dia.

Alguem ai tem algo pronto pra isso?

Ja tenho uma funcao que calcule isso mas nao considera essa hipotese.

Peguei no Macoratti


Function CalculaHora(HrIni, HrFim) As Double
Dim dblDifHoras As Double
If IsNull(HrIni + HrFim) Then Exit Function
dblDifHoras = DateDiff([Ô]n[Ô], HrIni, HrFim)
CalculaHora = dblDifHoras / 60
End Function
SACOFRITO 10/03/2011 09:59:50
#367623
Entao colocar mais 2 textbox no meu form(em anexo) resolve o problema ou nao?
Pois preciso passar exatamente a hora para que os calculos deem certo.
TECLA 10/03/2011 10:10:18
#367625
é só informar a DATA + HORA (usando o método Now) no parâmetro de entrada da função.

Exemplo:
10/03/2011 10:09:00
SACOFRITO 10/03/2011 10:22:55
#367630
Ainda nao entendi ...
Como assim usar o método Now? Meu cliente precisa fazer isso em datas retroativas, não posso deixar isso fixo.
Coloquei mais 2 textbox mas esta dando type mismatch
SACOFRITO 10/03/2011 10:31:49
#367635
Ah me desculpem, mas consegui aqui. Apenas errei a sintaxe na hora de passar o parametro.
Fiz assim calculahora(txtdatainicial & [Ô] [Ô] & txthroainicial, txtdatafinal & [Ô] [Ô] & txthorafinal)

Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar