Fóruns
Microsoft Excel - 2...
Formulários
Somar Meses
 
Notifications
Clear all

Somar Meses

 
Formulários
5 Posts
2 Usuários
0 Reactions
839 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,
If txtDataFIM > DateSerial(Year(txtDataINI.Value), Month(txtDataINI.Value) + 24, Day(txtDataINI.Value)) Then
MsgBox "Permitido Somente Até 24 Meses da Data inicial"
'End If

Estou usando a função acima para limitar a 24 meses o período de consulta entre txtDataINI e txtDataFIM.
Mas está limitando até períodos menores que 24 meses.

Por que e como corrigir?
Grato,
Pedro

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 6:03 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

pedrobb,

Boa Noite!

Troque por este código:

    If CDate(txtDataFIM) > DateSerial(Year(txtDataINI.Value), Month(txtDataINI.Value) + 24, Day(txtDataINI.Value)) Then
        MsgBox "Permitido Somente Até 24 Meses da Data inicial"
    End If

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/05/2014 6:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu, Wagner!
Eu tinha esquecido do cDate.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/05/2014 7:29 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Peço, por gentileza, votar positivamente, clicando na mãozinha próximo da ferramenta Citar.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 28/05/2014 7:43 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Curioso o método/maneira empregado, pois month é um valor entre 1 e 12 e somando 24 extrapola, porem aparentemente funciona.

Poderia tambem utilizar Dateadd--> CDate(txtDataFIM) >DateAdd("m", 24, CDate(txtDataINI.Value))

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/05/2014 6:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico