--- a/Date.st Mon Dec 20 12:06:03 2010 +0100
+++ b/Date.st Mon Dec 20 14:10:21 2010 +0100
@@ -2039,23 +2039,6 @@
"
Date today mmddyyyy
"
-!
-
-yyyymmdd
- "return a printed representation of the receiver in the
- form yyyymmdd.
- The receiver can be reconstructed with:
- Date readYYYYMMDDFrom:aStringOrStream onError:[...]"
-
- ^ self printStringFormat:'%y%m%d'
-
-"/ ^ (self year printStringLeftPaddedTo:4 with:$0)
-"/ , (self month printStringLeftPaddedTo:2 with:$0)
-"/ , (self day printStringLeftPaddedTo:2 with:$0)
-
- "
- Date today yyyymmdd
- "
! !
!Date methodsFor:'accessing'!
@@ -2696,27 +2679,27 @@
%W - week in year - unpadded
%Y - year, last 2 digits only i.e. 99, 04 (danger: year 2k bug)
- %weekDay - day in week (1->monday, 2->tuesday, ... ,7->sunday)
-
- %dayName - full day name
- %DayName - full day name, first character uppercase
- %DAYNAME - full day name, all uppercase
-
- %monthName - full month name
- %MonthName - full month name, first character uppercase
- %MONTHNAME - full month name, all uppercase
-
- %shortDayName - short (abbreviated) day name
- %ShortDayName - short (abbreviated) day name, first character uppercase
- %SHORTDAYNAME - short (abbreviated) day name, all uppercase
-
- %shortMonthName - short (abbreviated) month name
- %ShortMonthName - short (abbreviated) month name, first character uppercase
- %SHORTMONTHNAME - short (abbreviated) month name, all uppercase
-
- %nth - counting day-in-month (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
- %weekDayNth - counting day-in-week (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
- %weekNth - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')"
+ %(weekDay) - day in week (1->monday, 2->tuesday, ... ,7->sunday)
+
+ %(dayName) - full day name
+ %(DayName) - full day name, first character uppercase
+ %(DAYNAME) - full day name, all uppercase
+
+ %(monthName) - full month name
+ %(MonthName) - full month name, first character uppercase
+ %(MONTHNAME) - full month name, all uppercase
+
+ %(shortDayName) - short (abbreviated) day name
+ %(ShortDayName) - short (abbreviated) day name, first character uppercase
+ %(SHORTDAYNAME) - short (abbreviated) day name, all uppercase
+
+ %(shortMonthName) - short (abbreviated) month name
+ %(ShortMonthName) - short (abbreviated) month name, first character uppercase
+ %(SHORTMONTHNAME) - short (abbreviated) month name, all uppercase
+
+ %(nth) - counting day-in-month (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
+ %(weekDayNth) - counting day-in-week (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
+ %(weekNth) - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')"
|day ds dsPadded0 dsPaddedB month ms msPadded0 msPaddedB
year weekInYear monthName shortMonthName
@@ -2798,7 +2781,7 @@
aDictionary at:#nth put:(#('th' 'st' 'nd' 'rd' 'th' 'th' 'th' 'th' 'th' 'th') at:day \\ 10 + 1).
"/ 0 1 2 3 4 5 6 7 8 9
- aDictionary at:#weekDayNth put:(#('th' 'st' 'nd' 'rd' 'th' 'th' 'th') at:dayOfWeek-1 \\ 10 + 1).
+ aDictionary at:#weekDayNth put:(#('th' 'st' 'nd' 'rd' 'th' 'th' 'th') at:(dayOfWeek-1) \\ 10 + 1).
"/ 0 1 2 3 4 5 6
aDictionary at:#weekNth put:(#('th' 'st' 'nd' 'rd' 'th' 'th' 'th' 'th' 'th' 'th') at:weekInYear \\ 10 + 1).
"/ 0 1 2 3 4 5 6 7 8 9
@@ -3017,11 +3000,11 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.136 2010-12-20 13:10:21 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.136 2010-12-20 13:10:21 stefan Exp $'
! !
Date initialize!