请教取系统当前日期的年份及月份,不要日期

michael100

请教各位,取系统当前日期的年份及月份,不要日期(例如今天2010-04-14取为201004),怎么做?谢谢

andymark

format(date(),"yyyymm")

xryacc2

很简单啊，方法很多，这里为你写个很直观的两个例子:
年份及月份=year(date) & month(date)
'但这样大多数情况下月份＜10的变为个位数，即20104，而不是201004，因为month函数返回的值的类型是数值型。如果都要双位数月份，则如下变通。
Dim YearMonth '这个就是你要的年+双位数月份
Dim mon
mon = Month(Date)
If CInt(mon) >= 10 Then
   YearMonth = Year(Date) & mon
Else
   YearMonth = Year(Date) & "0" & mon
  End If
MsgBox YearMonth
'进阶一步，如果你要在全局中随时随地调用年+双位数月，只需把它变成函数，就可随时调用这个值：
'在模块中写这样的代码：
function YearMonth '这个就是随时随地可以调用的年+双位数月份，
'你还可以定义成具体的数值类型:function YearMonth as string（或long）
     Dim mon
     mon = Month(Date)
     If CInt(mon) >= 10 Then
           YearMonth = Year(Date) & mon
        Else
           YearMonth = Year(Date) & "0" & mon
      End If
end function

michael100

谢谢,明白了

xryacc2

andymark 的真简单。还不知可以“"yyyymm"”这样的。