1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Quintiq file version 2.0
| #parent: #root
| Method UpdateYear (
| DateTime datetime
| ) declarative as DateTime
| {
| TextBody:
| [*
| newdate := datetime;
|
| if ( newdate.IsFinite() )
| {
| year := datetime.Year() + 1;
| month := datetime.Month();
| day := datetime.Day();
|
| if ( newdate.LeapYear() and month = 2 and day=29 )
| {
| day := day -1;
| }
| newdate := DateTime::Construct( year, month, day, datetime.HourOfDay(), datetime.MinuteOfHour(), datetime.SecondOfMinute());
| }
| return newdate;
| *]
| InterfaceProperties { Accessibility: 'Module' }
| }
|
|
