'=============================================================
'Tiempo de formato (pantalla)
'Parámetro: n_flag
'1: "aaa yyy-mm-ddhh: mm: ss"
'2: "aaa yyy-mm-dd"
'3: "HH: MM: SS"
'4: "Yyyyy Year Mm Month Dd Day"
'5: "Yyyymmdd"
'=============================================================
FunctionFormat_time (s_time, n_flag)
Dimy, M, D, H, Mi, S
Format_time = ""
Ifisdate (s_time) = falsethenexitfunction
y = cstr (año (s_time))
M = CSTR (mes (S_Time))
Iflen (m) = 1thenm = "0" & m
d = cstr (día (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" y mi
S = CSTR (segundo (S_Time))
Iflen (s) = 1thens = "0" & s
Selectcasen_flag
Caso1
'aaa yyy-mm-ddhh: mm: ss
Format_time = y & "-" & m & "-" & d & "" & h & ":" & mi & ":" & s
Caso2
'aaa-mm-dd
Format_time = y & "-" & m & "-" & d
Case3
'HH: MM: SS
Format_time = h & ":" & mi & ":" & s
Caso4
'YYYY Año mm mes DD Día
Format_time = y & "año" & m & "mes" & d & "día"
Case5
'ayyymmdd
Format_time = y & m & d
EndSelectar
Función final