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
| Select Case lngMonth
Case 0
If Not IsNull(rsBafi400.Fields("ORED")) Then
rsBafi400.Fields("DATEDEPART") = Format(Year(rsBafi400.Fields("ORED")), "0000") & _
Format(Month(rsBafi400.Fields("ORED")), "00") & _
Format(Day(rsBafi400.Fields("ORED")), "00")
End If
If Not IsNull(rsBafi400.Fields("MDAT")) Then
rsBafi400.Fields("DATEEND") = Format(Year(rsBafi400.Fields("MDAT")), "0000") & _
Format(Month(rsBafi400.Fields("MDAT")), "00") & _
Format(Day(rsBafi400.Fields("MDAT")), "00")
End If
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 'Mois
'Previous
If Month(Date) = lngMonth Then
If Day(Date) > intDay Then
rsBafi400.Fields("DATEDEPART") = (Year(Date) - 1) & Format(lngMonth, "00") & Format(intDay, "00")
Else
rsBafi400.Fields("DATEDEPART") = Year(Date) & Format(lngMonth, "00") & Format(intDay, "00")
End If
Else
If Month(Date) > lngMonth Then
rsBafi400.Fields("DATEDEPART") = (Year(Date) - 1) & Format(lngMonth, "00") & Format(intDay, "00")
Else
rsBafi400.Fields("DATEDEPART") = Year(Date) & Format(lngMonth, "00") & Format(intDay, "00")
End If
End If |
Partager