1樓：匿名使用者
返回 variant (long) 的值，表示兩個指定日期間的時間間隔數目。
語法 datediff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
datediff 函式語法中有下列命名引數：
部分 描述
interval 必要。字串表示式，表示用來計算date1 和 date2 的時間差的時間間隔
date1□date2 必要；variant (date)。計算中要用到的兩個日期。
firstdayofweek 可選。指定一個星期的第一天的常數。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一週的常數。如果未予指定，則以包含 1 月 1 日的星期為第一週。
設定 interval 引數的設定值如下：
設定 描述
yyyy 年
q 季m 月y 一年的日數
d 日w 一週的日數
ww 周
h 時n 分鐘s 秒
2樓：匿名使用者
dim a as date
dim b as date
dim c as date
a = "2:10:20"
b = "1:11:23"
c = a - b
msgbox "時間差：" & c
end sub
3樓：匿名使用者
就要看這兩個時間開始是什麼時候，你儘量表述的再多些資訊。
幫我用vb編一個程式：輸入以秒為單位的時間，換算出幾時幾分幾秒？
4樓：匿名使用者
dim tim as long
dim h as integer, m as integer, s as integer
tim = 10000 輸入的秒數
h = int(tim / 3600)
m = int((tim - h * 3600) / 60)s = tim - h * 3600 - m * 60msgbox h & ":" & m & ":" & s
vb編寫一個倒計時的程式 20
5樓：匿名使用者
我試了試在 xp上 問題
這樣改一下
dim i as long
private sub command1_click()i = 20
timer1.enabled = truelabel1.caption = i
end sub
private sub form_load()timer1.enabled = falsetimer1.interval = 1000end sub
private sub timer1_timer()label1.caption = i
if i > 0 then
i = i - 1
else
timer1.enabled = falsemsgbox "時間到!!"
end if
end sub
6樓：楊奔騰子
你把**複製一下，看看。**看不清。
肯定是**有問題。
這個程式很簡單的
7樓：匿名使用者
完全滿足你的要求，需要原始檔給地址。
怎樣用vb做個編寫一個程式，在文字框中顯示當前系統時間，並隨時間進行變化
8樓：匿名使用者
你新增一個timer控制元件
interval屬性=100
新增事件
private sub timer1_timer()text1.text = format(now, "hh:mm:ss")
end sub
9樓：匿名使用者
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = now
end sub
建立兩個控制元件timer1和text1。
我也初學。
用vb編寫一個2分鐘的倒計時.形如:2:00 1:59……
10樓：匿名使用者
新增text1
command1
dim t as integer
private sub command1_click()timer1.interval = 1000timer1.enabled = truet = 120
end sub
private sub form_load()text1.text = "2:00"
end sub
private sub timer1_timer()t = t - 1
text1.text = cstr(t \ 60) & ":" & cstr(t mod 60)
if t = 0 then timer1.enabled = false
end sub
vb高手幫忙：在文字框中輸入小時，分，秒，計算共幾秒。怎麼輸入**啊？？？
11樓：匿名使用者
'剛寫的**雖然我是學delphi的,vb也稍微知道點,希望對樓主有用
'新建三個文字框,分別用來輸入時分秒,(name)屬性就用預設'新建一個結果標籤label,屬性全部預設'再新建一個按鈕,屬性全部預設
private sub command1_click()if (val(text1.text) > 0 and val(text1.text) < 24) and (val(text2.
text) > 0 and val(text2.text) < 60) and (val(text3.text) > 0 and val(text3.
text) < 60) then
label1.caption = val(text1.text) * 60 * 60 + val(text2.text) * 60 + val(text3.text)
else
msgbox "請檢查輸入是否有誤", 16, "錯誤"
end if
end sub
private sub form_load()text1.text = ""
text2.text = ""
text3.text = ""
label1.caption = ""
end sub
12樓：匿名使用者
一個時間怎麼計算呢？如果有時間段，你可以先得用運算得到多長時間，小時*3600+分鐘*60+秒就等於你想要的了
13樓：匿名使用者
dim h as integer
dim m as integer
dim s as integer
h = val(text1.text)
m = val(text2.text)
s = val(text3.text)
if h <= 23 and h >= 0 and m <= 60 and m >= 0 and s <= 60 and s >= 0 then
print ("總共的秒數為：" & h * 3600 + m * 60 + s)
else
print ("日期格式非法")
end if
14樓：匿名使用者
在文字框離開事件中判斷是否在限制範圍內，如果不是則提醒。再按樓上的演算法算就ok了
用vb做一個程式，顯示所用時間
15樓：匿名使用者
1.新建窗體，在窗體上新增兩個按鈕，一個標籤，一個計時器2.按鈕1的**如下：
private sub 按鈕1_click()label1.caption=0
timer1.interval=1000
timer1.enable=true
end sub
3.按鈕2的**如下：
private sub 按鈕2_click()timer1.enable=false
end sub
4.timer1的**如下：
private sub timer1_timer()label1.caption=val(label1.caption)+1
end sub
以上**完了之後，標籤顯示的即是用時，單位「秒」。
vb 編寫一個程式,使其具有如下功能，（1）隨機產生10個資料
16樓：匿名使用者
我可以給你寫
幫你除錯好
怎麼用英文表達你什麼時候有時間比較禮貌
when you free to chill?or when it suits you?or free sometime?when are you free?free now?when will you be free?你什麼時候有空 when will you be free?你什麼時候有空，用英...
你見過大海嗎 有時間我可以帶你去海邊玩。用英語怎麼說
意思為 go to the beach together望採納 let s go to the seaside together let s go to sea together 你見過大海嗎?無論是在海邊,還是在電視上,或者在圖畫書上,大海給你留下了什麼印象,請問答 自然的美麗，和自然的殘酷。我去...
如果你約同公司的女生，問她週末有時間嗎，她說應該沒有這個沒有時間有什麼區別嗎，這算拒絕
從口氣來判斷，還有個的言語習慣以往的交往關係，具體結合來說。如果不是很熟悉，他這樣說也代表在考慮，看你提出的事情是否感興趣是否敵的過她思想種可能會佔據時間的事情。另外如果關係很熟，那就代表她也許已經安排了事，所以你除非有件事很必須她才會擠時間去。不是一點希望都沒有，最起碼她沒有那麼直接拒絕了你。不算...