2694 %weekDayNth - counting day-in-week (1->'st'; 2->'nd'; 3->'rd'; 4...->'th') |
2694 %weekDayNth - counting day-in-week (1->'st'; 2->'nd'; 3->'rd'; 4...->'th') |
2695 %weekNth - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')" |
2695 %weekNth - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')" |
2696 |
2696 |
2697 |day ds dsPadded0 dsPaddedB month ms msPadded0 msPaddedB |
2697 |day ds dsPadded0 dsPaddedB month ms msPadded0 msPaddedB |
2698 year weekInYear monthName shortMonthName |
2698 year weekInYear monthName shortMonthName |
2699 dayInWeek dayOfWeek dayName shortDayName ws wsPadded0 t| |
2699 dayInWeek dayOfWeek dayName shortDayName ws wsPadded0| |
2700 |
2700 |
2701 day := self day. |
2701 day := self day. |
2702 ds := day printString. |
2702 ds := day printString. |
2703 dsPaddedB := day printStringLeftPaddedTo:2. |
2703 dsPaddedB := day printStringLeftPaddedTo:2. |
2704 dsPadded0 := day printStringLeftPaddedTo:2 with:$0. |
2704 dsPadded0 := day printStringLeftPaddedTo:2 with:$0. |
2738 year ~~ Date today year ifTrue:[ |
2738 year ~~ Date today year ifTrue:[ |
2739 aDictionary at:#yearOrTime put:(' ' , year printString). |
2739 aDictionary at:#yearOrTime put:(' ' , year printString). |
2740 ]. |
2740 ]. |
2741 |
2741 |
2742 aDictionary at:$d put:dsPadded0. |
2742 aDictionary at:$d put:dsPadded0. |
2743 aDictionary at:#d put:dsPadded0. |
|
2744 aDictionary at:$D put:ds. |
2743 aDictionary at:$D put:ds. |
2745 aDictionary at:#D put:ds. |
|
2746 aDictionary at:$m put:msPadded0. |
2744 aDictionary at:$m put:msPadded0. |
2747 aDictionary at:#m put:msPadded0. |
|
2748 aDictionary at:$M put:ms. |
2745 aDictionary at:$M put:ms. |
2749 aDictionary at:#M put:ms. |
|
2750 aDictionary at:$y put:year. |
2746 aDictionary at:$y put:year. |
2751 aDictionary at:#y put:year. |
2747 aDictionary at:$Y put:((year \\ 100) printStringLeftPaddedTo:2 with:$0). |
2752 aDictionary at:$Y put:(t := (year \\ 100) printStringLeftPaddedTo:2 with:$0). |
|
2753 aDictionary at:#Y put:t. |
|
2754 aDictionary at:$w put:wsPadded0. |
2748 aDictionary at:$w put:wsPadded0. |
2755 aDictionary at:#w put:wsPadded0. |
|
2756 aDictionary at:$W put:ws. |
2749 aDictionary at:$W put:ws. |
2757 aDictionary at:#W put:ws. |
|
2758 |
2750 |
2759 aDictionary at:#monthName put:monthName. |
2751 aDictionary at:#monthName put:monthName. |
2760 aDictionary at:#monthname put:monthName. |
2752 aDictionary at:#monthname put:monthName. |
2761 aDictionary at:#MonthName put:monthName asUppercaseFirst. |
2753 aDictionary at:#MonthName put:monthName asUppercaseFirst. |
2762 aDictionary at:#MONTHNAME put:monthName asUppercase. |
2754 aDictionary at:#MONTHNAME put:monthName asUppercase. |