Converter intervalo de Datas(TDate) em integer.

Question

Ol�, pessoal. Estou tentando fazer a convers�o de um resultado da diferen�a entre duas datas, que esta em uma variavel TDate para Integer.

Como fa�o isso ? N�o existe uma function DatetoInt.

Sem mais, agrade�o desde j�.

Ovidio Jr.

Adriano Santos · Answer

Variavel := Data1 - Data2;ou seja, a data na verdade j� � um integer.como est� fazendo para pegar a diferen�a?...

Ovidiojr · Answer

Mas a variavel tem que ser do tipo TDate, sen�o da erro.Ai preciso converter esse TDate para inserir em uma tabela com inteiro....

Adriano Santos · Answer

[quote:01b3928e94=�ovidiojr�]Mas a variavel tem que ser do tipo TDate, sen�o da erro.Ai preciso converter esse TDate para inserir em uma tabela com inteiro.[/quote:01b3928e94]Mostra como est� fazendo para converter.Acho que tah mais simples do que imagina....

Ovidiojr · Answer

var qtddiascorri : TDate;qtddiascorri := DBDtBaixa.Date - DBDtPagamento.Date;Ai preciso converter qtddiascorri em Integer para poder inserir em uma tabela com tipo de dado integer.SQLParcela.ParamByName(�QTD_DIAS_JUROS�).AsInteger  := qtddiascorri;Assim da erro....

Eneblis · Answer

Ol� amigo!Fiz a seguinte fun��o:[b:f8736374a7]{*****************************}{* Diferen�a entres as datas *}{*****************************}function DiferencaDias(Di, Df: TDateTime): Integer;var dif: real;begin  dif := df-di;  Result := StrToInt(FloatToStr(dif));end;[/b:f8736374a7]At� o momento ela esta funcionando bem.... :) Silbene!...

Rjun · Answer

[code:1:e74345307f]var   qtddiascorri : integer; begin  qtddiascorri := Trunc(DBDtBaixa.Date - DBDtPagamento.Date);   SQLParcela.ParamByName(�QTD_DIAS_JUROS�).AsInteger := qtddiascorri; [/code:1:e74345307f]...

F�rum Converter intervalo de Datas(TDate) em integer. #298607