equal
deleted
inserted
replaced
929 |
929 |
930 year:yr month:mon day:day |
930 year:yr month:mon day:day |
931 ^ self newDay:day month:mon year:yr |
931 ^ self newDay:day month:mon year:yr |
932 ! ! |
932 ! ! |
933 |
933 |
|
934 |
934 !Date class methodsFor:'change & update'! |
935 !Date class methodsFor:'change & update'! |
935 |
936 |
936 update:something with:aParameter from:changedObject |
937 update:something with:aParameter from:changedObject |
937 ((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[ |
938 ((something == #Language) or:[something == #LanguageTerritory]) ifTrue:[ |
938 "just remember change for next access" |
939 "just remember change for next access" |
2643 Date fromDaysFrom0:(Date today asDaysFrom0 + 7) |
2644 Date fromDaysFrom0:(Date today asDaysFrom0 + 7) |
2644 " |
2645 " |
2645 ! |
2646 ! |
2646 |
2647 |
2647 asSeconds |
2648 asSeconds |
2648 "return the seconds between 1.jan.1901 and the same time in the receivers |
2649 "return the seconds between 1.jan.1901 and the same time in the receiver's |
2649 day. (i.e. midnight to midnight). The returned number may be negative for dates before 1901. |
2650 day. (i.e. midnight to midnight). The returned number may be negative for dates before 1901. |
2650 This does not include any leapSeconds ... strictly speaking, this is incorrect. |
2651 This does not include any leapSeconds ... strictly speaking, this is incorrect. |
2651 ST-80 compatibility." |
2652 ST-80 compatibility." |
2652 |
2653 |
2653 ^ 60*60*24 * self asDays |
2654 ^ 60*60*24 * self asDays |
3300 |
3301 |
3301 ^ self weekday |
3302 ^ self weekday |
3302 ! |
3303 ! |
3303 |
3304 |
3304 leap |
3305 leap |
3305 "return true, if the receivers year is a leap year" |
3306 "return true, if the receiver's year is a leap year" |
3306 <resource: #obsolete> |
3307 <resource: #obsolete> |
3307 |
3308 |
3308 ^ self isLeapYear |
3309 ^ self isLeapYear |
3309 |
3310 |
3310 " |
3311 " |