Hi,
With PeriodEnding set to "Saturday, August 19, 2006" this method
works fine with the Mac but fails ("Invalid Date format!") with the
PC (XP);
Dim d As New date// Add NEW
Dim b As boolean
b=parsedate(PeriodEnding.text,d)
// Check the parsed date for incorrect entry.
If b <> True Then
MsgBox "Invalid Date format!"
// PeriodEnding.SetFocus//Go back to fix date
Else
If d.DayOfWeek <> 7 Then // 7 is Saturday
PeriodEnding.SetFocus//Go back to fix date
MsgBox "The Period Ending entry is not a Saturday"
PeriodEnding.text=d.ShortDate
Else
// was a Sat., update display to a longdate
PeriodEnding.text=d.LongDate
End If
End If
Does the PC need some special instructions to understand English?
Tia,
Robert Poland
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
