Question

vb,format有关时间格式的问题

例如：Text1 = Format("20:12:40", "h小时m分s秒")
　　　或是format(time, "h小时m分s秒")
1、如何显示12制的时间，也就是说如何让20点，显示出来8点
2、如何显示上午或下午？

Answer 1

format(time,"Medium Time") '---带AM/PM的12小时制，不带秒 或者使用联合格式化:显示为hh:mm AM/PM format(time,"hh:mm AM/PM") 显示为h:mm:ss a/pformat(time,"h:mm:ss a/p")

Answer 2

求模就行了，MOD（），>0 and <12 就是早上else下午

Answer 3

Format(Now, "yyyymmddhhmmss")format(time,"hh:mm AM/PM")

Answer 4

Private Sub Form_Load()
MsgBox Format(Time, "ampm h:m:s")
End Sub