VBA : Chiffre avant ou apres la virgule

[ConsultantJP]

Bonjour à tous,

Question à 2 sous :

j'ai un calcul dans un txtbox et je souhaite extraire les résultats en 2 parties, d'un coté avant la virgule et ensuite apres la virgule, l'objectif étant ensuite de lui donner un affichage en heure.

Ma textbox à comme valeur 0.7

Le calcul fait : (0.7 * 420 (durée journée travail en min) )/ 60 et j'ai le nbre d'heure travaillée soit 4,90 ... je voudrais à présent que le 4.90 devienne des heures... et tout ça juste en VBA....

j'ai pensé à prendre d'un coté le 4 puis le 90 que je divise par 60 mais bon pas sur du systeme...

 

[Catrice]

Re : VBA : Chiffre avant ou apres la virgule

Bonjour,

Sub Test()
y = 4.9
MsgBox Format(y / 24, "hh:mm")
End Sub


4,9/24 => donne 4:54 en format heure Excel

 

[job75]

Re : VBA : Chiffre avant ou apres la virgule

Bonjour ConsultantJP,

x = TextBox1 * 420 / 60
y = Int(CDec(x)) 'partie entière
z = x - y 'partie décimale

Utilisation de CDec car parfois la fonction Int() pose quelques problèmes...

Edit : salut Catrice, ma réponse ne sert pas à grand'chose en fait

A+

 

[ConsultantJP]

Re : VBA : Chiffre avant ou apres la virgule

Super bonjour et merci bcp à vous deux pour le code, j'avoue ne pas avoir pensé au 24 je cherchais plus compliqué... pfff