Fórum Diferença entre datas!!! #142282
01/03/2003
0
Como fazer quantos dias tem entre uma data e outra!!!
Anonymous
Curtir tópico
+ 0
Responder
Posts
01/03/2003
Anonymous
Use está função:
function TFContForn.DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var
Data: TDateTime;
dia, mes, ano: Word;
begin
Data := DataAtual - DataVenc;
DecodeDate(Data, ano, mes, dia);
Result := FloatToStr(Data);
end;
se vc quizer colocar num edit:
Edit1.text := DifDias(strtodate(Maskedit1.text), Date);
O maskedit é a data de vencimento e ´date´ é a data do sistema, no caso Hoje.
Um bom Carnaval
function TFContForn.DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var
Data: TDateTime;
dia, mes, ano: Word;
begin
Data := DataAtual - DataVenc;
DecodeDate(Data, ano, mes, dia);
Result := FloatToStr(Data);
end;
se vc quizer colocar num edit:
Edit1.text := DifDias(strtodate(Maskedit1.text), Date);
O maskedit é a data de vencimento e ´date´ é a data do sistema, no caso Hoje.
Um bom Carnaval
Responder
Gostei + 0
01/03/2003
Anonymous
No Delphi existe uma função chamada DaysBetween, onde você informa a data inicial e a data final e é retornado o número de dias entre essas datas.
Responder
Gostei + 0
01/03/2003
Carnette
UNIT com todas as funções de calculos de data e hora com código aberto...é só acrescentar ao teus projetos....
http://www.carnette.kit.net/D5/esbdates.zip
http://www.carnette.kit.net/D5/esbdates.zip
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)