[ Resolu par Dranreb ] : Difference entre 2 temps

[MADAGASCAR]

Bonjour EXCEL DOWNLOADS
Bonjour tout le monde
Bonne et heureuse annee 2017 a toutes et a tous
SVP gentelmans si vous pouvez m'aider a trouver la difference entre deux temps
Le premier temps dans TextBox1
Le second temps dans TextBox2
Le resultat avec heure minute et seconde dans TextBox3
Merci beaucoup d'avance pour l'aide
Cordialement
MADA

 

[Dranreb]

Bonjour, et bonne année.

Private Sub UserForm_Click()
TextBox3.Text = Format(TimeValue(TextBox2.Text) - TimeValue(TextBox1.Text), "hh:mm:ss")
End Sub

 

[MADAGASCAR]

Bonjour Dranreb
Bonne et joyeuse annee 2017
Merci beaucoup pour l'aide et pour votre impeccable code
SVP cher gentelman si vous pouvez m'aider pour une derniere remarque ..
Supposant que j'ai un prix dans TextBox4 .. par exemple 20.66 par heure
TextBox5 = TextBox3 * TextBox4
Comment faire pour calculer la somme exacte on tenant compte des minutes et des secondes aussi
Merci beaucoup Dranreb
Amicalement
MADA

 

[Dranreb]

Si vous avez plusieurs usages à effectuez des valeurs de TextBox, affectez TimeValue(TextBoxX.Text) à des variables As Double ou As Date et utilisez les pour les calculs. Prenez le prix par jour c'est à dire le prix par heure / 24
CCur(TextBox4.Text) normalement pour convertir le texte en montant.

 

[MADAGASCAR]

Merci 1000 fois Dranreb pour l'explication
Mais franchement et malheureusement j'ai pas tellement compris .. VBA un peut dur a comprendre
Je n'ai pas plusieurs usages a effectuer sauf
TextBox5 = TextBox3 * TextBox4
Cordialement
MADA

 

[Dranreb]

Bon alors essayez comme ça :

Dim Temps As Double
Temps = TimeValue(TextBox2.Text) - TimeValue(TextBox1.Text)
TextBox3.Text = Format(Temps, "hh:mm:ss")
TextBox5.Text = CCur(TextBox4.Text) * (Temps * 24)

Edit: Très bonne année, Lone-wolf.

 

[Lone-wolf]

Bonjour MADA, Dranreb

Très bonne année à vous.

 

[MADAGASCAR]

Bonjour cher ami Lone-Wolf
Joyeux et heureuse annee 2017 vous et votre famille
Amicalement
MADA

 

[MADAGASCAR]

Merci Dranreb
J'ai mis ce dernier code dans un commanbutton1 et j'ai essaye de faire un petit calcul mais SVP regardez ce que j'ai obtenu
Amicalement
MADA

 

[Dranreb]

Alors essayez :

Dim Temps As Double
Temps = TimeValue(TextBox1.Text) - TimeValue(TextBox2.Text)
TextBox3.Text = Format(Temps, "hh:mm:ss")
TextBox5.Text = Format(CCur(TextBox4.Text) * (Temps * 24), "0.00 €")

 

[MADAGASCAR]

Merci Dranreb
Que dieu te benisse durant toute votre vie
Formidablement resolu
Merci encore
Cordialement
MADA BLACK