Calcular Datas
Olá pessoal,
Preciso fazer a seguinte rotina:
Informar em um primeiro registro uma data e após isso, clicar num botão para adicionar mais 11 registros com a última data mais 30 dias e repetir o mesmo valor. Como posso fazer isso?
Por exemplo:
01 - 10/11/2003 - R$ 250,00 (Primeira data cadastrada)
02 - 10/12/2003 - R$ 250,00
03 - 10/01/2004 - R$ 250,00
04 - 10/02/2004 - R$ 250,00
05 - 10/03/2004 - R$ 250,00
06 - 10/04/2004 - R$ 250,00
07 - 10/05/2004 - R$ 250,00
08 - 10/06/2004 - R$ 250,00
09 - 10/07/2004 - R$ 250,00
10 - 10/08/2004 - R$ 250,00
11 - 10/09/2004 - R$ 250,00
12 - 10/10/2004 - R$ 250,00 (Último registro)
Grato,
Ilano.
Preciso fazer a seguinte rotina:
Informar em um primeiro registro uma data e após isso, clicar num botão para adicionar mais 11 registros com a última data mais 30 dias e repetir o mesmo valor. Como posso fazer isso?
Por exemplo:
01 - 10/11/2003 - R$ 250,00 (Primeira data cadastrada)
02 - 10/12/2003 - R$ 250,00
03 - 10/01/2004 - R$ 250,00
04 - 10/02/2004 - R$ 250,00
05 - 10/03/2004 - R$ 250,00
06 - 10/04/2004 - R$ 250,00
07 - 10/05/2004 - R$ 250,00
08 - 10/06/2004 - R$ 250,00
09 - 10/07/2004 - R$ 250,00
10 - 10/08/2004 - R$ 250,00
11 - 10/09/2004 - R$ 250,00
12 - 10/10/2004 - R$ 250,00 (Último registro)
Grato,
Ilano.
Ilanocf
Curtidas 0
Respostas
Weber
04/11/2003
Acho que você está com o mesmo problema que eu. Alguém sabe uma maneira fácil de pegar uma data e somar mais um mes (de forma simples sem ter que ficar fazendo if).
ilanocf para somar dias em uma data é facil
04/11/2003 + 30 = 04/12/2003
04/12/2003 + 30 = 03/01/2004
03/01/2004 + 30 = 02/02/2004
cVencto := ´04/11/2003´;
cVencto := DateToStr(StrToDate(cVencto)+30);
ilanocf para somar dias em uma data é facil
04/11/2003 + 30 = 04/12/2003
04/12/2003 + 30 = 03/01/2004
03/01/2004 + 30 = 02/02/2004
cVencto := ´04/11/2003´;
cVencto := DateToStr(StrToDate(cVencto)+30);
GOSTEI 0