Discussion :

[BenoitM]

Bonjour mon expérience en VB6 étant assez limité, j'aurai souhaité un conseil pour résoudre ce petit problème.
Quand l'instant courant est entre 06h00 et 13h59 je dois renvoyer 1
Quand l'instant courant est entre 14h00 et 21h59 je dois renvoyer 2
Quand l'instant courant est entre 22h00 et 05h59 je dois renvoyer 3

Donc si je lance la fonction le 01/01/07 à 06:00
je dois retourner 01/01/07 1

Donc si je lance la fonction le 01/01/07 à 15:00
je dois retourner 01/01/07 2

Donc si je lance la fonction le 02/01/07 à 05:59
je dois retourner 01/01/07 3

[avigeilpro]

Tu peux comparer les heures sous VB, utilise donc une serie de if. l'heure est lue par la variable Time.

[sovo]

Comme te l'a si bien suggere avigeilpro tu peux passer par les if imbriques, mais moi je te proposerais aussi le Select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Heure as Date
Dim Equiv as Byte
 
Heure = Format(Now,"hh:mm")
 
Select case Heure
      Case 6:00 To 13:59: Equiv = 1
      Case 14:00 To 21:59: Equiv = 2
      Case 22:00 To 5:59: Equiv = 3
End select
 
msgbox Format(Now,"dd/mm/yy") & "  " & str(Equiv)

[Najdar]

Histoire d'ajouter mon grain de sel :

Sovo, la syntaxe exacte serait plustot

Code :

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

1
2
3
4
5
Select Case Heure
      Case #6:00:00 AM# To #1:59:00 PM#: Equiv = 1
      Case #2:00:00 PM# To #9:59:00 PM#: Equiv = 2
      Case #10:00:00 PM# To #5:59:00 AM#: Equiv = 3
End Select

Et afin d'éviter tout problème de conversion de type implicte fait par VB, je préfére convertir la date et l'heure en double. Je trouve la conversion beaucoup plus naturelle.

Code :

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

1
2
3
4
5
6
7
8
9
10
  Dim Equiv                         As Byte
 
  Select Case CDbl(Time)
  Case Is < (CDbl(#6:00:00 AM#)):  Equiv = 3
  Case Is < (CDbl(#2:00:00 PM#)):  Equiv = 1
  Case Is < (CDbl(#10:00:00 PM#)): Equiv = 2
  Case Else:                       Equiv = 3
  End Select
 
  MsgBox FormatDateTime(Now) & "  " & Str(Equiv)

[sovo]

Sovo, la syntaxe exacte serait plustot

Code :

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

1
2
3
4
5
Select Case Heure
      Case #6:00:00 AM# To #1:59:00 PM#: Equiv = 1
      Case #2:00:00 PM# To #9:59:00 PM#: Equiv = 2
      Case #10:00:00 PM# To #5:59:00 AM#: Equiv = 3
End Select

Autant pour moi. merci.