Função de Datas
04/03/2003
0
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
Curtir tópico
+ 0
Responder
Posts
04/03/2003
Anonymous
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:
Responder
04/03/2003
Anonymous
Você ajudaria bastante se informasse a versão do Delphi que está utilizando. A função DaysBetween existe na versão 6 do Delphi.
Responder
Clique aqui para fazer login e interagir na Comunidade :)