7-16 九 科创学院 vbA 教程源代码 第8讲.docVIP

Excel常用VBA函数精选应用DateValue 函数 一、题目： 　　要求编写一段代码，运用DateValue函数返回指定日期的Date类型。 二、代码： Sub 示例_1_010() Dim zdrq zdrq = DateValue(August 8, 2008) MsgBox zdrq End Sub 三、代码详解 1、Sub 示例_1_010()：宏程序的开始语句。宏名为示例_1_010。 2、Dim zdrq ：变量zdrq声明为可变型数据类型。 3、zdrq = DateValue(August 8, 2008) ：DateSerial函数转换所得的结果赋给变量zdrq。 4、MsgBox zdrq ：利用MsgBox函数显示zdrq的值。 ? DateValue函数 将字符串转换为日期格式。 语法 DateValue (date) DateValue 函数的参数： date 必要；通常是字符串表达式，表示从 100 年 1 月 1 日到 9999 年 12 月 31 日之间的一个日期。但是，date 也可以是任何表达式，其所代表的日期、时间在上述范围内。 ? Day函数 一、题目： 　　要求编写一段代码，运用Day函数返回指定日期的日。 二、代码： Sub 示例_1_11() Dim zdrq zdrq = #2008-12-8# MsgBox zdrq 这天的日为: Day(zdrq) End Sub 三、代码详解 1、Sub 示例_1_11()：宏程序的开始语句。宏名为示例_1_11。 2、Dim zdrq ：变量zdrq声明为可变型数据类型。 3、zdrq = #2008- 8- 8# ：把日期2008-8-8赋给变量zdrq。 4、MsgBox zdrq 这天的日为: Day(zdrq)：利用MsgBox函数显示Day(zdrq)的值。 　　 ? Day函数返回一个其值为 1 到 31 之间的整数，表示一个月中的某一日。 语法 Day (date) Day 函数的参数： date必要的，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。