菜鸟求教：如何得到本机的日期、时间，并在TextBox上显示？

哪位大虾能告诉小弟，用什么函数或方法能实现？

解决方案 »

  1.   

    如果要分开取日期和时间
    text1.text=formatdatetime(now(),vblongdate)
    text2.text=formatdatetime(now(),vblongtime)也可以使用Format函数还有很多日期时间函数
    Year()
    Month()
    Day()
    Hour()
    Minute()
    Second()
    等等
      

  2.   

    Text1.Text = Date
        Text2.Text = Time
      

  3.   

    text1.text=year(now())
    text2.text=month(now())
    text3.text=day(now())
      

  4.   

    private sub timer1_time()
    timer1.enabled=true
    timer1.interval=1000
      mydate=date
      mytime=time
     text1.text=cstr(mytime)
     text2.text=cstr(mydate)
    end sub
      

  5.   

    太感谢了，还有一个问题请教（是不是太贪心了），有没有控件能够不但显示日期，还可以做加一、减一操作的，除了ComboBox
      

  6.   

    加一个ScrollBar自己做处理好了,要不然可以用DTPicker控件.
      

  7.   

    Text1.text=format$(Year(now),"0000") & format$(Month(Now),"00") & format$(Day(Now),"00") & vbcrlf & format$(Hour(Now),"00") format$(Minute(Now),"00") & format$(Second(Now),"00")
      

  8.   

    再次请问“Cooly”大虾，ScrollBar、DTPicker，这两个控件是从哪里调用的呀？
    多谢！
      

  9.   

    Microsoft Windows Common Controls-2 6.0用UpDown控件和DTPicker