date par defaut dans un calendar

[pascal21]

bonjour à tous
j'ai un calendar dans un USF avec dans usf initialize le code suivant
calendar1.value = now pour avoir la date du jour par defaut
mais que faudrait-il mettre pour avoir la dernière jour du trimestre précédent
par exemple pour aujourd'hui ,avoir la date du 30/09/2010 de surligné
merci

 

[Fred0o]

Re : date par defaut dans un calendar

Bonjour Pascal,

Voici un code qui fonctionne.

Sub trii()
    Dim dd
    dd = DateSerial(Year(Date), (Int(Month(Date) / 3) - 1) * 3 + 1, 1) - 1
    MsgBox dd
End Sub

Bonnes fêtes

 

[pascal21]

Re : date par defaut dans un calendar

bonsoir
nickel ça fonctionne au poil

Calendar1.Value = DateSerial(Year(Date), (Int(Month(Date) / 3) - 1) * 3 + 1, 1) - 1