creat a custome function name test in crystal report, select "Basic Syntax" from drop down.
Function test (t as date) as string
dim outString as string
if day(t)=1 then
outString="1st day of "
else
if day(t)=2 then
outString="2nd day of "
else
if day(t)=3 then
outString="3rd day of "
else
if day(t)=4 then
outString="4th day of "
else
if day(t)=5 then
outString="5th day of "
End if
end if
end if
end if
end if
if month(t)=1 then
outString=outString + "January, " + Replace (ToText (year(t),0),"," ,"" )
else
if month(t)=2 then
outString=outString + "February, " + Replace (ToText (year(t),0),"," ,"" )
else
if month(t)=3 then
outString=outString + "March, " + Replace (ToText (year(t),0),"," ,"" )
else
if month(t)=4 then
outString=outString + "April, " + Replace (ToText (year(t),0),"," ,"" )
else
if month(t)=5 then
outString=outString + "May, " + Replace (ToText (year(t),0),"," ,"" )
End if
end if
end if
end if
end if
test =outString
End Function
call this function from new formula fields.
Formula=test(CDate ({Command.Work_date}))
put the formula field into report details section.