Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bruno
"carine" a écrit dans le message de news:063501c3aef0$f65d7590$ bonsoir, j'aimerai savoir comment convertir en VB un nombre décimal en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul pour rétablir la partie décimale exprimée en centième vers du soixantième. Il vous suffit d'additionner les deux résultats. Pour le fun, je vais essayer de faire un bout de prog puis je vous l'enverrait.
Cdlt,
"carine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:063501c3aef0$f65d7590$a301280a@phx.gbl...
bonsoir,
j'aimerai savoir comment convertir en VB un nombre décimal
en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul pour
rétablir la partie décimale exprimée en centième vers du soixantième. Il
vous suffit d'additionner les deux résultats.
Pour le fun, je vais essayer de faire un bout de prog puis je vous
l'enverrait.
"carine" a écrit dans le message de news:063501c3aef0$f65d7590$ bonsoir, j'aimerai savoir comment convertir en VB un nombre décimal en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul pour rétablir la partie décimale exprimée en centième vers du soixantième. Il vous suffit d'additionner les deux résultats. Pour le fun, je vais essayer de faire un bout de prog puis je vous l'enverrait.
Cdlt,
Bruno
"Bruno" a écrit dans le message de news:bphsbs$p4$
"carine" a écrit dans le message de news:063501c3aef0$f65d7590$ bonsoir, j'aimerai savoir comment convertir en VB un nombre décimal en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul
pour
rétablir la partie décimale exprimée en centième vers du soixantième. Il vous suffit d'additionner les deux résultats. Pour le fun, je vais essayer de faire un bout de prog puis je vous l'enverrait.
Cdlt,
Re-Bonjour,
Comme promis, un bout de code (à optimiser ...) permettant de faire ce calcul ... ;-))
Private Sub cmdCalcul_Click() ' Créer une Form avec : ' - Un textbox nommé Text1 ' - Un textbox nommé Text2 ' - Un commandbutton nommé cmdCalcul ' - Un commandbutton nommé cmdQuitter ' Attention je ne met aucun contrôle de numéricité de la saisie Dim iEntiere As Integer Dim iDecimal As Integer Dim iDecSoix As Integer Dim tTableau
tTableau = Split(Text1.Text, ".") iEntiere = tTableau(0) ' Si vous mettez 0.xx là ca plante ! iDecimal = tTableau(1) ' Au même titre si vous mettez x.125 le résultat est faux ! iDecSoix = (iDecimal * 60) / 100 Text2.Text = iEntiere & ":" & Format(iDecSoix, "00") End Sub
Private Sub cmdQuitter_Click() Unload Me End Sub
Cdlt,
"Bruno" <blory@wanadoo.fr> a écrit dans le message de
news:bphsbs$p4$1@news-reader2.wanadoo.fr...
"carine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:063501c3aef0$f65d7590$a301280a@phx.gbl...
bonsoir,
j'aimerai savoir comment convertir en VB un nombre décimal
en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul
pour
rétablir la partie décimale exprimée en centième vers du soixantième. Il
vous suffit d'additionner les deux résultats.
Pour le fun, je vais essayer de faire un bout de prog puis je vous
l'enverrait.
Cdlt,
Re-Bonjour,
Comme promis, un bout de code (à optimiser ...) permettant de faire ce
calcul ... ;-))
Private Sub cmdCalcul_Click()
' Créer une Form avec :
' - Un textbox nommé Text1
' - Un textbox nommé Text2
' - Un commandbutton nommé cmdCalcul
' - Un commandbutton nommé cmdQuitter
' Attention je ne met aucun contrôle de numéricité de la saisie
Dim iEntiere As Integer
Dim iDecimal As Integer
Dim iDecSoix As Integer
Dim tTableau
tTableau = Split(Text1.Text, ".")
iEntiere = tTableau(0) ' Si vous mettez 0.xx là ca plante !
iDecimal = tTableau(1) ' Au même titre si vous mettez x.125 le résultat est
faux !
iDecSoix = (iDecimal * 60) / 100
Text2.Text = iEntiere & ":" & Format(iDecSoix, "00")
End Sub
"Bruno" a écrit dans le message de news:bphsbs$p4$
"carine" a écrit dans le message de news:063501c3aef0$f65d7590$ bonsoir, j'aimerai savoir comment convertir en VB un nombre décimal en heure.
si j'ai 7.50 je voudrai que cela me convertisse en 7H30
merci pour votre aide.
carine
Bonjour,
Vous prenez la partie entière pour l'heure et vous appliquez un calcul
pour
rétablir la partie décimale exprimée en centième vers du soixantième. Il vous suffit d'additionner les deux résultats. Pour le fun, je vais essayer de faire un bout de prog puis je vous l'enverrait.
Cdlt,
Re-Bonjour,
Comme promis, un bout de code (à optimiser ...) permettant de faire ce calcul ... ;-))
Private Sub cmdCalcul_Click() ' Créer une Form avec : ' - Un textbox nommé Text1 ' - Un textbox nommé Text2 ' - Un commandbutton nommé cmdCalcul ' - Un commandbutton nommé cmdQuitter ' Attention je ne met aucun contrôle de numéricité de la saisie Dim iEntiere As Integer Dim iDecimal As Integer Dim iDecSoix As Integer Dim tTableau
tTableau = Split(Text1.Text, ".") iEntiere = tTableau(0) ' Si vous mettez 0.xx là ca plante ! iDecimal = tTableau(1) ' Au même titre si vous mettez x.125 le résultat est faux ! iDecSoix = (iDecimal * 60) / 100 Text2.Text = iEntiere & ":" & Format(iDecSoix, "00") End Sub
Private Sub cmdQuitter_Click() Unload Me End Sub
Cdlt,
jmn
L'Arme Fatale des programmeurs :la Règle de trois ! Soit x l'heure décimale
minutes = ((x-int(x))*60)
L'Arme Fatale des programmeurs :la Règle de trois !
Soit x l'heure décimale
