本帖最后由 yiynlove 于 2013-2-19 06:56 编辑
用 DatePart 函数分别取得小时数 和分钟数 然后换算成秒 在把他们加起来就行了
DatePart 函数[url=]请参阅[/url] [url=]示例[/url] [url=]特性[/url] 返回一个包含已知日期的指定时间部分的 Variant (Integer)。 语法
DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) DatePart 函数语法中有下列[url=]命名参数[/url]: 部分 | 描述 | interval | 必要。[url=]字符串表达式[/url],是要返回的时间间隔。 | date | 必要。要计算的 Variant (Date) 值。 | Firstdayofweek | 可选。指定一个星期的第一天的[url=]常数[/url]。如果未予指定,则以星期日为第一天。 | firstweekofyear | 可选。指定一年第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。 |
设置
interval [url=]参数[/url]的设定值如下: 设置 | 描述 | yyyy | 年 | q | 季 | m | 月 | y | 一年的日数 | d | 日 | w | 一周的日数 | ww | 周 | h | 时 | n | 分钟 | s | 秒 |
firstdayofweek 参数的设定值如下: 常数 | 值 | 描述 | vbUseSystem | 0 | 使用 NLS API 设置。 | vbSunday | 1 | 星期日(缺省值) | vbMonday | 2 | 星期一 | vbTuesday | 3 | 星期二 | vbWednesday | 4 | 星期三 | vbThursday | 5 | 星期四 | vbFriday | 6 | 星期五 | vbSaturday | 7 | 星期六 |
firstweekofyear 参数的设定值如下: 常数 | 值 | 描述 | vbUseSystem | 0 | 使用 NLS API 设置。 | vbFirstJan1 | 1 | 从包含 1 月 1 日的星期开始(缺省值)。 | vbFirstFourDays | 2 | 从第一个其大半个星期在新的一年的一周开始。 | vbFirstFullWeek | 3 | 从第一个无跨年度的星期开始。 |
说明
DatePart 函数可以用来计算日期并返回指定的时间间隔。例如,可以使用DatePart 计算某个日期是星期几或目前为几点钟。 firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。 如果 date 是[url=]日期文字[/url],则指定的年份成为该日期的固定部分。但是,如果 date 用双引号 (" ") 括起来,且年份略而不提,则在每次计算 date 表达式时,当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
|