LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 10:33 hs
Galera
Preciso fazer uma validação com data, preciso que o programa pegue o que esta no contole dtpicker e veja se a data que estiver lá for maior que 3 meses ou menor que 3 meses faça a operacao necessaria.
Estou fazendo desta forma, mas nao esta dando certo
DateAdd("m", 3, Ces_Data_Associacao.Value) > Month(Date)
como eu resolvo isso ?
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 11:01 hs
tente usar o DATEDIFF com o DateAdd, não entendi direito sua pergunta, mas veja uma lógica da coisa.
Dim Meses As Integer
Meses = DateDiff("m", Ces_Data_Associacao.Value, Date)
If Meses >= 3 or Meses <= -3 then
'faz o que vc desej
End If
|
|
|
|
LUIZ_
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 11:17 hs
Treze
Testei aqui e nao consegui, preciso que quando o usuario selecionar a data no Ces_Data_Associacao.Value verifique se esta maior que 3 meses, ou seja se a data selecionada pelo usuario for maior que 3 meses em relacao a data do sistema, faça uma operacao.
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2011 13:16 hs
If DateDiff("m", Ces_Data_Associacao.Value, Date) > 3 Then
' Realiza a operação
End If
se não funcionar verifique se Ces_Data_Associacao.Value está retornando alguma data
msgbox Ces_Data_Associacao.Value
|
|
|
|
