Source code for stardate.kix

; Parse current time into hours, minutes and seconds

$now  = @TIME

$hour = SubStr( $now, 1, InStr( $now, ":" ) - 1 )

$now  = SubStr( $now, InStr( $now, ":" ) + 1 )

$min  = SubStr( $now, 1, InStr( $now, ":" ) - 1 )

$sec  = SubStr( $now, InStr( $now, ":" ) + 1 )

; Check if current year is a leap year

$leapyear = 0;

If  ( @YEAR / 4 ) * 4 = @YEAR

	$leapyear = 1

EndIf

If  ( @YEAR / 100 ) * 4 = @YEAR

	$leapyear = 0

EndIf

If  ( @YEAR / 400 ) * 4 = @YEAR

	$leapyear = 1

EndIf

; Convert current date to stardate using the following procedure:

; [1] Subtract 2323 from the current year

; [2] Divide the number of days passed this year by the total number

;     of days this year, multiply by 1000, round to nearest whole digit

; [3] Multiply the hours by 60 and add the minutes, divide this number

;     by 144, round this number

; [4] StarDate is the concatenation of the steps 1,2,3 above

; Step [1]

$sY = @YEAR - 2323;

; Step [2]

$sX = 1000 * @YDAYNO / ( 365 + $leapyear )

; Step [3]: 72 / 144 is added to use the truncation as rounding

$sF = ( 72 + $min + ( 60 * $hour ) ) / 144

; Display the result

? "Stardate is now $sY$sX.$sF"

; Done

Exit 0

:Syntax

? "StarDate.kix,  Version 1.00"

? "Convert current day and time to stardate$n"

?

? "Usage:  KIX32.EXE  STARDATE.KIX"

?

? "Based on an algorithm found on The StarTrek Gallery"

? "http://www.trainerscity.com/startrek/"

?

? "Written by Rob van der Woude"

? "http://www.robvanderwoude.com"

?

Exit 1