如何得到当天的日期？

函数，用法，包括对一些格式的处理如：6/5/03，或03-5-6等。谢谢！

解决方案 »

  1.   

    Date函数
    以Variant类型返回系统日期.
    dim dt1 as date
    dim str1 as stringstr1 = format(dt1,"yyyy-mm-dd")  'format(dt1,"yy/mm/d")  '格式dim y as integer,m as integer,d as integer
    '年
    y = year(dt1)
    '月
    m = month(dt1)
    '日
    d = day(dt1)
      

  2.   

    formatdatetime函数
    返回一个日期或时间格式的表达式.其中Date是必需的要被格式化的日期表达式.NamedFormat是可选的数字值,表示日期/时间所使用的格式.如果忽略该值,则使用vbGeneralDate
    NamedFormat参数的设置值如下所示:
    vbGeneralDate:显示日期和/或时间.如果有日期部分,则用短日期格式显示.如果有时间部分,则用长时间格式
    vbLongDate:用计算机区域设置值中指定的长日期格式显示日期.
    vbShortDate:用计算机区域设置值中指定的短日期格式显示日期.
    vbLongTime:用计算机区域设置值中指定的时间格式显示.
    vbShortTime:用24小时格式(hh:mm)显示时语法
    FormatDateTime(Date[,NamedFormat])