Fungsi STOD (String to Date) adalah fungsi buatan sendiri yang bertugas untuk melakukan
konversi data tanggal yang berbentuk string ke bentuk data yang bertype tanggal.
1 2 3 4 5 6 7 8 9 10 11 | FUNCTION STOD LPARAMETERS string_date LOCAL lc_a SET DATE TO BRITISH lc_a=string_date lc_a=IIF(TYPE("lc_a")#"C",DTOS(DATE()),lc_a) lc_a=IIF(LEN(ALLTRIM(lc_a))<>8,SPACE(8),lc_a) lc_a=RIGHT(lc_a,2)+"/"+SUBSTR(lc_a,5,2)+"/"+LEFT(lc_a,4) RETURN CTOD(lc_a) |
Simpan listing program di atas pada sebuah file sebagai contoh PRCUMUM.PRG
Perhatikan penggunaan fungsi ini
SET PROCEDURE TO PRCUMUM
A=”20081231″
? stod(a)
31/12/2008
dalam Microsoft Visual FoxPro lawan dari fungsi ini adalah fungsi DTOS().