Sub LocalEgalGMT()
'Vérifie si la DATE de l'heure locale est la même que celle de l'heure GMT
'Magic_Doctor
Dim fecha(1 To 2) As Date
fecha(1) = Format([Heure_Locale], "dd/mm/yyyy") 'date heure locale
fecha(2) = Format([Heure_GMT], "dd/mm/yyyy") 'date heure GMT
[Heure_Locale1,Heure_Locale2,Heure_GMT1,Heure_GMT2].Font.Color = 11560192 'bleu
[Heure_Locale1,Heure_Locale2] = MalditaFecha(fecha(1)) & " " & Format([Heure_Locale], "hh:mm:ss") 'la DATE n'est plus reconnue par Excel
[Heure_GMT1,Heure_GMT2] = MalditaFecha(fecha(2)) & " " & Format([Heure_GMT], "hh:mm:ss") 'la DATE n'est plus reconnue par Excel
[Heure_Locale1,Heure_Locale2].Characters(Start:=1, Length:=11).Font.Color = 0
[Heure_GMT1,Heure_GMT2].Characters(Start:=1, Length:=11).Font.Color = IIf(MalditaFecha(fecha(1), True) <> MalditaFecha(fecha(2), True), 192, 0) 'si les dates sont différentes --> date GMT rouge
'si les dates sont identiques --> date GMT noire
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Function MalditaFecha(d As Date, Optional OnlyDate As Boolean = False) As String
'Renvoie une date sous forme de chaîne non reconnaissable comme une date. Bref, un infâme bidouillage pour niquer Excel
'Magic_Doctor
Dim j$, m$, a$
j = Day(d)
If j < 10 Then j = "0" & j
m = Month(d)
If m < 10 Then m = "0" & m
a = Year(Date)
MalditaFecha = IIf(OnlyDate = True, j & "/" & m & "/" & a, " " & j & "/" & m & "/" & a & " ") '1 espace en début et en fin de la date pour tromper l'ennemi
End Function