IPB

Bem-vindo, visitante ( Entrar | Registrar )

 
Reply to this topicStart new topic
Comando While....wend....loop, Com Utilizar para acrencentar 1 mes na data
Nelson Sousa
post Jun 20 2009, 02:19 PM
Post #1


Analista
****

Grupo: Administradores
Posts: 551
Registrado: 2-July 08
De: Muriaé - MG
Membro N°: 4



Olá,
Para o caso de serem sempre 5 datas:

CODE
Dim I as Byte
Dim dtInicial as Date, dtNova as Date

dtInicial = Date() ' Pega a data do dia

For I = 1 to 5
   dtNova = DateAdd("m",I,dtInicial) 'Acrecenta o valor de I no mês
   Msgbox "Sua nova data é :" & dtNova " Mostra numa caixa de mensagem a nova data
Next I
Go to the top of the page
 
+Quote Post
jausoares
post Jun 16 2009, 11:05 PM
Post #2


Calouro
*

Grupo: Membros
Posts: 1
Registrado: 14-June 09
Membro N°: 1.939



ola;
Galera sou novo aqui e tenho um duvida sobre esse comando, queria a ajuda de voces.
com poderia acrescentar com esse comando um 1 mes na data se a condição fosse 5 datas
ex.
data inicial 01/01/09
as outras seriam 01/02/09, 01/03/09, 01/04/09, 04/05/09.
como faça esse laço funcionar.
abraços
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
2 usuário(s) está(ão) lendo este tópico (2 visitantes e 0 usuários anônimos)
0 membros:

 

Modos de Exibição: Padrão · Mudar para: Linear+ · Mudar para: Outline


Versão Simples Horário: 18th August 2019 - 08:30 AM