Dates

[tomjess]

Hi Guys

This has been thrashed around many a time I suppose, but here goes.

I have two text boxes, text1 and text2 both have a date in them. I would like to find out the difference in days from on to the other, i.e.

text1 = 20/2/2005 and text2 = 22/2/2005 and its 2 days.

Thanks in advance

[RhinoBull]

There is a DateDiff() function:

Private Sub Command1_Click()
    Debug.Print DateDiff("d", "20/2/2005", "22/2/2005")
End Sub

[dglienna]

I just typed in a whole page of syntax for this. Its on the same page.

My date format is different, so I had to use this:

Option Explicit
 
Private Sub Form_Load()
Dim a As Integer
a = DateDiff("d", "2/20/05", "2/22/05")
MsgBox a
End Sub

It depends on the computer date format.

[RhinoBull]

... It depends on the computer date format.

Not really - as long as it is date in any format regardless of your systems settings.
Try this and you will get True for each line returned:

Private Sub Command1_Click()
    Debug.Print IsDate("19/02/05")
    Debug.Print IsDate("02/19/05")
    Debug.Print IsDate("19 feb 2005")
    Debug.Print IsDate("19/feb/05")
    Debug.Print IsDate("feb/19/2005")
End Sub

You may also try many6 other different formats but as long as it is DATE ...

[dglienna]

a = DateDiff("d", "20/2/05", "22/2/05")
MsgBox a

I typed that in, and it returned 731 days.

[dglienna]

a = DateDiff("d", now, "22/2/05")
MsgBox a

I typed that in, and it returned 6195 days.

[RhinoBull]

You made me think for a few seconds ... I'm afraid it could be a bug in DateDiff ... What happends is it converts "20/2/05" t0 "2/5/2020". You can get that by replacing quotes with pound sign and VB automatically outputs this: #2/5/2020# . That is why you got 731 days which is 2 years. So I guess year better be formatted as 4 digits.

[dglienna]

That makes sense. I thought it was the internal date format, but that works as well.