Question

如何用vb代码在文本框中显示当前时间是上午或下午

Answer 1

Private Sub Command1_Click()
Dim s As Date
Dim bs As String
s = Now
Select Case Hour(s)
Case Is < 8
bs = "凌晨"
Case Is < 12
bs = "上午"
Case Is < 14
bs = "中午"
Case Is < 17
bs = "下午"
Case Else
bs = "晚上"
End Select
Label1.Caption = Format(s, "YYYY年MM月DD日 hh:mm:ss " & bs & " 星期" & Choose(Weekday(s), "日", "一", "二", "三", "四", "五", "六"))
End Sub

Answer 2

举个例子：按下数字1将文本框内容变为“你按下了1”：
private
sub
textbox1_keypress(keyascii
as
integer)
if
keyascii
=
asc("1")
textbox1.text="你按下了1"
else
textbox1.text="你按下的不是1"
end
if
end
sub

Answer 3

Format(Time, "ampm")