--- a/Date.st Fri Aug 28 12:38:51 2009 +0100
+++ b/Date.st Sat Oct 24 16:48:19 2009 +0100
@@ -157,7 +157,7 @@
DefaultFormats at:#'en' put:(enDefaultFormat := '%d-%m-%y').
ShortFormats at:#'en' put:(enShortFormat := '%d-%m-%y').
LongFormats at:#'en' put:(enLongFormat := '%(dayName), %d-%m-%y').
-
+ "/ take the "master" language here, for the caching
EnvironmentChange := (Smalltalk language asSymbol ~~ #'en').
"
@@ -357,7 +357,7 @@
is different from the format expected by readFrom:.
BUG:
This method handles american format (i.e. month/day/year),
- common format with letter month in the middle (10 December 2007)
+ common format with letter month in the middle (10 December 2007)
and ISO format (yyyy-mm-dd) - as long as yyyy is > 12.
It does not handle the german/french and other dd-mm-yyyy.
@@ -444,6 +444,11 @@
Date readFrom:'5:12:1999' printFormat:#( 2 1 3 )
Date readFrom:'may-12-1999' printFormat:#( 2 1 3 )
Date readFrom:'1999 may 12' printFormat:#( 3 2 1 )
+
+ Date readFrom:'31/12/01' printFormat:'%d %m %y' onError:'fail'
+ Date readFrom:'12/01' printFormat:'%m %y' onError:'fail'
+ Date readFrom:'01' printFormat:'%y' onError:'fail'
+ Date readFrom:'30.01' printFormat:'%d %m' onError:'fail'
"
"Created: 16.11.1995 / 22:50:17 / cg"
@@ -751,7 +756,6 @@
"
! !
-
!Date class methodsFor:'change & update'!
update:something with:aParameter from:changedObject
@@ -1623,13 +1627,26 @@
"
Date today
- Date today firstDayInMonth
+ Date today firstDayInMonth
+ Date today firstDayInMonth subtractDays:1
(Date today subtractDays:30) firstDayInMonth
(Date today subtractDays:122) firstDayInMonth
(Date today subtractDays:154) firstDayInMonth
"
!
+lastDayInMonth
+ "Return the last day in the month in which the receiver is."
+
+ ^ self addDays:(self daysInMonth - self day).
+
+ "
+ Date today
+ Date today lastDayInMonth
+ Date today lastDayInMonth addDays:1
+ "
+!
+
next:dayName
"Return the next date whose weekday name is dayName.
Caveat; dayName is expected to be in the current language"
@@ -2542,6 +2559,7 @@
"deprecated, use #asTimestamp"
<resource:#obsolete>
+ self obsoleteMethodWarning:'use #asTimestamp'.
^ self asTimestamp
!
@@ -2935,7 +2953,12 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Id: Date.st 10467 2009-08-19 16:14:36Z vranyj1 $'
+ ^ '$Id: Date.st 10473 2009-10-24 15:48:19Z vranyj1 $'
+!
+
+version_CVS
+ ^ '§Header: /cvs/stx/stx/libbasic/Date.st,v 1.129 2009/10/07 15:33:07 cg Exp §'
! !
Date initialize!
+