Test sur timestamp

Bonjour,
Je dispose d'un ficher contenant des timestamp.
Mon souhait est de testé ces timestamp afin de pouvoir faire diverses opérations par la suite.

Code:

---

1 2 3 4 5 6 7 8

'ex de timestamp '1247297837 '1247298317 '1247263200 toto = (Timestamp / 86400) + 25569 + (1 / 24) Format(toto, "H:m") 'retourne l'heure au format 11:00, 20:00 ... Format(toto, "dddd") 'retourne la date au format vendredi, samedi...

---

Je veux maintenant pouvoir testé si le timestamp se situe entre par exemple 8:00 et 19:00.
Je ne vois pas comment procédé...

Merci d'avance.

Salut le forum

Essaye avec ceci

Code:

---

If Format(toto, "hh:mm") => "08:00" And Format(toto, "hh:mm") <= "19:00" Then

---

Mytå_Qc

Bonjour,

Essaye ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim dTime As Date Dim iHour As Integer Dim iTimeStamp As Long 'ex de timestamp '1247297837 '1247298317 '1247263200 iTimeStamp = 1247297837 dTime = (iTimeStamp / 86400) + 25569 + (1 / 24) iHour = DatePart("h", dTime) If iHour >= 8 And iHour < 19 Then ' Ton traitement End If End Sub

---

PArfait !
Merci bien !!