Converter intervalo de Datas(TDate) em integer.
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.
Como faço isso ? Não existe uma function DatetoInt.
Sem mais, agradeço desde já.
Ovidio Jr.
Ovidiojr
Curtidas 0
Respostas
Adriano Santos
06/10/2005
Variavel := Data1 - Data2;
ou seja, a data na verdade já é um integer.
como está fazendo para pegar a diferença?
ou seja, a data na verdade já é um integer.
como está fazendo para pegar a diferença?
GOSTEI 0
Ovidiojr
06/10/2005
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.
Ai preciso converter esse TDate para inserir em uma tabela com inteiro.
GOSTEI 0
Adriano Santos
06/10/2005
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.
Mostra como está fazendo para converter.
Acho que tah mais simples do que imagina.
GOSTEI 0
Ovidiojr
06/10/2005
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.
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.
GOSTEI 0
Eneblis
06/10/2005
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!
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!
GOSTEI 0
Rjun
06/10/2005
var qtddiascorri : integer; begin qtddiascorri := Trunc(DBDtBaixa.Date - DBDtPagamento.Date); SQLParcela.ParamByName(´QTD_DIAS_JUROS´).AsInteger := qtddiascorri;
GOSTEI 0