VB,Date型变量可不可以相互赋值

Question

Private LoginTime As DatePublic Sub SaveLoginTime(ByVal CurrentLoginTime As Date)
  LoginTime = CDate(CurrentLoginTime)
End Sub
这样为什么不行？？？输出值为FALSE。

Answer 1

应该没错啊。
我试下来无论CurrentLoginTime是时间或是日期，你的程序都能用啊。
没报错。

Answer 2

 CurrentLoginTime 是Date类型,不需要CDATE()
Private LoginTime As DatePublic Sub SaveLoginTime(ByVal CurrentLoginTime As Date)
  LoginTime = CurrentLoginTime
  Debug.Print LoginTime
End Sub