Quote:
Originally Posted by $RaMRoM$
Thanks a lot travy92, your tuts are wonderful, BTW i just wanna say that maybe you can add Text Boxes and change:
Code:
Private Sub cmdCalc_Click()
Mint = DateDiff("d", "5/09/2007", "11/09/2007")
lstAnswer.AddItem "The day difference = " & Mint
End Sub
To:
Code:
Private Sub cmdCalc_Click()
Mint = DateDiff("d", Val(Text1.Text), Val(Text2.Text))
lstAnswer.AddItem "The day difference = " & Mint
End Sub
Just Saying! lol |
I'm not sure your code will work. DateDiff() expects 3 string parameters, yet Val() returns a value. Maybe a DateTimePicker would be a better choice of control.