Membuat Fungsi Nama Bulan Bahasa Indonesia di FoxPro

Fungsinya adalah sebagai berikut :

function Ctgl(X)  
local nbulan,cBulan  
nBulan=month(x)  
do case     
 case nbulan=1          
  cbulan='Januari'     
 case nbulan=2          
  cbulan='Pebruari'     
 case nbulan=3          
  cbulan='Maret'     
 case nbulan=4         
  cbulan='April'     
 case nbulan=5                
  cbulan='Mei'     
 case nbulan=6          
  cbulan='Juni'     
 case nbulan=7          
  cbulan='Juli'     
 case nbulan=8          
  cbulan='Agustus'     
 case nbulan=9          
  cbulan='September'     
 case nbulan=10                
  cbulan='Oktober'    
 case nbulan=11          
  cbulan='Nopember'     
 case nbulan=12          
  cbulan='Desember'  
endcase                
tglbulan=ltrim(str(day(X)))+' '+cbulan+' '+STR(YEAR(x),4)
return tglbulan

pemangginalnnya :

Ctgl(DATE())
thisform.lblDate.Caption = "TANGGAL : "+tglbulan