'=============================================================
'Time de formato (exibição)
'Parâmetro: n_flag
'1: "AAAA-MM-DDHH: MM: SS"
'2: "AAAA-MM-DD"
'3: "hh: mm: ss"
4: "AAA ANYYY ANO MM Mês DD DIA"
'5: "AAYYYMMDD"
'=============================================================
FunctionFormat_time (s_time, n_flag)
Dimy, M, D, H, Mi, S.
Format_time = ""
Ifisdate (s_time) = falseTenexitfunction
y = cstr (ano (s_time))
m = cstr (mês (s_time))
Iflen (m) = 1ThenM = "0" & m
d = cstr (dia (s_time))
Iflen (d) = 1then = "0" & d
h = cstr (hora (s_time))
Iflen (h) = 1Thenh = "0" & h
mi = cstr (minuto (s_time))
Iflen (mi) = 1ThenMi = "0" & Mi
s = cstr (segundo (s_time))
Iflen (s) = 1Thens = "0" & s
SELECLECASEN_FLAG
Case1
'yyyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Case2
'AAAA-MM-DD
Format_time = y & "-" & m & "-" & d
Case3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Case4
'AAA ANO ANO MM Mês DD DIA
Format_time = y & "ano" e "mês" e "dia"
Case5
'yyyymmdd
Format_time = y & m & d
EndSelect
Função final