Diferencas entres Datas com TDateTime

Delphi

17/10/2005

Estou trabalhando com um componente DateTime e preciso que a data término não seja maior que 1 dia em relação a data inicio.
Ou seja, a diferença entre as data não pode ser maior que 24 horas.
Como devo fazer isso?


Leandra

Leandra

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

17/10/2005

Poderia explicar m :?: :?: :?:


GOSTEI 0
Saint

Saint

17/10/2005

se tratando de dias, voce pode utilizar valores inteiros..

por exemplo..no seu caso voce poderia fazer assim:

DataAtual:=now();
DataLimite:=now()+1;

entendeu?

entao se quiser acrescentar uma semana a uma data por exemplo, vc pode fazer VariavelData+7..

em todo caso eu criei algumas funcoes para trabalhar com acrescimo de tempo em datas, como minutos, horas e dias..
sao bem simples:

function AdicionaMinuto (const DT: TDateTime; const Mnts: Extended): TDateTime;
begin
Result := (DT + Mnts / 1440.0);
//Sintaxe AdicionaMinuto(Variavel,Qtd de minutos);
end;


function TfrmLembrete.AdicionaHora (const DT: TDateTime; const Hrs: Extended): TDateTime;
begin
Result := (DT + Hrs / 24);
//Sintaxe AdicionaMinuto(Variavel,Qtd de horas);
end;

function TfrmLembrete.AdicionaDia (const DT: TDateTime; const Ds: Extended): TDateTime;
begin
Result := DT + Ds;
//Sintaxe AdicionaMinuto(Variavel,Qtd de dias);
end;

Espero ter ajudado, até mais


GOSTEI 0
Leandra

Leandra

17/10/2005

Deu certo. Obrigada


GOSTEI 0
POSTAR