• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vasco16

condição de datas

7 mensagens neste tópico

Boas pessoal verificar 2 datas segundo este criterio:

If (((Month(Date)) >= (DateAdd("m",3, Form_perdidos.data.Value)))) Then

ou seja quero que o sistema va buscar o mes do ano e se for maior ou = ao mes da data introduzida no meu registo + 3 meses ele faz uma coisa senao faz outra mas o que acontece é que ele nao está a fazer o que quero, ou seja, faz sempre o ELSE.. será que nao se adiciona meses assim?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas

tenta utilizar:

edate(data, nº de meses) 'mas tens que adicionar uma referência no vba tools>references>atpvbaen.xls

unico problema que se a data for 30 nov, ao ir para os 3 meses seguintes, vai para 28 de fev, e posteriormente para 28 maio e não 30 maio

ou

supõe que o mês tem sempre 30 dias e faz data + 90

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas

tenta utilizar:

edate(data, nº de meses) 'mas tens que adicionar uma referência no vba tools>references>atpvbaen.xls

unico problema que se a data for 30 nov, ao ir para os 3 meses seguintes, vai para 28 de fev, e posteriormente para 28 maio e não 30 maio

ou

supõe que o mês tem sempre 30 dias e faz data + 90

estou a usar o access 2000 e nao encontro essa referencia..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

será que nao se adiciona meses assim?

Adiciona-se ... qual é o problema ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Adiciona-se ... qual é o problema ?

deve estar a avaliar mal entao :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois tenho este código:

If (Year(Form_perdidos.data.Value) = Year(Date)) Then

    If (((Month(Date)) >= (DateAdd("m", -3, Form_perdidos.data.Value)))) Then

    Form_perdidos.Abt_mat.Value = "Não"

    Form_perdidos.Abt_mat.Enabled = False

    Else

    Form_perdidos.Abt_mat.Value = "Sim"

    Form_perdidos.Abt_mat.Enabled = False

    Form_perdidos.ncartao.Enabled = False

    Form_perdidos.cliente.Enabled = False

    Form_perdidos.contacto.Enabled = False

    End If

Else

    Form_perdidos.Abt_mat.Value = "Sim"

    Form_perdidos.Abt_mat.Enabled = False

    Form_perdidos.ncartao.Enabled = False

    Form_perdidos.cliente.Enabled = False

    Form_perdidos.contacto.Enabled = False

End If

e o que acontece é que ele mesmo estando no dia 28-06-2009 vai para o ultimo else..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora