Código
datasaida = datasaida
dataretorno = dataretorno
valor = valor da diaria
coloque no evento onexit
begin
try
total.text :=floattostr((strtodate(dataretorno.Text)-strtodate(datasaida.text)) * strtofloat(valor.text));
except
Application.MessageBox('Data esta invalida!',' Aviso',mb_Ok + mb_IconInformation);
DataRetorno.SetFocus;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009