時刻をフォーマットする関数

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