DIA FIXO
necessito gerar datas com o dia fixo, mas que quando se tratar, por exemplo, do dia 29 (no mês de fevereiro), ou 31, que seja assumido o dia anterior válido.
este código gera as datas como necessito mas dá probelama quando chega ao mês de fevereiro..deste ponto em diante...dá erro...
For i = 1 To 12
dia2 = dia2 + 30
mesP = Month(dia2)
anoP = Year(dia2)
diaap = CDate(Text9.Text & "/" & mesP & "/" & anoP)
Next i
este código gera as datas como necessito mas dá probelama quando chega ao mês de fevereiro..deste ponto em diante...dá erro...
For i = 1 To 12
dia2 = dia2 + 30
mesP = Month(dia2)
anoP = Year(dia2)
diaap = CDate(Text9.Text & "/" & mesP & "/" & anoP)
Next i
kra usa o dateadd e bem mais facil
e assim
diaap=dateadd("d",30,date)
ou seja vai se add nos dias, vai add 30 dias, a partir da data de hoje
no primeiro vc pode coloca tbm "m" para add no mes e "y" para add no ano
espero te ajudado falo
e assim
diaap=dateadd("d",30,date)
ou seja vai se add nos dias, vai add 30 dias, a partir da data de hoje
no primeiro vc pode coloca tbm "m" para add no mes e "y" para add no ano
espero te ajudado falo
Faz uma função
- Se o dia do mes for menor que 28 basta somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for = 29 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial
- Se o dia for = 29 e nao for ano bissexto, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for 30 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial (pode ser 2/3 tambem).
- Se o dia for = 30 e nao for ano bissexto, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for 31 (minha sugestão, faz igual dia 30)
- Se o dia for 31 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial (pode ser 2/3 tambem).
- Se o dia for = 31 e nao for ano bissexto, o dia_final sera 30, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
At,
- Se o dia do mes for menor que 28 basta somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for = 29 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial
- Se o dia for = 29 e nao for ano bissexto, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for 30 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial (pode ser 2/3 tambem).
- Se o dia for = 30 e nao for ano bissexto, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
- Se o dia for 31 (minha sugestão, faz igual dia 30)
- Se o dia for 31 e o mes JAN e o ano for bissexto entao a data será 1/3/ano_inicial (pode ser 2/3 tambem).
- Se o dia for = 31 e nao for ano bissexto, o dia_final sera 30, somar um no mes e verificar se o mes = 12 dai soma um no ano. Safo!
At,
blz...Milton e Roberto..vou fazer alguns testes com estas sugestões...
obrigado...
obrigado...
Ae..tenta isso...creio q dá certo e resolve tudo, coloquei o resultado num list só pra ver melhor..
Coloca no click de um botão pra testar
Text1 = "30/01/2007"
List1.Clear
List1.AddItem Text2
For X = 1 To 11
DataQuerida = DateAdd("m", X, Text1)
List1.AddItem DataQuerida
Next X
boa sorte e sucesso
Valeuuuu Sinkertec....na mosca
Abraçoooo.
Abraçoooo.
Precisando..estamos na área!!
Tópico encerrado , respostas não são mais permitidas