en VBA ? simplement
Dim dateref As Date, n%
dateref = Date 'DateValue("3/1/2015")
n = dateref - DateSerial(Year(dateref), 1, 0)
MsgBox n 'pour tester
dateref = DateValue("3/1/2015")
ok merci ...même si j'ai trouvé..
en VBA ? simplement?
Merci
Claudy
MsgBox "quantième: " & DatePart("y", DateRef)
MsgBox "quantième: " & DatePart("y", Now)