An example:
SuperStrict
Framework BaH.DateTime
Import BRL.StandardIO
Local D:TDate = TDate.localday()
Local Mitr:TDateMonthIterator = D.monthIterator()
Local Ditr:TDateDayIterator = D.dayIterator()
Local Yitr:TDateYearIterator = D.yearIterator()
Ditr.forward()
Mitr.forward()
Yitr.forward()
Print "Start date: " + D.Format("%d %B %Y")
Print "Day iterator: " + Ditr.Format("%d %B %Y")
Print "Month iterator: " + Mitr.Format("%d %B %Y")
Print "Year iterator: " + Yitr.Format("%d %B %Y")
Which gives the following interesting output:
Start date: 01 March 2009
Day iterator: 18 July 8755
Month iterator: 04 September 8755
Year iterator: 11 August 8755
Is this fixable? :)
|