Affichage des deux derniers chiffre de l'année

[Nicko]

bonsoir à tous,
J'utilise une varible à laquelle est associé la date du jour

An = Date.

Je voudrais que la valeur de An corresponde au deux derniers chiffre de l'année en cours (ex: An = 05)

idem pour la variable Mois = date !

d'avance merci

 

[Rai]

Bonsoir,

Quelquechose du genre
an = Right(Year(Date), 2)
Mois = Right("0" & Month(Date), 2)

devrait te convenir.

Bonne soirée

Rai

 

[FabriceLeManuzien]

Bonsoir à tous,

Une solution :


Sub an_et_mois()

Dim an As String, mois As String

an = Format(Year(Date), "yy")
mois = Format(Month(Date), "mm")

End Sub


Fabrice