'==============================================================================
'フォーマット時間(表示)
'パラメーター:n_flag
'1: "yyyy-mm-ddhh:mm:ss"
'2: "yyyy-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(year(s_time))
M = CSTR(月(S_TIME))
iflen(m)= 1thenm = "0"&m
d = cstr(day(s_time))
iflen(d)= 1then = "0"&d
h = cstr(hour(s_time))
iflen(h)= 1thenh = "0"&h
mi = cstr(minute(s_time))
iflen(mi)= 1thenmi = "0"&mi
s = cstr(second(s_time))
iflen(s)= 1thens = "0"&s
selectcasen_flag
case1
'yyyy-mm-ddhh:mm:ss
format_time = y& " - "&m& " - "&d& "&h&": "&mi&": "&s
ケース2
'yyyy-mm-dd
format_time = y& " - "&m& " - "&d
ケース3
'HH:mm:ss
format_time = h& ":"&mi& ":"&s
ケース4
'yyyy year mm month dd day
format_time = y& "year"&m& "month"&d& "day"
ケース5
'yyyymmdd
format_time = y&m&d
EndSelect
エンド機能