Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.71K
1 Posted Topic
[Code=vbscript] Sub demo() Dim strDate As String strDate = "12/31/2011" 'Date to be validated MsgBox OKdate(strDate) 'Function call to validate date End Sub Function OKdate(S) 'eight digits MM/dd/yyyy Dim mn, dt, yr On Error Resume Next mn = left(S, 2) ' First 2 digits of the string dt = Mid(S, …
The End.