[RESOLU] Mise à jour de l'année de la date dans une variable

[little]

Tout d'abord bonjour à tous,

Je sais pas si mon intitulé est correct mais je vais vous exposer mon problème.

J'ai crée une variable DateAUJ qui prend pour valeur la date du jour.
Ensuite j'ai crée 4 variable T1, T2, T3, T4 qui corresponde au 4 trimestre de l'année et qui ont pour valeur la date du premier jour de chaque trimestre. Pour le moment les valeurs de ces variable sont défini manuellement.
T1 = 01/01/2012
T2 = 01/04/2012
T3 = 01/07/2012
T4 = 01/10/2012

Je voudrais savoir si il est possible de mettre l'année de ces variable à jour automatiquement, que lorsque l'on passe en 2013 T1 devienne 01/01/2013

Je vous remercie par avance

Little

 

[PascalXLD]

Re : Mise à jour de l'année de la date dans une variable

Bonjour

Tu peux essayer

T1 = DateSerial(Year(Date), 1, 1)
T2 = DateSerial(Year(Date), 4, 1)
T3 = DateSerial(Year(Date), 7, 1)
T4 = DateSerial(Year(Date), 10, 1)

 

[JCGL]

Re : Mise à jour de l'année de la date dans une variable

Bonjour à tous,
Salut Pascal,

Peux-tu essayer :

T1 = DateSerial(Year(Date), 1, 1)
T2 = DateSerial(Year(Date), 4, 1)
T3 = DateSerial(Year(Date), 7, 1)
T4 = DateSerial(Year(Date), 10, 1)

A + à tous

Edition : Pour info : Quand j'ai déposé nous n'avions pas la même proposition Pascal et moi

 

[little]

Re : Mise à jour de l'année de la date dans une variable

Un grand merci à vous deux cela fonctionne parfaitement

 

[PascalXLD]

Re : Mise à jour de l'année de la date dans une variable

Edition : Pour info : Quand j'ai déposé nous n'avions pas la même proposition Pascal et moi

Re

Oui en postant je me suis aperçu de mon code complexe et je me suis rappelé le DateSerial
J'ai du éditer pendant que tu écrivais ton post vu que j'ai édité juste avant que tu ne postes.
Bonne soirée

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Bonsoir little, Pascal, Jean-Claude

On peut aussi écrire :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/1/" & Year(Date)
T2 = "1/4/" & Year(Date)
T3 = "1/7/" & Year(Date)
T4 = "1/10/" & Year(Date)

Avec les variables déclarées As Date, VBA convertit les textes en dates.

A+

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Re,

On peut même ne pas écrire le jour, VBA prend le 1er du mois :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/" & Year(Date)
T2 = "4/" & Year(Date)
T3 = "7/" & Year(Date)
T4 = "10/" & Year(Date)

A+

 

[job75]

Re : [RESOLU] Mise à jour de l'année de la date dans une variable

Bonjour le fil, le forum,

J'oubliais tout simplement :

Dim T1 As Date, T2 As Date, T3 As Date, T4 As Date
T1 = "1/1"
T2 = "1/4"
T3 = "1/7"
T4 = "1/10"

Et si l'on ne veut pas déclarer les variables :

T1 = CDate("1/1")
T2 = CDate("1/4")
T3 = CDate("1/7")
T4 = CDate("1/10")

A+