Urgent! Help me please!

[G.Kumaraguru]

My little snippet..

Private Function GetLocalDateFormat() As Byte
'This Function Returns 0 if US date Format
'and 1 if British Date Format

Dim SampleDate As String
SampleDate = "1/2/2000"
GetLocalDateFormat = IIf(Month("1/2/200") = 2, 1, 0)
End Function