سلامی دوباره فقط همین برنامه repairdateformat کم بود :
*************************************************
* *
* *
* Function Repiar Date *
* Convert 1384/1/1 to *
* 1384/01/01 *
* Parameter: Character Date *
* Return : Repired Date format *
* *
* Last Update : 1384/08/12 *
* *
* *
*************************************************
LPARAMETERS tcDate
#DEFINE DELIMITERDATE "/"
RETURN STR(YearOfDate(tcDate),4)+;
DELIMITERDATE+;
PADL(ALLTRIM(STR(MonthOfDate(tcDate))),2,'0')+;
DELIMITERDATE+;
PADL(ALLTRIM(STR(DayOfDate(tcDate))),2,'0')