ADICIONAR MÊS COM A...
 
Notifications
Clear all

ADICIONAR MÊS COM A FUNÇÃO DATEADD

8 Posts
3 Usuários
0 Reactions
2,894 Visualizações
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Bom dia pessoal!

Tenho uma planilha para custear projetos. Nesta planilha há momentos em que preciso adicionar um mês referente ao tempo de conclusão do projeto conforme ocorre alguma mudança.

Gostaria de saber como eu poderia utilizar a fórmula DateAdd para adicionar um mês! Já foi feito de outra maneira, porém agora me foi pedido para utilizar esta fórmula DateAdd e não estou conseguindo.

Desde já, obrigado!

 
Postado : 25/11/2014 8:13 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Porque vc não usa a DATAM?

=DATAM(A1;1)

Considerando que a tua data esteja em A1

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/11/2014 8:28 am
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Preciso resolver usando DateAdd...

Recebi um código gigante para alterar apenas isso e é necessário que seja com esta função, pelo menos por enquanto haha pois caso seja impossível terei que considerar outras opções, então obrigado @gtsalikis, caso não consiga pelo DateAdd irei tentar esta, porém vou continuar tentando aqui por enquanto.

 
Postado : 25/11/2014 8:41 am
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Está parecendo exercício de curso, se assim for seu professor precisa explicar melhor a materia ou voce prestar mais atençao (KKKKKK...)
DateAdd é disponível apenas em VBA sua sintaxe --> DateAdd ( intervalo, quantidade, data );
Então à partir de uma determinada data adiciona um numero considerando o intervalo que pode ser ano/mês/dias.... (intervalo utilizando sigla/nomes em inglês)
Para maiores informações no editor VBA digite dateadd; posicione o cursor sobre a palavra e tecle F1, irá abrir o help do VBA sobre esse termo.
ou ainda em http://www.techonthenet.com/excel/formulas/dateadd.php
Exemplo:
Data inicial: 10/11/2014
DateAdd("yyyy",3,data inicial) terá retorno 10/11/2017

Reinaldo

 
Postado : 25/11/2014 8:53 am
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Reinaldo, consegui chegar ao seguinte código:

Date1 = Format(StartMonth & "-" & StartYear, "mmm/yyyy")
Date2 = DateAdd("m", 38, Date1)
Sheet16.Range("C9").Value = Date2

Porém só funciona para janeiro, março, junho, julho e novembro! Quando seleciono algum mês diferente destes dá erro acusando Tipos incompatíveis. Não sei o que está acontecendo.

Poderia me ajudar?

 
Postado : 25/11/2014 12:04 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Para mim funcionou com todos os meses.

Apenas copiei o teu código, colei num módulo, e atribuí meses para as variáveis Startmonth e Startyear.

Deve ser outra coisa no código (a parte que vc não mandou)

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 25/11/2014 12:22 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Dependerá do que é encontrado dentro das variáveis StarMounth / Startyear, e da definição dessas variáveis Date1/StarMounth/Startyear
Adivinhar é muito difícil, mas no achômetro; se está "passando" os meses como string tipo "Jan" (em português) gerará erro em meses cuja abreviatura em inglês difere da nossa.
Tipo Fevereiro em inglês (que é obrigatório no VBA) e February --> "Feb" (não "Fev")

Reinaldo

 
Postado : 25/11/2014 1:55 pm
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Muito Obrigado! Era exatamente isto haha.

 
Postado : 28/11/2014 9:16 am