Calcul durée entre 2 horaires dans textbox

Hippolite

XLDnaute Accro

• 30 Mars 2011

• #2

Re : Calcul durée entre 2 horaires dans textbox

Bonsoir,
Tu convertis les textes en heures avec Cdate, tu soustrais (attention, les heures négatives sont interdites), puis tu repasses en texte avec Format. Utilises l'aide (touche F1 après avoir écrit le mot) pour découvrir la syntaxe exacte.
A+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 31 Mars 2011

• #3

Re : Calcul durée entre 2 horaires dans textbox

bonsoir titou le forum
bonsoir ton fichier en retour, mais si textbox2 supérieur à 23h59 il faut le redire
a+
Papou 🙂

 

Pièces jointes

• TESTHeure.xlsm

  21.5 KB · Affichages: 112

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 31 Mars 2011

• #4

Re : Calcul durée entre 2 horaires dans textbox

Bonsoir, salut papou 🙂,

Code:

Private Sub TextBox1_Change()
If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & ":"
calcul
End Sub

Private Sub TextBox2_Change()
If Len(TextBox2) = 2 Then TextBox2 = TextBox2 & ":"
calcul
End Sub

Sub calcul()
Dim x#, y#
TextBox3 = ""
If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then Exit Sub
x = CDbl(CDate(TextBox1))
y = CDbl(CDate(TextBox2))
If y > x Then
    TextBox3 = Format(y - x, "hh:mm")
Else
    TextBox3 = Format(1 - x + y, "hh:mm")
End If
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

T

TITOU73

XLDnaute Nouveau

• 31 Mars 2011

• #5

Re : Calcul durée entre 2 horaires dans textbox

C'est exactement ce que je recherchais.

Merci à vous pour votre aide
Salutations

 

Vote positif 0 Vote négatif

T

TITOU73

XLDnaute Nouveau

• 31 Mars 2011

• #6

Re : Calcul durée entre 2 horaires dans textbox

Je cherche à convertir le résultat de la durée ( textbox3 ) en minute plutôt qu'en hh:mm

De plus, est il possible de multiplier la valeur de la textbox3 avec une valeur inscrit dans la textbox4 et de retrouvé la somme dans la textbox5

Merci de votre aide

 

Pièces jointes

• Copie de TESTHeure(1).xlsm

  20.3 KB · Affichages: 70

Vote positif 0 Vote négatif