Como pegar o numero de dias entre uma data e outra ?

Question

Tenho uma procedure que tem o campo integer que � a quantidade de dias em atrazo de um contrato. Como pegar esta quantidade de dias entre as duas datas ?d_data : = dt_hoje - strtodate(fin[6]);fin[6] u...

Tnaires · Answer

Vc est� tendo dificuldades para saber a diferen�a de dias entre duas datas?SEUS PROBLEMAS ACABARAM!Use a fun��o DaysBetween Tabajara!Sintaxe: DaysBetween(data_1, data_2).Abra�os...

Midas · Answer

Continuo com problemas...uso o delphi 6 / firebird Alguem sabe como pegar dias de atrazo de um contrato ?Sendo que o resultado preciso um numero inteiro....

Wizard · Answer

Ol�, esta procedure pode e n�o e a melhor op��o mais resolve.

Sds.
Wizard

procedure TForm1.BitBtn1Click(Sender: TObject);
var
cont : integer;
dat : Tdate;
begin
cont := 0;
dat := StrToDate(MaskEdit1.Text);
while dat < StrToDate(MaskEdit2.Text) do
begin
cont := Cont + 1;
dat := dat + 1;
end;
Edit1.Text := IntToStr(cont)
end;

Wizard · Answer

Ol�, esta procedure pode e n�o e a melhor op��o mais resolve.

Sds.
Wizard

procedure TForm1.BitBtn1Click(Sender: TObject);
var
cont : integer;
dat : Tdate;
begin
cont := 0;
dat := StrToDate(MaskEdit1.Text);
while dat < StrToDate(MaskEdit2.Text) do
begin
cont := Cont + 1;
dat := dat + 1;
end;
Edit1.Text := IntToStr(cont)
end;

Fabio.hc · Answer

Quando vc subtrai um data de outra o retorno � o n�mero de dias com vari�vel do tipo Extended;

Ex:

procedure TForm1.Button2Click(Sender: TObject);
var d_data:Extended;
   dt_hoje:tdate;
begin
   dt_hoje:=Date;
   d_data := dt_hoje - strtodate(�05/05/2003�);
   ShowMessage(FloatToStr(d_data));
end;

Tnaires · Answer

Bom realmente n�o entendo pq a fun��o DaysBetween n�o fucionou... Sempre armazenei diferen�a de dias em bancos usando ela.
Consulte o help do Delphi. Digite DaysBetween, selcione o texto e pressione F1.

Midas · Answer

realmente tnaires existe a fun��o, devo ter digitado errado, e n�o consegui no dia achar, mas agora esta tudo ok ... valeu pela ajuda pessoal a fun��o tabajara daysbetween() funcionou ... hehehe
brincadeirinha...
Valeu pela ajuda de todos.

Tnaires · Answer

Beleza!Este foi mais um produto das...Organiza��es TABAJARA!  :twisted: Sucesso...

Ltres · Answer

Para esclarecimentos a funcao DaysBetween esta na unit DateUtils, restando assim declarar ela na Uses da unit. Outro detal, � q se naum me engano ela s� esta presente no delphi da vers�o 7 em diante.

Tnaires · Answer

[quote:6278a675a6=�LTres�]Outro detal, � q se naum me engano ela s� esta presente no delphi da vers�o 7 em diante.[/quote:6278a675a6]N�o n�o, eu a uso no Delphi 6...

F�rum Como pegar o numero de dias entre uma data e outra ? #214593