Dim strDate As String
  strDate = Format(Date, "YYYYMMDD")

解决方案 »

  1.   

    那要是显示时分秒那?FORMAT应该怎么写?
      

  2.   

    时分秒是要用time函数的,不是用date
      

  3.   

    text1.text= Now
    显示如下"2001-8-31 11:14:57"
      

  4.   

      strDate = Format(Date, "YYYYMMDD") & " " & Format(Time, "hh:dd:mm")
    可以没有:
      

  5.   

    dim str as string 
    stryear
    if len(year(date))<> 4 then
       stryear=20 & year(date)
    endif 
    str=stryear & month(date) & day(date)
      

  6.   

    刚才错了
    strDate = Format(Now, "YYYYMMDD hhmmss")
      

  7.   

    x=Date(x为变量)  取得日期
    Date=x  更改日期
      

  8.   

    呵呵~怎么没有人用Timer变量啊?可以精确到毫秒啊