Compare dates

HCL Domino Domino Forum
1

try to compare if the DateStamp field is <3rd sept 2013…not sure what is wrong with my code

Dim vstamp As Variant

Dim vstamp2 As Variant

'date i wanted was 3rd of September 2013

vstamp=DateNumber(2013,03,09)

vstamp2=cdoc.DateStamp(0)



If vstamp<vstamp2 Then

	MessageBox vstamp + "v2"+CStr(vstamp2)

	MessageBox "Yes"

	If vstamp=vstamp2 Then

		MessageBox "hi equal"

	End If

	Exit Sub

Else

	MessageBox "No >"

	

	Exit sub

End If
2

Subject: compare dates

Datenumber(2013,3,9) will give you the ninth of March. You want to use Datenumber(2013,9,3).

3

Subject: RE: compare dates

thanks so much… finally got it working… Dim vstamp As Variant

Dim vstamp2 As Variant

'date i wanted was 3rd of September 2013

vstamp=DateNumber(2013,9,3)

vstamp2=cdoc.DateStamp(0)

MessageBox CStr(cdoc.DateStamp(0))

If vstamp=vstamp2 Then

	MessageBox "hi equal"

	'cdoc.DateStamp=vstamp

End If

If vstamp<vstamp2 Then

	MessageBox vstamp + "v2"+CStr(vstamp2)

	MessageBox "Yes to proceed"

	Exit Sub

Else

	MessageBox "No >"

	udoc.Editmode=True

	cdoc.DateStamp=vstamp

	Call cdoc.save(True,True)

	Call udoc.refresh

	udoc.Editmode=False

	Exit sub

End If