请问：如何编程实现24小时制对12小时制的转换

Question

FormatDateTime 函数 描述
返回表达式，此表达式已被格式化为日期或时间。 
语法
FormatDateTime(Date[,NamedFormat])
FormatDateTime 函数的语法有以下参数：
参数描述
Date必选。要被格式化的日期表达式。
NamedFormat可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。设置
NamedFormat 参数可以有以下值：
常数值描述
vbGeneralDate0显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。 
vbLongDate1使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate2使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime3使用计算机区域设置中指定的时间格式显示时间。
vbShortTime4使用 24 小时格式 (hh:mm) 显示时间。

Answer 1

<script>
    var now = new Date()
    var hours = now.getHours()
    if (hours>12)
       {twhours = hours -12 }
//twhours 就是你要的
</script>

Answer 2

FormatDateTime 函数 描述
返回表达式，此表达式已被格式化为日期或时间。 
语法
FormatDateTime(Date[,NamedFormat])
FormatDateTime 函数的语法有以下参数：
参数描述
Date必选。要被格式化的日期表达式。
NamedFormat可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。设置
NamedFormat 参数可以有以下值：
常数值描述
vbGeneralDate0显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。 
vbLongDate1使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate2使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime3使用计算机区域设置中指定的时间格式显示时间。
vbShortTime4使用 24 小时格式 (hh:mm) 显示时间。