home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / WIN95 / INTERNET / ftpctrl3b8.exe / %MAINDIR% / Scripts / Example20.ftp < prev    next >
Encoding:
Text File  |  1999-02-07  |  965 b   |  42 lines
  1. ; *****************************************************
  2. ; Example20.ftp
  3. ; =============
  4. ; This example shows the use Date functions
  5. ; Like:
  6. ;    JulianToDate()
  7. ;    DateToJulian()
  8. ;    Day()
  9. ;    Month()
  10. ;    Year()
  11. ; -----------------------------------------------------
  12.  
  13. NumVariable Num
  14. NumVariable Christmas
  15.  
  16. Let A = %%Today%%
  17. Let Num = DateToJulian(%%A%%)
  18. Let Num = Num - 1
  19. Let A = JulianToDate(%%Num%%)
  20. Message "Yesterday was: %%A%%"
  21.  
  22. Let A = %%Today%%
  23. Let Num = DateToJulian(%%A%%)
  24. Let Num = Num - 7
  25. Let A = JulianToDate(%%Num%%)
  26. Message "A week ago it was: %%A%%"
  27.  
  28. Let A = %%Today%%
  29. Let Num = DateToJulian(%%A%%)
  30. Let Christmas = DateToJulian("24.12.1998")
  31. Let Num = Christmas - Num
  32. Message "There are %%Num%% days to Christmas!"
  33.  
  34. Let Num = Month(%%Today%%)
  35. Message "Today's month is %%Num%%"
  36.  
  37. Let Num = Day(%%Today%%)
  38. Message "Today's day of month is %%Num%%"
  39.  
  40. Let Num = Year(%%Today%%)
  41. Message "The year is %%Num%%"
  42.