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

Somar Meses

 
Formulários
5 Posts
2 Usuários
0 Reactions
830 Visualizações
RSS
 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

 
Postado : 28/05/2014 6:03 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed 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
 
Postado : 28/05/2014 6:50 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu, Wagner!
Eu tinha esquecido do cDate.

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

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

 
Postado : 28/05/2014 7:43 pm
 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))

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