Como subtrair datas?

Question

Ol� pessoal!Eu queria subtrair uma data de outra e queria que a diferen�a de dias fosse dada em n�meros inteiros.Algu�m pode me ajudar?Obrigado....

Marco Salles · Answer

O Tipo TDate � Um Numero INTEIRO.... O Que Significa isto Significa que se voce tiver definido uma vari�vel do tipo TDate e ela �Valer� Zero, corresponde a Data 30/12/1899....
Experimente Fazer:C�digo:

procedure TForm1.Button1Click(Sender: TObject); 
var 
data0,data1,data2:TTime; 
begin 
data0:=0; 
showmessage(DateToStr(Data0)); //data 30/12/1899 Padr�o 
data1:=1; 
showmessage(DateToStr(Data1));//data 31/12/1899 
data2:=2; 
showmessage(DateToStr(Data2));//data 01/01/1900 
end;

Isto Vem ate os dias de hoje.....E Qual a Vantagem Disto A Vantagem � Simples...� Mais F�cil Somar Ou Diminuir Inteiros do que Datas
Experimente Isto:
C�digo:

procedure TForm1.Button1Click(Sender: TObject); 
var 
data:TTime; 
begin 
data:=0; 
showmessage(DateToStr(Data));//data 30/12/1899 
data:=data-1; 
showmessage(DateToStr(Data));//data 29/12/1899 
data:=data+2; 
showmessage(DateToStr(Data));//data 31/12/1899 
end;

Conclus�o:Para Subtrair datas �nt�o fica f�cil
C�digo:

procedure TForm1.Button1Click(Sender: TObject); 
var 
datainicial,datafinal:Tdate; 
Dias:Inteiro;
begin 
datainicial:=StrToDate(Edit1.text); 
dataFinal:=StrToDate(Edit2.text); 
dias:=DataFinal-DataInicial;
end;

P:S Para Testar so copie e cole e F9

Obs: O Tipo TDateTime � Um Numero de ponto Flutuante...Se voce Precissar Trabalhar so com Datas Define uma Vari�vel doTipo TDate , Se Alem Disto Voce Precissar Trabalhar Simultaneamente com Horas , defina sua vari�vel do tipo TDateTime

R�mulo Barros · Answer

Tenta fazer isto no ORACLE . vai dar pau....  :lol:...

Marco Salles · Answer

[quote:33594937f7]Tenta fazer isto no ORACLE . vai dar pau.... [/quote:33594937f7]O [b:33594937f7]Tipo de Vari�vel [/b:33594937f7]que me referiro � o tipo definido pelo delphi...Eu gostaria de entender sua coloca��o com mais detalhe :?: :?:  ...N�o precisa ser no ORACLE N�o, Pode ser em Qualquer Banco....[b:33594937f7]Eu estou apenas Operando em cima de vari�veis e n�o em cima de tipos defindidos por Um ou outro banco em Particula[/b:33594937f7]r...Se voce pudesse ser mais claro eu ficaria muito grato. Porque poderia  estar revendo o meu conceito...Quanto a Subtrair Datas, n�s todos sabemos, que existe uma fun��o na Unit DateUtils e bla,bla,bla...So Que eu entendo, que a coloca��o do tipo TDate Como inteiro � um dado que deve ser levantado e muitos deixam isto por despercebido......

Ltres · Answer

Cara naum entendi sua ultima coloca��o.... Mas na propria unit SysUtils do delphi 7 tem uma funcao chamanda DaysBetween.. veja

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  x := DaysBetween(Now, StrToDateTime(�1/1/2000�));
  ShowMessage(IntToStr(x));
end;

Tusuariocomponent · Answer

Obrigad�o galera.Consegu� resolver o meu problema.Valeu mesmo....

Marco Salles · Answer

Marco Salles:[quote:64801eebb0]Quanto a Subtrair Datas, [b:64801eebb0][size=18:64801eebb0]n�s todos sabemos, que existe uma fun��o na Unit DateUtils[/size:64801eebb0][/b:64801eebb0] e bla,bla,bla...[/quote:64801eebb0]LTres;[quote:64801eebb0]Cara naum entendi sua ultima coloca��o.... Mas na propria unit SysUtils do delphi 7 tem uma funcao chamanda DaysBetween.. veja C�digo: procedure TForm1.Button1Click(Sender: TObject); var   x: integer; begin   x := DaysBetween(Now, StrToDateTime(�1/1/2000�));   ShowMessage(IntToStr(x)); end;  [/quote:64801eebb0][b:64801eebb0]Esta me referindo exatamente a esta fun��o, e conclui:[/b:64801eebb0][quote:64801eebb0]So Que eu entendo, que a coloca��o do tipo TDate Como inteiro � um dado que deve ser levantado e muitos deixam isto por despercebido...[/quote:64801eebb0]...

F�rum Como subtrair datas? #225868