格式化时间

<script language=vbs>
Function fmt(str)
  dim regEx
  Set regEx = New RegExp
  regEx.Pattern = "(?:/b)(/d)(?:/b)"
  regEx.Global = True
  fmt = regEx.replace(str,"0$1")
End Function
msgbox (now)
msgbox (fmt(now))
</script>