Tempo - acumular horas e minutos

Top  Previous  Next

Se vc esta querendo fazer um acumulador de horas, nao ira conseguir deste jeito, vc pode criar dois acumulador um para a hora e um para os minutos

Exemplo:

 

Type

   TypeHora:Array[1..2of 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 voce pode armazemar por exemplo o numero de horas que uma pessoa trabalhou durante o mes...