Discussion :

[mohalesage]

Bonjour,

Je tente depuis un temps de réussir l'affichage de la série des heures
de la journée ( c'est à dire de 00:00 à 23:00 ) dans un Combobox, mais sans résultat
A propos de travaille avec VB6

Ce que j'ai essayé est comme suit :

Code :

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

1
2
3
4
5
6
7
8
dim X,H1,H2 as date
 
H1=#00:00#
H2=#23:00#
 
For X=H1 to H2
        cmbHeure.Additem (X)
Next X

aussi je voulais le faire avec une cadence de 15 mn ( Step 15 )
mais sans vaine.

Merci pour votre aide

[ProgElecT]

Salut

Une solution comme une autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim DebH As Integer, FinH As Integer, CptH As Integer
Dim H As Integer, Mn As Integer
 
DebutH = 0 'H1 = #00:00#
'FinH = (23 * 60) 'H2 = #23:00#
FinH = (23 * 60) + 45 'H2 = #23:45# pour aller jusqu'à la fin de journée
 
cmbHeure.Clear
For CptH = DebutH To FinH Step 15
    H = Int(CptH / 60): Mn = CptH - (H * 60)
    cmbHeure.AddItem Format(CStr(H), "00") & ":" & Format(CStr(Mn), "00")
Next CptH
cmbHeure.ListIndex = 0

[DarkVader]

Bonjour

Code :

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

1
2
3
    For X = 1 To 23
            cmbHeure.AddItem Format(X / 24, "hh:mm")
    Next

... si j'ai bien compris