Discussion :

[iperkut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Mytå_Qc]

Salut le forum

Essaye avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mytå_Qc

[AlainTech]

Bonjour,

Essaye ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iperkut]

PArfait !
Merci bien !!