Source code for tomorrow.kix

```
; 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
```
```
 
```