home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / sonstiges / tools / ed-menü / arexx / WD.ed < prev   
Encoding:
Text File  |  1998-10-06  |  220 b   |  12 lines
  1. /* WD.ed (Week Day) */
  2. Address "Ed"
  3. Day=Date("W")
  4. Days="Mo Tu We Th Fr Sa Su"
  5. Tage="Montag Dienstag Mittwoch",
  6. " Donnerstag Freitag Samstag",
  7. " Sonntag"
  8. DayNr=Find(Days,Left(Day,2))
  9. Tag=Word(Tage,DayNr)
  10. 'E//'||Tag||'/'
  11.  
  12.