home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / dosutils / env18a.arj / DATE.ENV < prev    next >
Text File  |  1992-04-23  |  2KB  |  60 lines
  1. list comspec ┌───────────────────────────────────────────────────────────────────┐
  2. list comspec │ ENV v1.7z - The Master Environment Utility - Copr. K.Eikland 1992 │
  3. list comspec ├───────────────────────────────────────────────────────────────────┤
  4. list comspec │  ENV is a Shareware program, which means you may freely try out   │
  5. list comspec │  its capabilities on your computer for a limited period of time.  │
  6. list comspec │  If you find - as I think you will - that you make use of ENV     │
  7. list comspec │  and wish to become an authorized user, please follow the         │
  8. list comspec │  instructions in the ORDERENV.TXT file.                           │
  9. list comspec │                                                                   │
  10. list comspec │ User feedback welcome!                              CIS 72461,556 │
  11. list comspec └───────────────────────────────────────────────────────────────────┘
  12. list comspec . Here's an example of ENV's mathematical and date/time capabilities
  13. list comspec .
  14.  
  15. set time=int(100*timenow())/100
  16. calc time
  17. list time The current time is {get*value}
  18. erase time
  19.  
  20. set year=int(datenow())
  21. calc year
  22. set monthn=January,February,March,April,May,June,July,August,September,October,November,December
  23. calc month=monthn(int(100*(datenow()-%year%)))
  24.  
  25. set year=roman(%year%)
  26. calc year
  27. set day=round(100*frac(100*datenow()))
  28. calc day
  29. list comspec The current date is %day% %month% in the year %year%
  30. erase day
  31. erase month*
  32. erase year
  33.  
  34. set dayn=int((days(datenow())+5){MOD}7+0.1)
  35. calc dayn
  36. set dayn=%dayn%+7*(%dayn%{EQ}0)
  37. calc dayn
  38. list dayn The week's day number is {get*value}
  39. set day1=Monday
  40. set day2=Tuesday
  41. set day3=Wednesday
  42. set day4=Thursday
  43. set day5=Friday
  44. set day6=Saturday
  45. set day7=Sunday
  46. set% dayn=day%dayn%
  47. list dayn The weekday is a {get*value}
  48. erase day?
  49.  
  50. set dayone=days(int(datenow())+0.0101)
  51. calc dayone
  52. set weekone=(int((%dayone%+5){MOD}7+0.1)){GT}3
  53. calc weekone
  54. set week=(days(datenow())-%dayone%){DIV}7+%weekone%+1
  55. calc week
  56. list week This is Week {get*value}
  57. erase dayone
  58. erase weekone
  59. erase week
  60.