時刻をフォーマットする関数
VBScriptの日付時刻機能は極めて貧弱。なにかと多用する部分なので、作っておいて損はないだろうと考えて作ってみました。
日付部分は現状未対応です。
日付部分のフォーマットはこんな関数がありました。
http://billyboy.blog81.fc2.com/blog-entry-173.html
'---------------------------------------------------------------- '【関数】【汎用】時刻フォーマット関数 ' %A - AM or PM ' %a - am or pm ' %H - Hour with leading zeroes 12 hour (01 to 12) ' %h - Hour with leading zeroes 24 hour (01 to 24) ' %G - Hour without leading zeroes 12 hour (1 to 12) ' %g - Hour without leading zeroes 24 hour (1 to 24) ' %i - Minute with leading zeroes (01 to 60) ' %I - Minute without leading zeroes (1 to 60) ' %s - Second with leading zeroes (01 to 60) ' %S - Second without leading zeroes (1 to 60) Function FormatTime( ftD , fmt ) If Hour(ftD) > 12 Then fth12 = Hour(ftD)-12 : ampm = "pm" Else fth12 = Hour(ftD) : ampm = "am" End If fmt = Replace(fmt,"%A",UCase(ampm) ) fmt = Replace(fmt,"%a",ampm ) fmt = Replace(fmt,"%H",Right("0" & fth12, 2) ) fmt = Replace(fmt,"%h",Right("0" & Hour(ftD), 2) ) fmt = Replace(fmt,"%G",fth12 ) fmt = Replace(fmt,"%g",Hour(ftD) ) fmt = Replace(fmt,"%i",Right("0" & Minute(ftD), 2) ) fmt = Replace(fmt,"%I",Minute(ftD) ) fmt = Replace(fmt,"%s",Right("0" & Second(ftD), 2) ) fmt = Replace(fmt,"%S",Second(ftD) ) FormatTime = fmt end Function