如何在一个文本框中显示系统当前日期？

Question

我看过的许多书上都是用date
如：
dim m_date as date
m_date=date
text1.text=m_date
可是，这样运行总是有错误

Answer 1

晕。。报什么错呀？我的怎么不报错。。
你不会没有TEXT1框吧？？

Answer 2

Private Sub Form_Load()
  Dim m_name As String
  Dim m_date As Data
  m_name = InputBox("请输入操作员的名字", "别墅预算")
  Text19.Text = m_name
  m_date = Date
  Text20.Text = m_date
End Sub这是源程序
运行时输入操作员的名字，然后出现如下提示：
实时错误‘91’
对象变量或with块变量未设置

Answer 3

用text1.text=format(now ,"yyyy-MM-DD hh:mm:ss")应该可以

Answer 4

Dim m_date As Data
 是date吧

Answer 5

Private Sub Form_Load()
  Dim m_name As String
  Dim m_date As Data  //晕倒，这里的Data应该是Date
  m_name = InputBox("请输入操作员的名字", "别墅预算")
  Text19.Text = m_name
  m_date = Date
  Text20.Text = m_date
End Sub

Answer 6

Private Sub Form_Load()
  Dim m_name As String
  m_name = InputBox("请输入操作员的名字", "别墅预算")
  Text19.Text = m_name
  Text20.Text = Date
End Sub
上面涉及的到的控件全部添加到窗体中