Fungsi STOD (Microsoft Visual FoxPro)

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().

Leave a Reply

Your email address will not be published. Required fields are marked *

[+] kaskus emoticons nartzco

What is 3 + 5 ?
Please leave these two fields as-is: