[ Resolu par Dranreb ] : Difference entre 2 temps

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2017

• #2

Bonjour, et bonne année.

VB:

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 1 Janvier 2017

• #3

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

 

Pièces jointes

• 123.jpg

  279.5 KB · Affichages: 33

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2017

• #4

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.

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 1 Janvier 2017

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2017

• #6

Bon alors essayez comme ça :

VB:

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.

 

Dernière édition: 1 Janvier 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Janvier 2017

• #7

Bonjour MADA, Dranreb

Très bonne année à vous.

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 1 Janvier 2017

• #8

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

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 1 Janvier 2017

• #9

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

 

Pièces jointes

• 1.jpg

  29.5 KB · Affichages: 31

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2017

• #10

Alors essayez :

VB:

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 €")

 

Vote positif 0 Vote négatif

MADAGASCAR

XLDnaute Occasionnel

• 1 Janvier 2017

• #11

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

 

Vote positif 0 Vote négatif