sclass DateStructures { asclass SomeDate {} // years srecord Year(int year) > SomeDate {} srecord CurrentYearPlus(int nYears) > SomeDate {} // months srecord Month(Year year, int month) > SomeDate {} srecord CurrentMonthPlus(int nMonths) > SomeDate {} // weeks srecord WeekOfYear(int year, int week) > SomeDate {} srecord CurrentWeekPlus(int nWeeks) > SomeDate {} // days srecord Day(Month month, int day) > SomeDate {} srecord TodayPlus(int nDays) > SomeDate {} // hours srecord Hour(Day day, Bool isPM) > SomeDate {} srecord CurrentHourPlus(int nHours) > SomeDate {} // minutes srecord Minute(Hour hour, int minute) > SomeDate {} srecord CurrentMinutePlus(int nMinutes) > SomeDate {} }