5 replies to this topic

[Phyriel]

Oia eu aki d novo!!!

Bem, tenho q fazer um calculo de tempo onde tenho uma data inicial, ex 20/07/05 e uma data final, ex 10/08/05 onde meu funcionario trabalha de segunda a sexta 10hrs por dia, sendo de 8:00 às 18:00...

o funcionario começou a trabalhar no dia 20 às 13:00 e terminou seu serviço no dia 10 às 16:00...

Alguem pode me dar uma ideia como fazer p verificar o tempo trabalhado nesse periodo excluindo sabados e domingos??? Se ja houver um topico parecido c esse podem postar o link q ja vai ajudar muito

Abraço a todos

[edmais]

Session.LCID = 1046

dti = "20/07/2005": dti = Cdate(dti)

dtf = "10/08/2005": dtf = Cdate(dtf)

hri = 8: hrf = 18: hriult = 13: hrfult = 16

dt = dti

For i = Cdate(dti) To Cdate(dtf)

	UltDia = Datepart("d", DateSerial(Year(Cdate(i)),Month(Cdate(i))+1, 0))

	If WeekDay(Cdate(i)) <> 1 And WeekDay(Cdate(i)) <> 7 Then

  If Day(Cdate(dtf)) = Day(Cdate(i)) Then

 	 hrs_trab = hrs_trab + (hrfult - hriult)

  Else

 	 hrs_trab = hrs_trab + (hrf - hri)

  End if

	End if

Next

Response.Write(hrs_trab)

[Marcelo Barcellos]

Mais fácil...
Ou entendi errado...???

dt_inicial = Request("dt_inicial")
dt_final = Request("dt_final")
Intervalo = DateDiff("h",dt_inicial,dt_final)
Response.Write Intervalo

A hora deve estar inserida juntamento com a data.

[Phyriel]

Mais fácil...
Ou entendi errado...???

dt_inicial = Request("dt_inicial")
dt_final = Request("dt_final")
Intervalo = DateDiff("h",dt_inicial,dt_final)
Response.Write Intervalo

A hora deve estar inserida juntamento com a data.

Marcelo, esse calculo funciona so p contagem direta d horas...
Tem-se q considerar o periodo trabalhado por dia, n pode contar finais de semana e deve-se considerar tbem a hora q o serviço começou e a hora q terminou!!!
Mas vlw pela dica

No caso o Edmais ta mais complexo p o q eu preciso!!!

Por falar nisso Ed, to recebendo esses valores de um registro do BD onde a hora de inicio do serviço e/ou a de fim pode vir a ser horarios quebrados!!!
Sua instrução funciona perfeitamente, mas p horas inteiras... Ha alguma informação complementa no caso de termos horas quebradas???
Vlw d novo

[edmais]

Sim, claro.

Dá uma procurada por Conversão, Soma e subtração de horas.

[Phyriel]

Vlw pelas dicas Ed....

Abraço