As you can see we now have our own little Meltdown counter for Y2k on Line 18. Lines 19 and 20 enable us to calculate some other troublesome dates.
We just follow the Rules that we established in the rough test.
/WGFG
A B C D E F G H
1 Y2K CINDERELLA DATE CRUNCHER (page down for Instructions)
2
3 Clean display | Workarea
4 Data leapyear? | @datevalue
5 date >> 29/02/2000 yes | 36585
6 new 2000/02/29 ERR | ERR
7 acceptable 01/01/2000 yes | 36526
8 old 01/01/97 no | 35431
9 new 1997/01/27 ERR | ERR
10
11 split into : | @year @month @day
12 redisplay 36585 <-(@date) | 100 2 29
13 | 2000
14 time >> 17:23:00 | 0.72430555
15 | @hour @minute @second
16 0.72430555 <-(@time) | 17 23 0
17 |
18 Meltdown in 1066 days | reworked as ERR
19 Dday - 999 35527 <-(@date) | 97 4 7 35527
20 Dday - 9999 26527 <-(@date) | 72 8 16 26527
Instructions
(LOTUS 2.x)
1) start with globals /WGFG
2) Change fields marked >> and see
3) Try /WGFD4
Using /WGFD4 just to see the date displays:
A B C D E F G H
1 Y2K CINDERELLA DATE CRUNCHER (page down for Instructions)
2
3 Clean display | Workarea
4 Data leapyear? | @datevalue
5 date >> 29/02/2000 yes | 29/02/2000
6 new 2000/02/29 ERR | ERR
7 acceptable 01/01/2000 yes | 01/01/2000
8 old 01/01/97 no | 01/01/97
9 new 1997/01/27 ERR | ERR
10
11 split into : | @year @month @day
12 redisplay 29/02/2000 <-(@date) | 09/04/00 02/01/00 29/01/00
13 | 22/06/05
14 time >> 17:23:00 | 00/01/00
15 | @hour @minute @second
16 00/01/00 <-(@time) | 17/01/00 23/01/00 00/01/00
17 |
18 Meltdown in 01/12/02 days | reworked as ERR
19 Dday - 999 07/04/97 <-(@date) | 06/04/00 04/01/00 07/01/00 07/04/97
20 Dday - 9999 16/08/72 <-(@date) | 12/03/00 08/01/00 16/01/00 16/08/72
And Here are the Cells:
Please note the use of the Infamous "Simplex" leapyear
algorithm which despite its impurity and moral
turpitude has the unfortunate and embarassing quality
of working correctly within the life span of any
machine that it might run on.
Just to labour the point, I used it not just once but 5 times.
A1: 'Y2K CINDERELLA DATE CRUNCHER
D1: [W2] '(page down for Instructions)
B3: 'Clean display
D3: [W2] '|
F3: 'Workarea
B4: 'Data
C4: ' leapyear?
D4: [W2] '|
E4: ' @datevalue
A5: 'date >>
B5: '29/02/2000
C5: @IF(@MOD(@YEAR(E5),4)=0,"yes","no") <- Here it is!
D5: [W2] '|
E5: @DATEVALUE(B5)
A6: 'new
B6: '2000/02/29
C6: @IF(@MOD(@YEAR(E6),4)=0,"yes","no")
D6: [W2] '|
E6: @DATEVALUE(B6)
A7: 'acceptable
B7: '01/01/2000
C7: @IF(@MOD(@YEAR(E7),4)=0,"yes","no")
D7: [W2] '|
E7: @DATEVALUE(B7)
A8: 'old
B8: '01/01/97
C8: @IF(@MOD(@YEAR(E8),4)=0,"yes","no")
D8: [W2] '|
E8: @DATEVALUE(B8)
A9: 'new
B9: '1997/01/27
C9: @IF(@MOD(@YEAR(E9),4)=0,"yes","no")
D9: [W2] '|
E9: @DATEVALUE(B9)
B11: 'split into :
D11: [W2] '|
E11: '@year
F11: '@month
G11: '@day
A12: 'redisplay
B12: @DATE(E12,F12,G12)
C12: '<-(@date)
D12: [W2] '|
E12: @YEAR(E5)
F12: @MONTH(E5)
G12: @DAY(E5)
D13: [W2] '|
E13: 1900+E12
A14: 'time >>
B14: '17:23:00
D14: [W2] '|
E14: @TIMEVALUE(B14)
D15: [W2] '|
E15: '@hour
F15: '@minute
G15: '@second
B16: @TIME(E16,F16,G16)
C16: '<-(@time)
D16: [W2] '|
E16: @HOUR(E14)
F16: @MINUTE(E14)
G16: @SECOND(E14)
D17: [W2] '|
A18: 'Meltdown in
B18: @DATEVALUE("01/01/2000")-@INT(@NOW)
C18: 'days
D18: [W2] '|
E18: 'reworked as
F18: @DATEVALUE("2000/01/01")-@INT(@NOW)
A19: 'Dday - 999
B19: @DATE(E19,F19,G19)
C19: '<-(@date)
D19: [W2] '|
E19: @YEAR(H19)
F19: @MONTH(H19)
G19: @DAY(H19)
H19: @DATEVALUE("01/01/2000")-999
A20: 'Dday - 9999
B20: @DATE(E20,F20,G20)
C20: '<-(@date)
D20: [W2] '|
E20: @YEAR(H20)
F20: @MONTH(H20)
G20: @DAY(H20)
H20: @DATEVALUE("01/01/2000")-9999
B23: 'Instructions
B25: "(LOTUS 2.x)
A26: '1) start with globals /WGFG
A27: '2) Change fields marked >> and see
A28: '3) Try /WGFD4
So despite naysaying, I think we have categorically proved that Lotus 1-2-3 version 2.0x can be used successfully for Y2k even on old versions of Operating Systems, provided we use a specific set of rules.
So Lotus 2.0x gets Acceptability Index 6, 2 digit ambigous date form. It would have scored higher if it was year/month/day.
"The Beginning of Wisdom is when you Realise that You Know Nothing - and that other people know even less" - The Inter-Galactic Slug