Jump to content
Sign in to follow this  
vasco16

condição de datas

Recommended Posts

vasco16

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?

Share this post


Link to post
Share on other sites
charlie69

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

Share this post


Link to post
Share on other sites
vasco16

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..

Share this post


Link to post
Share on other sites
jpaulino

será que nao se adiciona meses assim?

Adiciona-se ... qual é o problema ?

Share this post


Link to post
Share on other sites
vasco16

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..

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.