[ Resolu par Dranreb ] : Difference entre 2 temps

MADAGASCAR

XLDnaute Occasionnel
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
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Bonjour, et bonne année.
VB:
Private Sub UserForm_Click()
TextBox3.Text = Format(TimeValue(TextBox2.Text) - TimeValue(TextBox1.Text), "hh:mm:ss")
End Sub
 

MADAGASCAR

XLDnaute Occasionnel
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
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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:

MADAGASCAR

XLDnaute Occasionnel
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
 

Fichiers joints

  • 29.5 Ko Affichages: 28

Dranreb

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

MADAGASCAR

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas