Try:
whileprintingrecords;
stringvar Myday:="";
if right(totext(day(currentdate),0,""),1) = "1" then
Myday:=totext(day(currentdate),0,"")+"st"
else
if right(totext(day(currentdate),0,""),1) = "2" then
Myday:=totext(day(currentdate),0,"")+"2nd"
else
if right(totext(day(currentdate),0,""),1) = "3" then
Myday:=totext(day(currentdate),0,"")+"3rd"
else
if day(currentdate) in [4 to 30] then
Myday:=totext(day,0,"")+"th";
totext(currentdate,"dddd") & " " & MyDay & " " & totext(currentdate,"MMMM") & " " & totext(year(currentdate),0,"")
-k