Data - Adição

11/12/2003

1

Olá,


Gostaria que alguém me ajudasse a fazer esta rotina.
O programa deverá acrescentar automaticamente a um campo dbedit o valor de outro campo adicionando a operação e um número pelo outro. Simplificando:

Data_próxima = data_ultima + (periodo x periodicidade);

Periodo - Valor numérico,
Periodicidade - Pode ser DIA, SEMANA, MÊS, ANO.

Então esta rotina deve múltiplicar o periodo pela periodicidade e somar o resultado a ´data_ultima´.


Se puderem me ajudar, ou dar alguma idéia....



Abraços,



Marcos Felipe


Responder

Posts

11/12/2003

Aroldo Zanela

Colega,

A adição de dias a uma variável data é obtido pelo uso do operador aritimético +, ou seja, VarNovaData := VarTipoData + nDias. Por meio de constantes você pode estabelecer outros incrementos.
No entanto, se for usuário de versões mais recentes (a partir do delphi 6) pode fazer uso da unit DateUtils e utilizar as funções prontas lá existentes.
Para usuários de versões mais antigas, esta unit está disponível no package da RxLib.


Responder

12/12/2003

Nish

Oi,

Alguem poderia me ajudar a apenas somar um dia a uma data. Agradeço a ajuda do colega, mais gostaria de algo mais especifico, nao sou expert...
EX:

Hoje 12/12/2003 + 1 = 13/12/2003



Abraços,


Até mais


Responder

13/12/2003

Aroldo Zanela

Colega,

var dAmanha: TDateTime;
begin
  dAmanha := Date + 1;
end;



Responder