COMO ADICIONAR MES

FOGUINHO 10/04/2007 03:31:58
#210908
[S51] Preciso de ajuda Não consigo a fazer: ex "10/04/2007" e acrecentar Mais "2" meses resultado seria "10/6/2007"

Já Agradeço pela Ajuda
Obrigado
USUARIO.EXCLUIDOS 10/04/2007 08:10:10
#210916 Resposta escolhida

Bom..n to lembrando se tem uma maneira mais simples...mas pelo menos resolve

DataOriginal = "10/04/2007"
MesOriginal = Format(DataOriginal, "mm")
MesOriginal = Format(MesOriginal + 2, "00")
DataSomada = Left(DataOriginal, 3) & MesOriginal & Right(DataOriginal, 5)

Sei lá..algo assim...resolve..cuidado qdo a data for 30 e 31..pode dar problema, pra isso, faça uma validação de data, para qualquer contratempo. Essa validação vc acha no VBMANIA

Bos sorte
USUARIO.EXCLUIDOS 10/04/2007 08:21:03
#210919
FOGUINHO, faça o seguinte:

msgbox dateadd("m",2,"10/04/2007")
USUARIO.EXCLUIDOS 10/04/2007 09:21:29
#210940


Vivendo e aprendendo!! Valew Frau
FOGUINHO 10/04/2007 13:38:08
#211017
Valeu pela Ajuda!!! E ate mais Ver
Tópico encerrado , respostas não são mais permitidas
Voltar