Date-Klasse

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Der Code:

     thetruebool=ParseDate("11.05.1598",BDate)
     If theTrueBool then
       bdate.day=bdate.day+val(dtag.text)
       bdate.month=bdate.month+val(dmonat.text)
       bdate.year=bdate.year+val(djahr.text)
       etag.text=MySTR(bdate.day)
       emonat.text=MySTR(bdate.month)
       ejahr.text=MySTR(bdate.year)
     else
       msgbox "Beginndatum fehlerhaft"
     end if
   
funktioiert unter MacOS X bestens. Unter Windows bekomme ich leider bei 
allen Jahresangaben unter 1601 den Hinweis "Beginndatum fehlerhaft" :-(
Hat jemand einen Tip, was ich dagegen tun kann?

MfG, Metti.