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

Delphi

16/02/2004

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] um array que me fonece a data do tipo string ´05/05/2003´
dt_hoje variavel do sistema que tem a data do dia
d_data variavel de retono do tipo tdatetime;

mas preciso inserir valores num campo tipo integer ! Como ?
Como transformar a d_data ou o resultado em inteiro ?


Midas

Midas

Curtidas 0

Respostas

Tnaires

Tnaires

16/02/2004

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


GOSTEI 0
Midas

Midas

16/02/2004

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.


GOSTEI 0
Wizard

Wizard

16/02/2004

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;


GOSTEI 0
Wizard

Wizard

16/02/2004

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 := 1;
dat := StrToDate(MaskEdit1.Text);
while dat < StrToDate(MaskEdit2.Text) do
begin
cont := Cont + 1;
dat := dat + 1;
end;
Edit1.Text := IntToStr(cont)
end;


GOSTEI 0
Fabio.hc

Fabio.hc

16/02/2004

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;



GOSTEI 0
Tnaires

Tnaires

16/02/2004

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.


GOSTEI 0
Midas

Midas

16/02/2004

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.


GOSTEI 0
Tnaires

Tnaires

16/02/2004

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


GOSTEI 0
Ltres

Ltres

16/02/2004

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.


GOSTEI 0
Tnaires

Tnaires

16/02/2004

Outro detal, é q se naum me engano ela só esta presente no delphi da versão 7 em diante.

Não não, eu a uso no Delphi 6


GOSTEI 0
POSTAR