Discussion :

[megamario]

Bonjour à tous,

Je doit saisir plusieurs horaire sur ma form.
Se sont des plages de fonctionnement d'un groupe électrogène.

Pour le moment j'essayais de faire ça avec un textBox, mais pas pratique.

J'ai donc vu qu'il y avait les DTpicker qui le faisait parfaitement, mais pour le moment je n'ai pas trouvé comment éliminer les secondes qui me sont inutile.

De plus je voudrais savoir comment se comporte le DTPicker sur un PC US.

Pour information, le système sur lequel je me connecte m'envoie et à besoin de 2 variables par horaire.
La variable heure et la variable minutes.

[ProgElecT]

Salut

comment éliminer les secondes qui me sont inutile

Dans les propriétés (Personnalisé), Onglet général, choisir Format: 3 - dtpCustom, dans CustomFormat écrire hh:mm

La variable heure et la variable minutes.

Demo

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
Private Sub Form_Load()
DTPicker1.Value = Time$
Me.Visible = True
Dim VarHeure As Integer, VarMinute As Integer
 
'récupération dans 2 variables de la valeur du DTPicker 
VarHeure = Hour(DTPicker1.Value)
VarMinute = Minute(DTPicker1.Value)
MsgBox "VarHeure = " & VarHeure & vbCrLf _
       & "VarMinute = " & VarMinute
 
'donner une valeur au DTPicker depuis 2 variables
VarHeure = 15: VarMinute = 9
DTPicker1.Value = TimeValue(VarHeure & ":" & VarMinute & ":00")
End Sub

[megamario]

Salut

Dans les propriétés (Personnalisé), Onglet général, choisir Format: 3 - dtpCustom, dans CustomFormat écrire hh:mmDemo

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
Private Sub Form_Load()
DTPicker1.Value = Time$
Me.Visible = True
Dim VarHeure As Integer, VarMinute As Integer
 
'récupération dans 2 variables de la valeur du DTPicker 
VarHeure = Hour(DTPicker1.Value)
VarMinute = Minute(DTPicker1.Value)
MsgBox "VarHeure = " & VarHeure & vbCrLf _
       & "VarMinute = " & VarMinute
 
'donner une valeur au DTPicker depuis 2 variables
VarHeure = 15: VarMinute = 9
DTPicker1.Value = TimeValue(VarHeure & ":" & VarMinute & ":00")
End Sub

Merci beaucoup

Pour l'affectation et la lecture j'ai fait un peux différemment mais cela marche, je ne sais pas si c'est propre de faire ainsi:

Affectation

Code :

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

1
2
3
4
5
6
7
 
for i = 0 to 4
         .DTPStartDGS(i).Hour = Cint(dgsHourToStart(i).value)
         .DTPStartDGS(i).Minute = Cint(dgsMinToStart(i).value)
         .DTPStopDGS(i).Hour = Cint(dgsHourToStop(i).value)
         .DTPStopDGS(i).Minute = Cint(dgsMinToStop(i).value)
next i

Lecture:

Code :

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

1
2
3
4
5
6
7
 
for i = 0 to 4
        dgsHourToStart(i).WriteValue CStr(.DTPStartDGS(i).Hour)
        dgsMinToStart(i).WriteValue CStr(.DTPStartDGS(i).Minute)
        dgsHourToStop(i).WriteValue CStr(.DTPStopDGS(i).Hour)
        dgsMinToStop(i).WriteValue CStr(.DTPStopDGS(i).Minute)
next i

Avec:
DTPStartDGS(i) etc.. Mes DTPicker
dgsHourToStart(i) etc.. étant mes Objets que j'envoie à mon système.



Par contre comment cela se passe avec les PC Anglais, puisque logiquement ils n'ont pas le même standard que nous.
18:30 -> 6:30 PM

Le PC lui devrait comprendre je pense que 18 c'est égale à 6 PM Mais lorsque je l'interroge il faut qu'il me donne 18.
Si le dtpicker se met bien en mode US. S'il reste pareil (vu que je l'ai défini en Custom hh:mm) pas de souci, juste une petite conversion à faire pour nos clients US



[EDIT]-----------------------------------------------------------------

Cela marche bien le Format dtpCustum, par contre j'ai la flèches a coté qui m'ouvre un calendrier et non plus les 2 petites flèches qui monte ou descende des heures minutes. Y a t'il un moyen de le modifier?

[ProgElecT]

Merci beaucoup
Cela marche bien le Format dtpCustum, par contre j'ai la flèches a coté qui m'ouvre un calendrier et non plus les 2 petites flèches qui monte ou descende des heures minutes. Y a t il un moyen de le modifier?

Dans les propriétés (Personnalisé), Onglet général, cocher UpDown

Edit:
A savoir à propos de CustomFormat:
HH:mm --> format 00 à 24 heures
hh:mm --> format 00 à 12 heures
h: mm tt --> format 00 à 12 heures AM/PM (perso je ne suis pas parvenu à faire apparaitre AM ou PM

[megamario]

Merci beaucoup pour l'info