Buscar por:

Trabalhando com horas

Código

{Se você esta querendo fazer um acumulador de horas, deve criar dois acumulador um para a hora e um para os minutos Exemplo:}

Type 

TypeHora:Array[1..2] of interger; 

Procedure Acumula:TypeHora; 

Var 

Hora,minuto:Integer; 

Begin 

  Hora:=Hora+StrToInt(Copy(DateTimeToStr(Time()),1,2)); 

  Minuto:=Minuto+StrToInt(Copy(DataTimeToStr(Time()),4,5)); 

  If Minuto >= 60 Then 

  Begin 

  Hora:=Hora+1; 

  Minuto:=0; 

  end; 

  Acumula[1]:=Hora; 

  Acumula[2]:=Minuto; 

End; {Desta forma você pode armazenar por exemplo o número de horas que uma pessoa trabalhou durante o mês... }