VBA函数精选之十五（Hour 函数）

蓝桥玄霜

第1.15例 Hour函数
一、题目：
　　要求编写一段代码，运用Hour函数对指定字符串返回小时数。
二、代码：
Sub 示例_1_15()
    Dim sj
    sj = "3:45:20 PM"    ' 指定一时间字符串。
    MsgBox sj & " 的小时是： " & Hour(sj)   
End Sub
三、代码详解
1、Sub 示例_1_15()：宏程序的开始语句。宏名为示例_1_15。
2、Dim sj    ：变量sj声明为可变型数据类型。
3、sj = “3:45:20 PM”  ：把字符串”3:45:20 PM”赋给变量sj。
4、MsgBox sj &  " 的小时是： " & Hour(sj) ：
利用MsgBox函数显示Hour函数的值。代码执行后如图5-15所示。

Hour 函数
返回一个其值为 0 到 23 之间的整数，表示一天之中的某一钟点。
语法
Hour(time)
Time 必要的参数，可以是任何能够表示时刻的数值表达式、字符串表达式或它们的组合。

VBA函数精选之十四（Format 函数）：http://club.excelhome.net/thread-371976-1-1.html

思豆

谢谢请继续写下去

gzgis

谢谢!请继续

龙城飞将III

赞蓝神，第15个函数学习完毕，mark一下！

zongyj

没注意，蓝板08年的作品了

孔家的

越是经典的东西，学起来越是清楚明了，简单粗暴，谢谢蓝大。

乾坤若木

谢谢楼主！hour函数学习了。