'=============================================================
'Format Waktu (Tampilan)
'Parameter: n_flag
'1: "yyyy-mm-ddhh: mm: ss"
'2: "yyyy-mm-dd"
'3: "HH: MM: SS"
'4: "yyyyy tahun mm bulan dd hari"
'5: "yyyymmdd"
'=============================================================
FunctionFormat_time (s_time, n_flag)
Dimy, m, d, h, mi, s
Format_time = ""
IfisDate (s_time) = falsethenexitfunction
y = cstr (tahun (s_time))
m = cstr (bulan (s_time))
Iflen (m) = 1thenm = "0" & m
d = cstr (hari (s_time))
Iflen (d) = 1then = "0" & d
h = cstr (jam (s_time))
Iflen (h) = 1thenh = "0" & h
mi = cstr (menit (s_time))
Iflen (mi) = 1thenmi = "0" & mi
s = cstr (kedua (s_time))
Iflen (s) = 1thens = "0" & s
SELECTCASEN_FLAG
Case1
'yyyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Kasus2
'yyyy-mm-dd
Format_time = y & "-" & m & "-" & d
Kasus3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Case4
'yyyy tahun mm bulan dd hari
Format_time = y & "tahun" & m & "bulan" & d & "hari"
Case5
'yyyymmdd
Format_time = y & m & d
Endselect
Fungsi endfungsi