欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

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

示例:

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

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

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

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

語(yǔ)法

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

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

部分              描述

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

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

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

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

設置

interval 參數的設定值如下：

設置   描述

yyyy   年

q      季

m      月

y      一年的日數

d      日

w      一周的日數

ww     周

h      時(shí)

n      分鐘

s      秒

firstdayofweek 參數的設定值如下：

常數        值  描述

vbUseSystem 0   使用 NLS API 設置。

vbSunday    1   星期日（缺省值）

vbMonday    2   星期一

vbTuesday   3   星期二

vbWednesday 4   星期三

vbThursday  5   星期四

vbFriday    6   星期五

vbSaturday  7   星期六

常數           值   描述

vbUseSystem     0   用 NLS API 設置。

vbFirstJan1     1   從包含 1 月 1 日的星期開(kāi)始（缺省值）。

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

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

說(shuō)明

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

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

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

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

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

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

DateDiff 函數示例

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

Dim TheDate As Date     '聲明變量。

Dim Msg

TheDate = InputBox("Enter a date")

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

MsgBox Msg