Office中国论坛/Access中国论坛

标题: 请教取系统当前日期的年份及月份,不要日期 [打印本页]

作者: michael100 时间: 2010-4-14 15:46
标题: 请教取系统当前日期的年份及月份,不要日期
请教各位,取系统当前日期的年份及月份,不要日期(例如今天2010-04-14取为201004),怎么做?谢谢

作者: andymark 时间: 2010-4-14 16:24
format(date(),"yyyymm")

作者: xryacc2 时间: 2010-4-14 16:39
本帖最后由 xryacc2 于 2010-4-14 16:41 编辑

很简单啊，方法很多，这里为你写个很直观的两个例子:
年份及月份=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 时间: 2010-4-14 17:04
谢谢,明白了

作者: xryacc2 时间: 2010-4-14 17:14
andymark 的真简单。还不知可以“"yyyymm"”这样的。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)