Buscar por:

Trabalhando com horas

Código

Trabalhando com horas

Estou tendo um enorme problema para lidar com horas no Delphi 3. Preciso de uma variavel que acumule qtde de horas e não a hora.. do tipo..01:00:00...02:00:00....100:00:00 h estou usando uma variavel TDateTime, convertida pra TTime, o problema desta que o delphi trata esta variavel como horas...ou seja quando chega em 24:00:00 ele zera.

Luciano

********************************************************************

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..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 voce pode armazemar por exemplo o numero de horas que uma pessoa trabalhou durante o mes...

Espero ter ajudado...

[]'s Odimar Tomazeli