• 0
Sign in to follow this  
Guest Nish

Acrescentar Data...

Question

Guest Nish

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

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0
Guest - Nish -

Alguém poderia só me ensinar como acrescentar 1 dia a uma data? Ex:

hoje 12/12/2003 + 1 = 13/12/2003...

té mais,

Share this post


Link to post
Share on other sites
  • 0

tente isto:

procedure TForm1.Button1Click(Sender: TObject);

var

---data: tdate;

---dia, ano, mes: word;

begin

------data := StrToDate(DBEdit1.Text);

------DecodeDate(data, ano, mes, dia);

------inc(dia);

------data := StrToDate(IntToStr(dia) + '/' + IntToStr(mes) + '/' + IntToStr(ano));

end;

este codigo vai dar erro se o dia passar de 30 ou 31 dependendo do mes...

se quiser um código comleto post denovo que eu te retorno, ou manda um e-mail...

fiz só um exemplo do que você queria...

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this