procedure TForm1.Button1Click(Sender: TObject);
var hora1 : TDateTime;
    hora2 : TDateTime;
begin
  hora1 := StrToDateTime('10/12/2004 06:00:00 pm');
  hora2 := StrToDateTime('10/12/2004 10:03:09 pm');
  Label1.Caption := FormatDateTime('hh:mm:ss', (hora1 - hora2));
end;


v c t ajuda




--- Em [EMAIL PROTECTED], "Thiago Felipe" <[EMAIL PROTECTED]>
escreveu
> Como posso fazer para obter a diferença entre dois campos time
> 
> 14:00 => 15:35 = 01:35
> 
> 
> -------------------------------------------------------
> Esta mensagem foi verificada pelo Anti-Vírus NetUno.
> NetUno Internet - http://www.netuno.com.br
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a