国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

網(wǎng)上有很多方法，但其實(shí)都把問題復(fù)雜化了，就用VBA自帶的datediff函數(shù)就可以了。這樣算出來(lái)的時(shí)間對(duì)跨日計(jì)算、以及起始時(shí)間晚于開始時(shí)間的計(jì)算等常見問題也解決的很好。

示例:

iMinutes = DateDiff("n", beginTime, endTime)

上句可得到從beginTime到endTime之間的分鐘數(shù)。其中beginTime和endTime是VBA特有的日期時(shí)間類型，這種類型保存了很完備的日期時(shí)間信息，可以利用各種函數(shù)從中換算出各種日期時(shí)間信息，我把這種類型的數(shù)據(jù)稱為“全息時(shí)間”。

另外，題外話一句，獲得系統(tǒng)當(dāng)前時(shí)間用now（），這樣也是可以得到一個(gè)全息時(shí)間數(shù)據(jù)。

返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。

語(yǔ)法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：

部分              描述

interval          必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔

Date1□date2      必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。

Firstdayofweek    可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。

firstweekofyear   可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。

設(shè)置

interval 參數(shù)的設(shè)定值如下：

設(shè)置   描述

yyyy   年

q      季

m      月

y      一年的日數(shù)

d      日

w      一周的日數(shù)

ww     周

h      時(shí)

n      分鐘

s      秒

firstdayofweek 參數(shù)的設(shè)定值如下：

常數(shù)        值  描述

vbUseSystem 0   使用 NLS API 設(shè)置。

vbSunday    1   星期日（缺省值）

vbMonday    2   星期一

vbTuesday   3   星期二

vbWednesday 4   星期三

vbThursday  5   星期四

vbFriday    6   星期五

vbSaturday  7   星期六

常數(shù)           值   描述

vbUseSystem     0   用 NLS API 設(shè)置。

vbFirstJan1     1   從包含 1 月 1 日的星期開始（缺省值）。

vbFirstFourDays 2   從第一個(gè)其大半個(gè)星期在新的一年的一周開始。

vbFirstFullWeek 3   從第一個(gè)無(wú)跨年度的星期開始。

說明

DateDiff 函數(shù)可用來(lái)決定兩個(gè)日期之間所指定的時(shí)間間隔數(shù)目。例如，可以使用 DateDiff 來(lái)計(jì)算兩個(gè)日期之間相隔幾日，或計(jì)算從今天起到年底還有多少個(gè)星期。

為了計(jì)算 date1 與 date2 相差的日數(shù)，可以使用“一年的日數(shù)”(y) 或“日”(d)。當(dāng) interval 是“一周的日數(shù)”(w) 時(shí)，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計(jì)算到 date2 為止的星期一的個(gè)數(shù)。這個(gè)數(shù)包含 date2 但不包含 date1。不過，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計(jì)算 date1 與 date2 之間星期日的個(gè)數(shù)而得。如果 date2 剛好是星期日，則 date2 也會(huì)被加進(jìn) DateDiff 的計(jì)數(shù)結(jié)果中；但不論 date1 是否為星期日，都不將它算進(jìn)去。

如果 date1 比 date2 來(lái)得晚，則 DateDiff 函數(shù)的返回值為負(fù)數(shù)。

firstdayofweek 參數(shù)會(huì)影響使用時(shí)間間隔符號(hào) “W” 或 “WW” 計(jì)算的結(jié)果。

如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號(hào) (" ") 括起來(lái)，且年份略而不提，則在每次計(jì)算表達(dá)式 date1 或 date2 時(shí)，當(dāng)前年份都會(huì)插入到代碼之中。這樣就可以書寫適用于不同年份的程序代碼。

在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。

DateDiff 函數(shù)示例

本示例使用 DateDiff 函數(shù)來(lái)顯示某個(gè)日期與今日相差幾天。

Dim TheDate As Date     '聲明變量。

Dim Msg

TheDate = InputBox("Enter a date")

Msg = "Days from today: " & DateDiff("d", Now, TheDate)

MsgBox Msg