home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1995 / ARCHIVE95.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_DatFormF < prev    next >
Encoding:
Text File  |  1991-10-09  |  1.7 KB  |  59 lines
  1. %OP%DP0
  2. %OP%FX
  3. %OP%FY
  4. %OP%FS
  5. %OP%WC2,1652,944,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,@sep,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%Janvier
  27. FΘvrier
  28. Mars
  29. Avril
  30. Mai
  31. Juin
  32. Juillet
  33. Ao√t
  34. SΘptembre
  35. Octobre
  36. Novembre
  37. DΘcembre
  38. %CO:C,12,12%dimanche
  39. lundi
  40. mardi
  41. mercredi
  42. jeudi
  43. vendredi
  44. samedi
  45.  
  46. ,le
  47.  
  48.  
  49. me
  50. Φre
  51. me
  52. me
  53. me
  54. me
  55. me
  56. me
  57. me
  58. me
  59.