• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• It will find the difference between two days...

It will find the difference between two days...

It will find the difference between two days...

API Declarations



Put Now in text1.text and text2.text

Put this code in the lost focus of text2.text



Rate It will find the difference between two days...

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Text1.Text = Now
End Sub

Private Sub Text2_DblClick()
Text2.Text = Now
End Sub

Private Sub Text2_LostFocus()
On Error GoTo sr
Dim z As Variant
Dim z1 As Variant
z = Text1.Text
z1 = Text2.Text
Text3.Text = DateDiff("h", z, z1)
Exit Sub
sr:
MsgBox "Please press tab Key"
end sub