2010-02-16 191 views

回答

4

我找到了解決方案。

NumberVar DayIn := Day (PrintDate); 
Totext (DayIn , 0) 
& (if DayIn in 4 to 20 then 'th' else 
if remainder (DayIn , 10) = 1 then 'st' else 
if remainder (DayIn , 10) = 2 then 'nd' else 
if remainder (DayIn , 10) = 3 then 'rd' else 'th') 

http://www.kenhamady.com/news0910.shtml

+0

它是否適合你,你應該把它標記爲接受的答案 – MartW 2010-02-16 16:44:55

+0

偉大的..這個工程的第11屆第12和13太..我已經不知道有關「4-20」條款當我第一次看到它。 – ShoeLace 2012-01-20 02:00:59