home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DATABASE / KPHANDYP.LBR / NEXTDATE.CZD / NEXTDATE.CMD
OS/2 REXX Batch file  |  2000-06-30  |  1KB  |  55 lines
  1. STOR date() to hold
  2. STOR val($(hold,7,2)) to yr
  3. IF planning='T' .or. reminder='T'
  4. STOR 1 to da
  5. STOR val($(hold,1,2))+1 to mo
  6. IF mo>12
  7. STOR yr+1 to yr
  8. STOR 1 to mo
  9. ENDI
  10. ELSE
  11. STOR val($(hold,4,2))+1 to da
  12. STOR val($(hold,1,2)) to mo
  13. ENDI
  14. IF da<10
  15. STOR '0'+str(da,1) to day
  16. ELSE
  17. STOR str(da,2) to day
  18. ENDI
  19. IF mo=2
  20. IF yr/4=int(yr/4) .and. da>29
  21. STOR '01' to day
  22. STOR mo+1 to mo
  23. ELSE
  24. IF yr/4#int(yr/4) .and. da>28
  25. STOR '01' to day
  26. STOR mo+1 to mo
  27. ENDI
  28. ENDI
  29. ENDI
  30. IF mo=9 .or. mo=4 .or. mo=6 .or. mo=11
  31. IF da>30
  32. STOR '01' to day
  33. STOR mo+1 to mo
  34. ENDI
  35. ENDI
  36. IF mo=1 .or. mo=3 .or. mo=5 .or. mo=7 .or. mo=8 .or. mo=10 .or. mo=12
  37. IF da>31
  38. STOR '01' to day
  39. STOR mo+1 to mo
  40. IF mo>12
  41. STOR 1 to mo
  42. STOR yr+1 to yr
  43. ENDI
  44. ENDI
  45. ENDI
  46. IF mo<10
  47. STOR '0'+str(mo,1) to month
  48. ELSE
  49. STOR str(mo,2) to month
  50. ENDI
  51. STOR str(yr,2) to year
  52. STOR month+'/'+day+'/'+year to today
  53. SET date to &today
  54. RETU
  55.