OVH Cloud OVH Cloud

Fontion TIME

3 réponses
Avatar
Eliot Naiss
Bonjour,
ds un userform, je désire que soit écrit dans une zone de texte soit Matin,
soit Après-midi où Soir selon la trache horaire "systeme" de 07:00 à 13:00
(pour matin), de 13:30 à 19:00 (pour après-midi) et après 19:30 (pour soir)
Je bute qd à la syntaxe et l'utilisation de la fonction Time.
Qui peut m'aider ????
Merci par avance.
Eliot

3 réponses

Avatar
Daniel
Bonjour.

Sub test()
If Time > "07:00:00" And Time < "13:00:00" Then
MsgBox "matin"
ElseIf Time > "12:59:59" And Time < "19:30:00" Then
MsgBox "après-midi"
Else
MsgBox "soir"
End If
End Sub

Cordialement.
Daniel
"Eliot Naiss" a écrit dans le message
de news:
Bonjour,
ds un userform, je désire que soit écrit dans une zone de texte soit
Matin,
soit Après-midi où Soir selon la trache horaire "systeme" de 07:00 à 13:00
(pour matin), de 13:30 à 19:00 (pour après-midi) et après 19:30 (pour
soir)
Je bute qd à la syntaxe et l'utilisation de la fonction Time.
Qui peut m'aider ????
Merci par avance.
Eliot


Avatar
papou
Bonjour
Tu peux utiliser les fonctions Hour et Minute puis effectuer un contrôle du
type :
Select Case Hour(Time)

Cordialement
Pascal
Avatar
Eliot Naiss
Bonjour Daniel
Merci de ta réponse, cela m'a bien aidé et permis d'avancer un peu plus !...
[Merci aussi à papou pour sa réponse]
Cordialement
Eliot


Bonjour.

Sub test()
If Time > "07:00:00" And Time < "13:00:00" Then
MsgBox "matin"
ElseIf Time > "12:59:59" And Time < "19:30:00" Then
MsgBox "après-midi"
Else
MsgBox "soir"
End If
End Sub

Cordialement.
Daniel
"Eliot Naiss" a écrit dans le message
de news:
Bonjour,
ds un userform, je désire que soit écrit dans une zone de texte soit
Matin,
soit Après-midi où Soir selon la trache horaire "systeme" de 07:00 à 13:00
(pour matin), de 13:30 à 19:00 (pour après-midi) et après 19:30 (pour
soir)
Je bute qd à la syntaxe et l'utilisation de la fonction Time.
Qui peut m'aider ????
Merci par avance.
Eliot