2010-02-16 4 views

Répondre

4

J'ai trouvé une solution pour cela.

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') 

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

+0

Vous devez le marquer comme la réponse acceptée si cela fonctionne pour vous – MartW

+0

grand .. cela fonctionne pour 11 12 et 13 aussi .. Je me demandais au sujet de la clause « 4 à 20 » quand je l'ai regardé pour la première fois. – ShoeLace