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
| Dim DateHeureEnCours As Variant 'date et heure du jour en cours
Dim DateEnCours As Variant 'date du jour en cours
Dim DateHeureFin As Variant 'date et heure transmise à la requête
Dim Deb13 As Variant 'date et heure de début du jour en cours pour fin 13 heures
Dim Fin13 As Variant 'date et heure de fin du jour en cours pour fin 13 heures
Dim Deb21 As Variant 'date et heure de début du jour en cours pour fin 21 heures
Dim Fin21 As Variant 'date et heure de fin du jour en cours pour fin 21 heures
Dim Deb05 As Variant 'date et heure de début du jour en cours pour fin 05 heures
Dim Fin05 As Variant 'date et heure de fin du jour en cours pour fin 05 heures
DateHeureEnCours = Format(Now, "mm,dd,yyyy,hh,mm")
DateEnCours = Format(Date, "mm,dd,yyyy")
Deb05 = Format(DateEnCours & " " & " 05:00:00", "mm,dd,yyyy,hh,mm")
Fin05 = Format(DateEnCours & " " & "13:00:00", "mm,dd,yyyy,hh,mm")
Deb13 = Format(DateEnCours & " " & " 13:00:00", "mm,dd,yyyy,hh,mm")
Fin13 = Format(DateEnCours & " " & "21:00:00", "mm,dd,yyyy,hh,mm")
Deb21 = Format(DateEnCours & " " & " 21:00:00", "mm,dd,yyyy,hh,mm")
Fin21 = Format(DateEnCours & " " & "05:00:00", "mm,dd,yyyy,hh,mm")
If DateHeureEnCours >= Deb05 And DateHeureEnCours < Fin13 Then
DateHeureFin = Fin13
ElseIf DateHeureEnCours >= 13 And DateHeureEnCours < 21 Then
DateHeureFin = 21
ElseIf DateHeureEnCours >= 21 And DateHeureEnCours < 5 Then
DateHeureFin = 5
End If
Call Affichage(DateHeureFin) |
Partager