; 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