Question

想做一个vb小程序,输出当前的日期和时间

Private Sub Command1_Click()
Text1.Text = "今天是:" & Format(Date, "dddddd")
End Sub

Private Sub Command2_Click()
text2.Text = "北京时间:" & fromat(Time, "ttttt")
End Sub
但是日期的输出格式不对？今天是2008? 5? 14? ???

Answer 1

Private Sub Command1_Click()

Text1.Text = "今天是:" & Format(Date, "dddddd")

End Sub

Private Sub Command2_Click()

Text2.Text = "北京时间:" & Format(Time, "ttttt")

End Sub

Answer 2

取当前日期函数：date$
取当前时间函数：time$
取当前星期函数：weekdayname(weekday(date$)))
不知道有没有你有用的。

Answer 3

Private Sub Command1_Click()
Text1.Text = "今天是:" & Format(Date, "yy-mm-dd")
End Sub

Private Sub Command2_Click()
text2.Text = "北京时间:" & format(Time, "hh:mm:ss")
End Sub

Answer 4

text2.Text = "北京时间:" & fromat(Time, "ttttt") 改为：
text2.Text = "北京时间:" & format(Time, "hh:mm:ss")

Answer 5

text2.Text = "北京时间:" & fromat(Time, "ttttt") 中的fromat应该是format.