I coded
Dim d1, d2 As Date
Private Sub DTPicker1_Change()

d1 = DTPicker1.Value
End Sub

Private Sub DTPicker2_Change()
d2 = DTPicker2.Value
End Sub
Private Sub txt_days_Click()
Dim d3
dt = DateDiff("d", d1, d2)
txt_days = dt
End Sub


//Above code is giving a wrong answerlike 32789...pls help...
//I have added two dtp functions in a form..and want to show the their difference as days in txt_days