如題
如果有
麻煩教我下
謝謝

now()

显示时间？？？楼上那个说的可以啊，还有date()

'=================================================================================================
'该函数作用：按指定参数格式化显示时间。
'numformat=1:将时间转化为yyyy-mm-dd hh:nn格式。
'numformat=2:将时间转化为yyyy-mm-dd格式。
'numformat=3:将时间转化为hh:nn格式。
'numformat=4:将时间转化为yyyy年mm月dd日 hh时nn分格式。
'numformat=5:将时间转化为yyyy年mm月dd日格式。
'numformat=6:将时间转化为hh时nn分格式。
'numformat=7:将时间转化为yyyy年mm月dd日 星期×格式。
'numformat=8:将时间转化为yymmdd格式。
'numformat=9:将时间转化为mmdd格式。
Function FormatDate(byval shijian,byval numformat)
    dim ystr,mstr,dstr,hstr,nstr '变量含义分别为年字符串，月字符串，日字符串，时字符串，分字符串
  
    if isnull(shijian) then
      numformat=0
    else
      ystr=DatePart("yyyy",shijian)  
   
      if DatePart("m",shijian)>9 then
        mstr=DatePart("m",shijian)
      else
        mstr="0"&DatePart("m",shijian)  
      end if
  
      if DatePart("d",shijian)>9 then
        dstr=DatePart("d",shijian)
      else
        dstr="0"&DatePart("d",shijian)  
      end if
      
      if DatePart("h",shijian)>9 then
        hstr=DatePart("h",shijian)
      else
        hstr="0"&DatePart("h",shijian)  
      end if
      
      if DatePart("n",shijian)>9 then
        nstr=DatePart("n",shijian)
      else
        nstr="0"&DatePart("n",shijian)  
      end if
      
      if DatePart("s",shijian)>9 then
        sstr=DatePart("s",shijian)
      else
        sstr="0"&DatePart("s",shijian)  
      end if
    end if  
  
    select case numformat
    case 0
     FormatDate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr&":"&sstr
    case 1
     FormatDate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr
    case 2
     FormatDate=ystr&"-"&mstr&"-"&dstr
    case 3
     FormatDate=hstr&":"&nstr
    case 4
     FormatDate=mstr&"-"&dstr&" "&hstr&":"&nstr&""
    case 5
     FormatDate=ystr&"年"&mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"
    case 6
     FormatDate=ystr&"年"&mstr&"月"&dstr&"日"
    case 7
     FormatDate=mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"
    case 8
     FormatDate=ystr&"年"&mstr&"月"&dstr&"日 "&WeekdayName(Weekday(shijian))
    case 9
     FormatDate=right(ystr,2)&mstr&dstr
    case 10
     FormatDate=mstr&dstr
    end select
End Function

显示用输出语句
时间运算用时间函数
结合起来用就可以了

不知道你在说什么。。。

now()
date()
year()
month()
day()
...
...
...

下面几个好像需要类似于这样写吧
month(now())


再补充几个   hours()
             minute()
             second()

[ 本帖最后由 zhanxinlin 于 2010-10-13 22:56 编辑 ]