date par defaut dans un calendar

pascal21 · 24 Décembre 2010

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 · 24 Décembre 2010

Re : date par defaut dans un calendar

Bonjour Pascal,

Voici un code qui fonctionne.

VB:

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 · 24 Décembre 2010

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

date par defaut dans un calendar

pascal21

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

date par defaut dans un calendar

pascal21

XLDnaute Barbatruc

Fred0o

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency