Faz assim:
case radiogroup1.itemindex of
0 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 7);
1 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 15);
2 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 30);
3 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 90);
4 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 180);
5 : edit1.text := FormatDateTime('dd/mm/yyyy' ,now + 365);
end;
Abraços,
Eduardo RC Neto
Desenvolvimento de Sistemas
-------------------------------------------------------
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
MSN: [EMAIL PROTECTED]
ICQ: 64-674-105
-------Mensagem original-------
De: Info Desenvolvimento
Data: 05/02/05 15:05:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Data + dias
Possuo uma tabela no paradox7 com os seguintes campos:
DTINICIO EDIT1.TEXT RECEBE A DATA DO DIA
DTFIM EDIT2.TEXT *
DTINI_VALID EDIT3.TEXT RECEBE A DATA DO DIA
DTFIM_VALID EDIT4.TEXT *
Gostaria de saber como eu faço para que esse edit2 e 3 recebam datas abaixo
relacionadas:
CRIEI UM RADIOGROUP COM AS SEGUINTES OPÇÕES:
EDIT:= Data de Hoje mais 7 dias (Semanal)
EDIT:= Data de Hoje mais 15 dias (Quinzenal)
EDIT:= Data de Hoje mais 30 dias (Mensal)
EDIT:= Data de Hoje mais 90 dias (Trimestral)
EDIT:= Data de Hoje mais 180 dias (Semestral)
EDIT:= Data de Hoje mais 365 dias (Anual)
PAULO FERNANDES
PORTO ALEGRE- RS
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
