vba函数--month函数_欢乐小爪

http://blog.sina.com.cn/u/2863201322

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

vba函数--month函数

(2013-01-19 09:47:25)

标签：

杂谈

分类： excel-vba

Month 和 MonthName函数
一、题目：
要求编写一段代码，用Month 函数来返回某个日期的月份数，用MonthName函数返回这个月份的字符串。
二、代码：
Sub 示例_1_029()
   Dim rq, Yuef
   rq = #2008-8-12#
   Yuef = Month(rq)
   MsgBox MonthName(yuef)
End Sub
三、代码详解
1、Sub 示例_1_029()：宏程序的开始语句。宏名为示例_1_029。
2、Dim rq, Yuef  ：声明变量均为可变型变量。
3、rq = #2008-8-12#    ：把指定的日期赋给变量rq。
4、Yuef = Month(rq)  ：运用Month 函数得到指定日期的月份，把结果赋给变量Yuef,返回月份的值为 8。
5、MsgBox MonthName(yuef) ：用消息框返回MonthName函数得到的这个月份的字符串“八月”。

Month 函数
返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。

Month(date)
必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。

MonthName函数

返回一个表示指定月份的字符串。

MonthName(month[, abbreviate])
MonthName函数语法有如下几部分：

month 必需的。月份的数值表示。例如一月是1，二月是2，等等。
abbreviate 可选的。Boolean值，表示月份名是否缩写。如果忽略，缺省值为False，表明月份名不能被缩写。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：vba打印--代码整理

后一篇：vba函数--mid函数

新浪BLOG意见反馈留言板　欢迎批评指正