1樓：匿名使用者
private sub timer1_timer()
datesub = datediff("s", now, #7/28/2013 3:12:00 am#)
dd = fix(datesub / 60 / 60 / 24)
hh = fix((datesub - dd * 60 * 60 * 24) / (60 * 60))
mm = fix((datesub - dd * 60 * 60 * 24 - hh * 60 * 60) / 60)
ss = fix(datesub - dd * 60 * 60 * 24 - hh * 60 * 60 - mm * 60)
strtip = "距2023年7月28日03時12分00秒某人的生日 還有: "
strtip = strtip + cstr(dd) + "天"
strtip = strtip + cstr(hh) + "小時"
strtip = strtip + cstr(mm) + "分鐘"
strtip = strtip + cstr(ss) + "秒"
label1.caption = strtip
end sub
2樓：匿名使用者
msgbox datediff("s", cdate("2013-3-1 18:28:20"), cdate("2013-3-1 18:29:21"))
3樓：匿名使用者
cdate("2013-04-04") - cdate("2013-03-06")
兩個日期直接減不就行了？
4樓：匿名使用者
datediff函式為什麼一定要用這個函式
5樓：匿名使用者
據說 datediff() 可以通過改變第一個引數直接獲
vb有沒有計算時間差的好辦法啊
6樓：匿名使用者
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。
7樓：匿名使用者
更改時間格式就ok了 估計樓主計算時間差的方法有了 剩下的就是把的道的資料的時間格式改成你需要的就行了
最終結果存放的變數 =format(now, " hh:mm:ss秒")
8樓：
不太明白你要幹什麼，但一下**僅作參考：
時間差的計算用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秒。
9樓：匿名使用者
假如是a=2 可用 string(2-len(a),"0") & cstr(a)
vb中如何計算時間差?
10樓：匿名使用者
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計算時間差
11樓：
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計算時間差
12樓：網海1書生
貌似你這一大段**可以用下面三行**搞定：
private sub timer1_timer()text1.text = iif(vnumber1(1), int(timer), "")
text2.text = iif(vnumber1(2), int(timer), "")
text3.text = iif(vnumber1(1) and vnumber1(2), val(text2.text) - val(text1.text), "")
end sub
vb計算時間差
13樓：
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上求兩個時間相差的分鐘數？
14樓：驕傲地螞蟻
10:30---21:00怎麼會是570分鐘呢？630分鐘好不好。用datediff函式計算時間差，例如：
datediff("n", "10:30", "21:00")，結果：630分鐘
最好用長時間，考慮隔天，不然會有計算混亂的。time是隻顯示「時」和「分」的。
15樓：
資料庫欄位型別的話，日期和時間很麻煩的，就用integer好啦，直接寫分鐘的數字進去，用樓上的方法：
datediff("n", now,起始時間)來計算出分鐘。
Excel怎麼求一堆資料的均方根誤差
手機百科小幫手 在excel中，如果想求出 中資料的均方根的誤差值，具體操作方法如下 首先，開啟excel。圖示為綠色，形狀類似一個工作表，中間有一個字母 x 開啟或新建excel文件。如果已有包含資料的excel工作表，單擊綠色左邊欄中的 開啟 選項將它開啟。你也可以單擊 新建 來建立一個新文件，...
x趨向無窮時xe x的極限怎麼求
墨汁諾 lim x x e x lim x x e x lim u u e u 令 u x lim u 1 e u 0 洛比達法則lim x x e x 不存在。n的相應性 一般來說，n隨 的變小而變大，因此常把n寫作n 以強調n對 的變化而變化的依賴性。但這並不意味著n是由 唯一確定的 比如若n ...
n趨近無窮時，n的n次方根的極限怎麼求
n 1 n 1 n 1 1 n 1 n 1 所以當n趨於無窮大時，1 n 1 1 n 1 等於e，n 1 n 等於1，所以結果為e 1 e 前面那個是高等數學裡兩個重要極限中的第二個的結論，後面是分式有理式求極限的方法。 通過求x趨近無窮時，函式y x的x次方根的極限來確定所求數列的極限。方法是y ...