I
isa88000
Guest
bonjour à tout le monde,
je cherche à comprendre ces quelques lignes de programme.
Pouvez vous m'aider svp?
Dim D1, D2 As Date
D1 = CDate('1/' & ComboBox2.Value & '/' & ComboBox1.Value)
D2 = DateAdd('m', 1, D1) - 1
az = WeekDay(D1, 2)
For i = 0 To 36
U_chx_dte(i).Visible = False
U_chx_dte(i) = False
U_chx_dte(i).Tag = ''
Next i
For jcal = D1 To D2
U_chx_dte(az + Day(jcal) - 2).Visible = True
U_chx_dte(az + Day(jcal) - 2).Caption = Format(jcal, 'd')
U_chx_dte(az + Day(jcal) - 2).Tag = jcal
Next jcal
merci d'avance
A bientôt
je cherche à comprendre ces quelques lignes de programme.
Pouvez vous m'aider svp?
Dim D1, D2 As Date
D1 = CDate('1/' & ComboBox2.Value & '/' & ComboBox1.Value)
D2 = DateAdd('m', 1, D1) - 1
az = WeekDay(D1, 2)
For i = 0 To 36
U_chx_dte(i).Visible = False
U_chx_dte(i) = False
U_chx_dte(i).Tag = ''
Next i
For jcal = D1 To D2
U_chx_dte(az + Day(jcal) - 2).Visible = True
U_chx_dte(az + Day(jcal) - 2).Caption = Format(jcal, 'd')
U_chx_dte(az + Day(jcal) - 2).Tag = jcal
Next jcal
merci d'avance
A bientôt