Scripting Example 20

; *****************************************************

; Example20.ftp

; =============

; This example shows the use Date functions

; Like:

; JulianToDate()

; DateToJulian()

; Day()

; Month()

; Year()

; -----------------------------------------------------

NumVariable Num

NumVariable Christmas

Let A = %%Today%%

Let Num = DateToJulian(%%A%%)

Let Num = Num - 1

Let A = JulianToDate(%%Num%%)

Message "Yesterday was: %%A%%"

Let A = %%Today%%

Let Num = DateToJulian(%%A%%)

Let Num = Num - 7

Let A = JulianToDate(%%Num%%)

Message "A week ago it was: %%A%%"

Let A = %%Today%%

Let Num = DateToJulian(%%A%%)

Let Christmas = DateToJulian("24.12.1998")

Let Num = Christmas - Num

Message "There are %%Num%% days to Christmas!"

Let Num = Month(%%Today%%)

Message "Today's month is %%Num%%"

Let Num = Day(%%Today%%)

Message "Today's day of month is %%Num%%"

Let Num = Year(%%Today%%)

Message "The year is %%Num%%"