只要一个函数 NOWmsgbox format(now,"YY年MM月DD日")

解决方案 »

  1.   


              Private Sub Form_Load()             Printer.Print Format(Date"yyyy") '年
                 
                 Printer.Print Format(Date,"MM") '月
                 
                 Printer.Print Format(Date,"dd") '月         End Sub
      

  2.   

    Date      返回包含系统日期的 Variant (Date)。Printer.Print Format(Date,"dd") '呵呵这个是 日
      

  3.   

    其实用NOW就可以行到当前的系统时间的全部数据;
    如:
    msgbox(now)dim date_temp as date
    date=now
    ……
    但你也可以用year(now)得到年,month(now)得到月,等等,可以任意得到你所需的数据。OVER!
      

  4.   

    Date    -返回系统当前日期
    Printer.Print Year(Date)   年
    Printer.Print Month(Date)  月
    Printer.Print Day(Date)    日
      

  5.   

    顺便
    Weekday 返回星期几
      

  6.   

    MsgBox Format(Date, "YYYY年MM月DD日 (DDDD)"), 64, "TODAY"