Fórum Função que retorna a hora acumulada #242130
08/07/2004
0
Caro colegas;
Precisso de uma função que me retorne uma determinada hora acumulada.
Ex: se eu pegar a hora 10:00hs do dia 07/07/04 e subtrair
pela hora 10:00hs do dia 09/07/04 então eu terei [b:8500919f5b]48:00hs[/b:8500919f5b], é assim que eu precisso, já tentei desenvolver mas não consegui, se alguem tiver alguma função que me retorne a hora acumulada e poder me enviar eu agradeço.
________________
[] SPL (THE)....
Precisso de uma função que me retorne uma determinada hora acumulada.
Ex: se eu pegar a hora 10:00hs do dia 07/07/04 e subtrair
pela hora 10:00hs do dia 09/07/04 então eu terei [b:8500919f5b]48:00hs[/b:8500919f5b], é assim que eu precisso, já tentei desenvolver mas não consegui, se alguem tiver alguma função que me retorne a hora acumulada e poder me enviar eu agradeço.
________________
[] SPL (THE)....
P_lima
Curtir tópico
+ 0
Responder
Posts
08/07/2004
Rômulo Barros
Function RetornaHora(AHora1,AHora2 : TDateTime) : String;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.RetornaHora(AHora1, AHora2: TDateTime): String;
begin
Result := FormatDateTime(´hh:mm:ss´,AHora1 - AHora2);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
A,B:TDateTime;
begin
A := StrToDateTime(´07/07/2004 10:00:00´) ;
B := StrToDateTime(´09/07/2004 10:00:00´) ;
ShowMessage(RetornaHora(B,A));
end;
end.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)