(view source code of tomorrow.kix as plain text)
; Tomorrow.kix, Version 1.10
; Display today's and tomorrow's date in two formats
; Written by Rob van der Woude
; http://www.robvanderwoude.com
; Today's date in YYYYMMDD format
$SortDate = ( 10000 * @YEAR ) + ( 100 * @MONTHNO ) + @MDAYNO
; Calculate tomorrow's date
$TomorD = @MDAYNO + 1
$TomorM = @MONTHNO
$TomorY = @YEAR
; It gets tricky when today is the last day of the month
; Thanks for Michael Kahle for correcting an error in the leapyear code
If @MDAYNO > 27
Select
Case @MONTHNO = 1 ; January
If @MDAYNO = 31
$TomorD = 1
$TomorM = 2
EndIf
Case @MONTHNO = 2 ; February
If @MDAYNO = 29
$TomorD = 1
$TomorM = 3
Else
If @MDAYNO = 28
$LeapYear = 0
If ( @YEAR / 4 ) * 4 = @YEAR
$LeapYear = 1
EndIf
If ( @YEAR / 100 ) * 100 = @YEAR
$LeapYear = 0
EndIf
If ( @YEAR / 400 ) * 400 = @YEAR
$LeapYear = 1
EndIf
If $LeapYear = 0
$TomorD = 1
$TomorM = 3
EndIf
EndIf
EndIf
Case @MONTHNO = 3 ; March
If @MDAYNO = 31
$TomorD = 1
$TomorM = 4
EndIf
Case @MONTHNO = 4 ; April
If @MDAYNO = 30
$TomorD = 1
$TomorM = 5
EndIf
Case @MONTHNO = 5 ; May
If @MDAYNO = 31
$TomorD = 1
$TomorM = 6
EndIf
Case @MONTHNO = 6 ; June
If @MDAYNO = 30
$TomorD = 1
$TomorM = 7
EndIf
Case @MONTHNO = 7 ; July
If @MDAYNO = 31
$TomorD = 1
$TomorM = 8
EndIf
Case @MONTHNO = 8 ; August
If @MDAYNO = 31
$TomorD = 1
$TomorM = 9
EndIf
Case @MONTHNO = 9 ; September
If @MDAYNO = 30
$TomorD = 1
$TomorM = 10
EndIf
Case @MONTHNO = 10 ; October
If @MDAYNO = 31
$TomorD = 1
$TomorM = 11
EndIf
Case @MONTHNO = 11 ; November
If @MDAYNO = 30
$TomorD = 1
$TomorM = 12
EndIf
Case @MONTHNO = 12 ; December
If @MDAYNO = 31
$TomorD = 1
$TomorM = 1
$TomorY = $TomorY + 1
EndIf
EndSelect
EndIf
; Tomorrow's date in YYYYMMDD format
$SortTomor = ( 10000 * $TomorY ) + ( 100 * $TomorM ) + $TomorD
If $TomorD < 10
$TomorD = "0" + $TomorD
EndIf
If $TomorM < 10
$TomorM = "0" + $TomorM
EndIf
; Display the results
? "Format: YYYYMMDD (DD/MM/YYYY)"
? "=================================="
? "Today: $SortDate (@MDAYNO/@MONTHNO/@YEAR)"
? "Tomorrow: $SortTomor ($TomorD/$TomorM/$TomorY)"
?
; Done
Exit
page last modified: 2024-04-16; loaded in 0.0058 seconds