Calculo entre Datas...

Delphi

20/09/2004

Bom Dia\tarde\Noite colegas...

Estou com um problema...

Quero fazer o seguinte calcular pegar uma data qualquer e somar 30 dias...

Por Exemplo:
30/05/2004 + 30 = 30/06/2004

Nao estou conseguindo, alguem poderia me ajudar...

Agradeço a Atenção de Todos...


Marcelo_vms

Marcelo_vms

Curtidas 0

Respostas

Djjunior

Djjunior

20/09/2004

considerando-se que a sua data original esteje em label vc pode fazer o seguinte
 
var : SuaData : DateTime;
SuaData := StrToTime(label1.text) + 30;


ou se a sua intenção é acrecentar um mês faça:

SuaData := IncMonth(StrToTime(label1.text));


lembrando o windows trata uma data como um valor numérico onde a parte ´inteira´ são os dias e a ´decimal´ são as horas ex.;
01/09/2004 12:45 = 38.231,53125

blz


GOSTEI 0
Djjunior

Djjunior

20/09/2004

ops... corrgindo é strToDateTime e não strToTime ! :lol:


GOSTEI 0
POSTAR