home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_DatFormG < prev    next >
Encoding:
Text File  |  1991-10-09  |  1.6 KB  |  59 lines
  1. %OP%DP0
  2. %OP%FX
  3. %OP%FY
  4. %OP%FS
  5. %OP%WC2,1478,708,1364,0,0,0,0
  6. %OP%VS3.81 Test (Oct  8 1991), Colton Software - Development, R0123 4567 8901 2345
  7. %CO:A,78,0%%V%%L%function("format_date","when","daypl","theon","dateon","suffon","ofon","monpl","yearpl","sep:text")
  8. %V%%L%if(type(@when)<>"date",result("Bad Date"),)
  9. %V%%L%set_name("yeartext",right(string(year(@when),0),@yearpl))
  10. %V%%L%set_name("month_table",b1b12)
  11. %V%%L%set_name("weekdays",c1c7)
  12. %V%%L%set_name("digit",mod(day(@when),10))
  13. %V%%L%set_name("suffixnames",c12c21)
  14. %V%%L%set_name("suffix",index(suffixnames,1,digit+1))
  15. %V%%L%if(@monpl<>-1,set_name("monthtext",mid(index(month_table,1,month(@when)),1,@monpl)),set_name("monthtext",string(month(@when),0)))
  16. %V%%L%set_name("daytext",mid(index(weekdays,1,weekday(@when)),1,@daypl))
  17. %V%%L%if(@daypl<>0,set_name("date_text",daytext),set_name("date_text",""))
  18. %V%%L%if(@theon=1,set_name("date_text",join(date_text,c9,@sep)),set_name("date_text",join(date_text,@sep)))
  19. %V%%L%if(@dateon=1,set_name("date_text",join(date_text,string(day(@when),0))),0)
  20. %V%%L%if(@suffon=1,set_name("date_text",join(date_text,suffix)),0)
  21. %V%%L%if(@ofon=1,set_name("date_text",join(date_text,@sep,c10)),set_name("date_text",join(date_text,@sep)))
  22. %V%%L%if(@monpl<>0,set_name("date_text",join(date_text,monthtext)),0)
  23. %V%%L%if(@yearpl<>0,set_name("date_text",join(date_text,@sep,yeartext)),0)
  24. %V%%L%if(left(date_text,1)=@sep,set_name("date_text",right(date_text,length(date_text)-1)),0)
  25. %V%%L%result(date_text)
  26. %CO:B,12,24%Januar
  27. Februar
  28. März
  29. April
  30. Mai
  31. Juni
  32. Juli
  33. August
  34. September
  35. Oktober
  36. November
  37. Dezember
  38. %CO:C,12,12%Sonntag
  39. Montag
  40. Dienstag
  41. Mittwoch
  42. Donnestag
  43. Freitag
  44. Samstag
  45.  
  46. ,
  47.  
  48.  
  49. en
  50. en
  51. en
  52. en
  53. en
  54. en
  55. en
  56. en
  57. en
  58. en
  59.