segunda-feira, 21 de setembro de 2009

Trabalhando com horas

{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... }

Nenhum comentário:

Postar um comentário