Função de Datas
Galera eu mandei uma pergunta sobre como calcular a qtd de dias entre duas datas. Tive uma resposta de um cara falando de uma função chamada DAYSBETWEEN, que faz isso. Eu não encontrei...
Alguém poderia me ajudar?
Alguém poderia me ajudar?
Anonymous
Curtidas 0
Respostas
Anonymous
04/03/2003
Para calucular quantos dias há entre duas datas faça o seguinte:
procedure TfmCadastro.DBEdit9Exit(Sender: TObject); // onExit da segunda data digite :
var dataini,datafin :tdate ;
dif:real;
begin
dataini :=strtodate( DBEdit8.text); // primeira data
datafin := strtodate (DBEdit9.text); // segunda data
dif := datafin - dataini;
DBEditDias.text := floattostr(dif);
end;
Obs: se quiser pode usar edit ou maskedit em lugar de dbedit
Espero ter ajudado :lol:
procedure TfmCadastro.DBEdit9Exit(Sender: TObject); // onExit da segunda data digite :
var dataini,datafin :tdate ;
dif:real;
begin
dataini :=strtodate( DBEdit8.text); // primeira data
datafin := strtodate (DBEdit9.text); // segunda data
dif := datafin - dataini;
DBEditDias.text := floattostr(dif);
end;
Obs: se quiser pode usar edit ou maskedit em lugar de dbedit
Espero ter ajudado :lol:
GOSTEI 0
Anonymous
04/03/2003
Você ajudaria bastante se informasse a versão do Delphi que está utilizando. A função DaysBetween existe na versão 6 do Delphi.
GOSTEI 0