Apuração de Horas.

[Fernando Borges]

Pessoal, alguém pode me ajudar? Como faço para somar horas e minutos? Tenho que somar as horas trabalhadas dentro do mes, sendo que todas vem com minutos pois o horario normal de trabalho é 7:33 e tenho que soma-las para ver o total de horas trabalhados no mes.

Desde já agradeço.

Fernando Borges.

[Jarbas]

Fernando, transforme as horas em minuto , exemplo

a:=7.33
min:=(a-int(a))*100 // vc tá pegando os minutos
hrs+=(int(a)*60)+min // vc transformou as horas em minutos e somou as minutos

Pra transformar o total de minutos em horas vc faz :
THrs:=int(hrs/60)
TMin:=hrs-((THrs*60)/100)
HrsMin:=Thrs+TMin

Espero ter ajudado
Jarbas

[And]

Veja este tópico: https://pctoledo.org/forum/viewto ... soma+horas


Abraço,

[cpaess]

Código: Selecionar todos

FUNC HORASO
PARA v_1,v_2 
horar='00:00'

h1=val(subs(v_1,1,2))
m1=val(subs(v_1,4,2))

h2=val(subs(v_2,1,2))
m2=val(subs(v_2,4,2))

t_h=h1+h2
t_m=m1+m2

if t_m<60
   horar=strzero(t_h,2)+':'+strzero(t_m,2)
   return(horar)
endif

if t_m==60
   t_h=t_h+1
   t_m=0
   horar=strzero(t_h,2)+':'+strzero(t_m,2)
   return(horar)
endif

if t_m>60
   t_h=t_h+1
   t_m=t_m-60
   horar=strzero(t_h,2)+':'+strzero(t_m,2)
   return(horar)
endif
RETURN(horar)
******
FUNC HORARE
para v_1,v_2

horar='0000:00'

h1=val(subs(v_1,1,4))
m1=val(subs(v_1,6,2))

h2=val(subs(v_2,1,3))
m2=val(subs(v_2,5,2))

t_h=h1+h2
t_m=m1+m2

if t_m<60
   horar=strzero(t_h,4)+':'+strzero(t_m,2)
   return(horar)
endif

if t_m==60
   t_h=t_h+1
   t_m=0
   horar=strzero(t_h,4)+':'+strzero(t_m,2)
   return(horar)
endif

if t_m>60
   t_h=t_h+1
   t_m=t_m-60
   horar=strzero(t_h,4)+':'+strzero(t_m,2)
   return(horar)
endif
RETURN(horar)