1樓：匿名使用者
datediff 函式 返回一個 long值,該值指定兩個 date值之間的時間間隔數。
用法：datediff (interval, date1 , date2[,firstweekofyear[,firstweekofyear]])
interval 的設定值如：
yyyy > year 年
q quarter 季
m month 月
d day 日
w weekday 星期
h hour 時
n minute 分
計算兩個時間的時間差(現在到20點相差多少秒)：
msgbox datediff("s", time(),cdate("20:00") )
現在到20點相差多少小時：
msgbox datediff("h", time(),cdate("20:00") )
*在計算時間時，datediff 是取整後比較的，也就是說19：59分和20：00差多少小時會顯示為1。
2樓：匿名使用者
更改時間格式就ok了 估計樓主計算時間差的方法有了 剩下的就是把的道的資料的時間格式改成你需要的就行了
最終結果存放的變數 =format(now, " hh:mm:ss秒")
3樓：
不太明白你要幹什麼，但一下**僅作參考：
時間差的計算用datediff函式：要相加時間dateadd:
例如：你有2個時間，一個 2小時10分20秒：一個1小時11分23秒，怎樣知道這兩個時間和是多少小時多少分鐘多少秒呢？這樣計算：
1.計算第一個時間有多少秒，轉換為秒
dim l1 as double
l1=datediff("s","00:00:00","02:10:20")
2.同理計算第2個時間
dim l2 as double
l2=datediff("s","00:00:00","01:11:23")
3.計算兩個時間和並轉換為時間格式
dim sdate as string
sdate=format$(dateadd("s",l1+l2,"00:00:00"),"hh:mm:ss")
msgbox sdate
不知道你要的是不是這個。請注意兩個時間和如果大於24小時，是不會取天的部分，自己判斷。一天是86400秒。
4樓：匿名使用者
假如是a=2 可用 string(2-len(a),"0") & cstr(a)
計算兩個時間差的vb函式
5樓：匿名使用者
datediff("h",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的小時
datediff("n",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的分鐘
datediff("s",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的秒
建議： 買本vb的函式參考大全，作工具書。方便程式設計 。
6樓：煙臺逸冰
datediff 函式
返回 variant (long) 的值，表示兩個指定日期間的時間間隔數目。
語法 datediff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
返回的值是 date2 減去 date1
datediff 函式語法中有下列命名引數：
部分 描述
interval 必要。字串表示式，表示用來計算date1 和 date2 的時間差的時間間隔
date1 , date2 必要；variant (date)。計算中要用到的兩個日期。
firstdayofweek 可選。指定一個星期的第一天的常數。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一週的常數。如果未予指定，則以包含 1 月 1 日的星期為第一週。
設定 interval 引數的設定值如下：
設定 描述
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 星期六
常數 值 描述
vbusesystem 0 用 nls api 設定。
vbfirstjan1 1 從包含 1 月 1 日的星期開始（預設值）。
vbfirstfourdays 2 從第一個其大半個星期在新的一年的一週開始。
vbfirstfullweek 3 從第一個無跨年度的星期開始。
例子：shijiancha = "從當天開始的天數:" & datediff("d", now, thedate)
注意引號不能省略引用的
關於vb計算時間差
7樓：
private sub command1_click()dim a as date
a = "2014-1-1 00:00:00"
label1.caption = "2023年1月1日距離現在" & datediff("d", a, now) - 1 & "天" & _
datediff("h", a, now) mod 24 & "小時" & _
datediff("n", a, now) mod 60 & "分" & _
datediff("s", a, now) mod 60 & "秒"
end sub
vb中如何計算時間差?
8樓：匿名使用者
dim h(2), m(2)
private sub command1_click()text1.text = now()
h(0) = hour(now)
m(0) = minute(now)
end sub
private sub command2_click()text2.text = now()
h(1) = hour(now)
m(1) = minute(now)
end sub
private sub command3_click()text3.text = h(1) - h(0) & " : " & m(1) - m(0)
end sub
vb計算兩個時間段之間的小時數
9樓：匿名使用者
沒看明白你是怎麼算的，怎麼就是10.083了，7.30是次日早晨7點嗎，還是19.30
vb計算時間差
10樓：
dim a as date
dim b as date
private sub cmdstart_click()a = time '標籤1顯示開始時間
label1.caption = a
end sub
private sub cmdstop_click()b = time '標籤2顯示結束時間
label2.caption = b
label3.caption = b-a
'標籤3顯示開始與結束的時間差(這裡結果為0)end sub
急！求計算任意兩個日期相差多少天的vb程式設計？
11樓：寒信
a=datediff( "d",date1,date2)
這樣就可以了,a就是相差的天數，如果第一個日期早，則a就是負值
12樓：匿名使用者
datediff("d", "2014-4-21", now)
計算日期差和平年，閏年無關吧
13樓：匿名使用者
dim t
t = datediff("d", #1/1/2014#, #1/10/2014#)
print t 't=9
vb.net 如何計算時間差
14樓：
使用datediff函式
textbox3.text=datediff("d","textbox1.text","textbox2.text")
說明一下：
「d」表示「天」
還可以用「y」,"m","d","h","n","s"
分別表示「年」「月」「日」「時」「分」「秒」
有沒有清潔冰箱的好辦法？清潔冰箱有什麼好辦法？
冰箱使用時間長了，裡面不但有髒和異味，而且還有細菌。我們可以加醋清洗冰箱。冰箱裡面清洗要定期進行，斷電後，用軟布浸透擦一遍，然後再用洗潔精和陳醋加溫水搞半盆，泡軟布再清潔一邊，最後用乾淨的軟布擦洗兩三次，直到沒有洗潔精的成分 另外那些門的膠框拆下來也泡在自制的溫水中浸泡，擦洗，汙漬比較容易掉。用洗潔...
有沒有鞭策激勵自己的進步的好辦法
和我一樣 我和你也一樣老一時衝動，心血來潮 最好的辦法就是讓自己靜下來 千萬不要聽樓上的。那樣你會更加浪費時間和光陰。最後給你的忠告吧，切記玩物喪志。願意玩的東西，讓自己靜下來就ok 制定一個計劃。每天完成一部分 量不要太多，以防無法堅持 每天照著做，就把它當每天早上起來要刷牙，洗臉，吃飯一樣。幾個...
有沒有祛除黑眼圈的好辦法，有沒有去黑眼圈的好辦法
熬夜 飲食不規律 受紫外線侵害 一不小心就有了熊貓眼。黑眼圈有時候是由於眼睛周圍的細小血管充血所致，加上眼周肌膚特別薄，所以就看見了黑眼圈了。黑眼圈還有可能是因為眼周有過多的黑色素沉著引起的，陽光照射可是主要元凶哦。要讓黑眼圈遠離你，預防勝於補救，但如果已經有黑眼圈的煩惱了，那這裡有幾招應急的方法來...