author | Claus Gittinger <cg@exept.de> |
Sat, 13 Jul 2019 14:18:24 +0200 | |
changeset 24422 | eb390a96e82b |
parent 24421 | efb8535a5769 |
child 24423 | 27a335bed151 |
--- a/Date.st Fri Jul 12 12:36:05 2019 +0200 +++ b/Date.st Sat Jul 13 14:18:24 2019 +0200 @@ -2199,6 +2199,13 @@ ]. ^ #year -> year ]. + (format sameAs: 'y2000') ifTrue:[ + year := Integer readFrom:string. + year < 100 ifTrue:[ + ^ #year -> (year + 2000) + ]. + ^ #year -> year + ]. (format sameAs: 'y1950') ifTrue:[ "shift YY into 1950..2049; for 2k support of old date strings" @@ -2284,7 +2291,6 @@ ! ! - !Date methodsFor:'Compatibility-ANSI'! dayOfWeek