VB高手,请问如何给2009年6月18日21点06加24小时,以下语句text1为什么不显示结果?

Question

Private Sub Command1_Click()
Dim t
Dim time As Data
t = DateAdd("h", 24, time)
text1.text=t
End Sub 

Answer 1

time 定义为data而未赋值（为nothing），应该运行报错。Dim t
t = DateAdd("h", 24, Now)
text1.text=t

Answer 2

Private Sub Command1_Click()
Dim t
Dim ti As Date
ti = "2009-6-18 21:06"
t = Format(DateAdd("h", 24, ti), "yyyy年mm月dd日 hh时mm分")
Text1.Text = t
End Sub

Answer 3

些段有两个错误，一个不应该。
第一个错误是时间是date类型，不是data类型。
第二个错误是并没有给局部time变量赋初值。
一个不应该是最好不要用系统函数或方法名time做变量名（注意：是不应该，不是不可以）Private Sub Command1_Click()
  Dim t
  Dim time As Date
  time = "2009-06-18 21:06"
  t = DateAdd("h", 24, time)
  Text1.Text = t
End Sub

Answer 4

'Time是系统函数,用Now吧!需要的话也可以指定时间#2009-6-8 21:06:00#Private Sub Command1_Click()
Dim t As Date
t = DateAdd("h", 24, #6/8/2009 9:06:00 PM#)
Text1.Text = t
End Sub

Answer 5

关于自己是否适合编程的很简单的测试：
在报纸或杂志上随便找一段约1000字的文章，在Word中输入一遍。输完后再参考下面答案：
A里面有10处以上文字或标点错误
B里面没有文字或标点错误并敢为此跟人打赌
C里面没有文字或标点错误并且字体和排版完全与原稿一致
D打印在半透明的纸上和原稿重叠在一起检查一模一样，且自我感觉很有成就感A不适合编程
B初级程序员
C高级程序员
D软件项目经理如果想从A变成B的话，到我的资源http://download.csdn.net/zhao4zhong1里面下载“适合程序员的键盘练习”

Answer 6

Private Sub Command1_Click()
Dim t as string
Dim ti As Date
ti = "2009-6-18 21:06"
t = Format(ti+1#, "yyyy年mm月dd日 hh时mm分")
Text1.Text = t
End Sub