Faça este teste:
crie 3 edits
no primeio, vc coloca a data atual.
No segundo vc coloca a quantidade de dias para somar, caso queira diminuir, add
o sinal negativo
o terceiro receberá o resultado.
Edit3.Text := dateToStr(IncDay(strToDate(Edit1.Text),
strToInt(Edit2.Text)));
sds
Bender Desenvolvimento de Sistemas
e Serviços Contábeis (Régis)
(51) 98470699
Novo Hamburgo/RS
MSN: [EMAIL PROTECTED]
www.regisbender.com.br
----- Original Message -----
From: Rodrigo Magno
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 21, 2007 3:39 PM
Subject: [delphi-br] Calcular Data
Amigos,
Alguem tem alguma função em que calcula uma data por exemplo a data de hoje,
trinta dias pra traz, fazendo validação nos meses em que tenha 30 dias e o mes
de fevereiro que tem q ver se e ano bixsexto ou não.
Atenciosamente,
Rodrigo Cristiano Magno
( (31) 3477-0324 (Casa )
( (31) 9189-5014 (Celular)
* [EMAIL PROTECTED]
msn [EMAIL PROTECTED]
__________________________________________________________
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
E-mail classificado pelo Identificador de Spam Inteligente.
Para alterar a categoria classificada, visite o Terra Mail
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.472 / Virus Database: 269.9.1/857 - Release Date: 20/6/2007 14:18
[As partes desta mensagem que não continham texto foram removidas]
