quarta-feira, 2 de setembro de 2009

Fazendo cálculo de horas

Var
hora1: TDateTime;
hora2: TDateTime;
total: TDateTime;
begin
hora1 := StrToTime(Edit1.Text);
hora2 := StrToTime(Edit2.Text);
total := Hora2 - Hora1;
Label1.Caption := FormatDateTime('hh:nn:ss',total);
end;

Nenhum comentário:

Postar um comentário