Dicas Delphi – Fazendo Cálculo de Horas

procedure TForm3.Button5Click(Sender: TObject);
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;

Anúncios

Uma resposta em “Dicas Delphi – Fazendo Cálculo de Horas

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s