Discussion :

[Benji-34]

bonjour ,
J'ai lu cette discussion.
si les textbox sont sous forme de date "01/01/2015 8:00:00"

du genre :

textbox 1 = 01/01/2015 8:00:00
textbox 2 = 01/01/2015 9:00:00

textbox 3 = val(textbox2) - val(textbox1) ne fonctionne pas

merci de votre réponse

[PMO2017]

si les textbox sont sous forme de date "01/01/2015 8:00:00"

Bonjour,

Quelque que chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_AfterUpdate()
If IsDate(TextBox1) Then
  TextBox1 = Format(CDate(TextBox1), "dd/mm/yyyy hh:mm:ss")
End If
End Sub
 
Private Sub TextBox2_AfterUpdate()
If IsDate(TextBox2) Then
  TextBox2 = Format(CDate(TextBox2), "dd/mm/yyyy hh:mm:ss")
End If
End Sub
 
Private Sub TextBox3_Enter()
If IsDate(TextBox1) And IsDate(TextBox2) Then
  TextBox3 = DateDiff("h", CDate(TextBox1), CDate(TextBox2)) & " heure(s)"
End If
End Sub