xpp.exe ( xbase++ 1.7 )

[48xDrive]

i am looking for xbase compiler ( not demo ) , actually i am a Ca Clipper programmer ( 5.3b, 5.2e ) , who can send me a copy of this software.

bmaj@hotmail.com

i have blinker 6.0 , is there a way use it instead of alink.exe?

SrFrog

// a little contribution

Example:
? Format_Date( "Mexico, D.F. a @nDay de @cMonth de @n4Year","05/05/2002" )

Result = Mexico, D.F. a 05 de Mayo de 2002 // Format Spanish

Function Format_Date( cFormat, cDate )
Local cForDate := Alltrim( cFormat )
Local nCount
Local aFind := {;
{ "@cDay" , { | x | aDay[ DoW(x) ] } },;
{ "@c3Day" , { | x | Left( aDay[ DoW(x) ],3) } },;
{ "@nDay" , { | x | AllTrim( TransForm(Day(x),"99&quot ) } },;
{ "@n2Day" , { | x | Filleft(TransForm(Day(x),"99&quot,'0') } },;
{ "@cMon" , { | x | aMonth[Month(x)] } },;
{ "@c3Mon" , { | x | Left(aMonth[Month(x)],3) } },;
{ "@nMon" , { | x | AllTrim( TransForm(Month(x),"99&quot ) } },;
{ "@n2Mon" , { | x | Filleft(TransForm(Month(x),"99&quot,'0') } },;
{ "@n4Year" , { | x | TransForm(Year(x),"9999&quot } },;
{ "@n2Year" , { | x | Right(TransForm(Year(x),"9999&quot,2) } },;
{ "@cNum" , { | x | DtoS(x) } };
}

For nCount := 1 to 11
cForDate := StrTran( cForDate, aFind[nCount,1],;
Eval( aFind[i,2], CtoD(cDate) ) )
Next
Return( cForDate )