'==============================================================================
'フォーマット時間（表示）
'パラメーター：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
エンド機能