1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Private Sub Form_DblClick(Cancel As Integer)
Dim i_jour As Integer
Dim i_mois As Integer
Dim i_annee As Integer
Dim s_date As String
If mois_jour_annee = 1 Then
libelle_date = DateAdd("yyyy", periode, Date)
End If
If mois_jour_annee = 2 Then
libelle_date = DateAdd("m", periode, Date)
End If
If mois_jour_annee = 3 Then
libelle_date = DateAdd("d", periode, Date)
End If
i_mois = DatePart("m", libelle_date)
i_annee = DatePart("yyyy", libelle_date)
i_jour = occurrence
If IsNull(occurrence) Then
i_jour = 0
Else
i_jour = occurrence
End If
s_date = CStr(i_jour) & "/" & CStr(i_mois) & "/" & CStr(i_annee)
libelle_date = CDate(s_date)
End Sub |
Partager