有什么函数能够得到当前的月份？？？

Question

Private Sub Form_Load()
Label1.Caption = Month(Date)
End Subform上添加以各LABEL标签～

Answer 1

Dim MyMonth
MyMonth = Month(now)

Answer 2

Month(Date)Private Sub Form_Load()
    Label1.Caption = Month(Date)
End Sub

Answer 3

Month(M)   返回M所表示的月份名（1-12）

Answer 4

month(date)
'//////////////////////////
本示例使用 Month 函数来得知某个日期的月份。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。Dim MyDate, MyMonth
MyDate = #February 12, 1969#   ' 指定一日期。
MyMonth = Month(MyDate)   ' MyMonth 的值为 2。

Answer 5

pivate sub myfunc()
dim mymonth as cstring
mymonth=month(now)    
end sub

Answer 6

Month 函数返回指定日期中的月部分。