1樓：匿名使用者
首先得到今天的日期 year(date) ； month(date)； day（date）；然後對day（date）的值+n 然後根據月份 month(date)判斷加後的日期是否超過30 或31 ；之後得到新的日期值，然後用famat函式輸出新的日期即可。
2樓：匿名使用者
n=10
text1=dateadd("d", n, date)
3樓：匿名使用者
msgbox dateadd("d", 10, date)
10天以後的日期
如何在vb中計算兩個日期間的天數
4樓：四舍**入
private sub dtpicker1_change()text1.text = datediff("d", dtpicker1, dtpicker2)
end sub
private sub dtpicker2_change()text1.text = datediff("d", dtpicker1, dtpicker2)
end sub
5樓：匿名使用者
datediff 函式 返回 variant (long) 的值，表示兩個指定日期間的時間間隔數目。
語法datediff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
datediff 函式語法中有下列命名引數：
描述 interval 必要。字串表示式，表示用來計算date1 和 date2 的時間差的時間間隔
date1□date2 必要；variant (date)。計算中要用到的兩個日期。
firstdayofweek 可選。指定一個星期的第一天的常數。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一週的常數。如果未予指定，則以包含 1 月 1 日的星期為第一週。
例如:計算2005-05-01 到 2006-02-03 之間的天數
msgbox "從2005-05-01到2006-02-03還有：" & datediff("d", cdate("2005-05-01"), cdate("2006-02-03")) & "天"
6樓：匿名使用者
private sub command1_click()dim str as string
str = text1.text
label1.caption = datediff("d", cdate(format(now, "yyyy-mm-dd")), cdate(format(str, "yyyy-mm-dd")))
datediff函式的功能很強的！！
注意使用啊！！
7樓：
'首先在form中加一個label控制元件，一個textbox控制元件，一個commandbutton按鈕
'你可以用datediff函式,這個函式的作用就是判斷2個日期型變數的差,datediff後邊先跟的一個引數是選擇按照什麼方式計算差值(我們可以按照年,月,日等)
'只需要在text1中輸入例如 2006-7-30 就能判斷出2日期的日期之差
private sub command1_click()
dim str as string
str = text1.text
label1.caption = datediff("d", cdate(format(now, "yyyy-mm-dd")), cdate(format(str, "yyyy-mm-dd")))
'cdate強制轉換。把變數強制轉換成日期型變數
'這裡邊第一「d」就是datediff的引數。如果按照年來判斷，你把"d"改成"yyyy"就可以
'yyyy 年
'q 季
'm 月
'y 一年的日數
'd 日
'w 一週的日數
'ww 周
'h 時
'n 分鐘
's 秒
'如果你輸入的不想按照例如（2006-10-15）這樣輸入，只需要改format(str, "yyyy-mm-dd")這個裡。把這裡的"yyyy-mm-dd"改掉
'（06-10-11，就改成format(str, "yy-mm-dd")
end sub
8樓：俟來官新曦
msgbox
datediff("d",
"2005-05-01",
"2006-2-3")
9樓：
num = cdate("2006-10-1")-cdate("2006-9-10")
急！求計算任意兩個日期相差多少天的vb程式設計？
10樓：寒信
a=datediff( "d",date1,date2)
這樣就可以了,a就是相差的天數，如果第一個日期早，則a就是負值
11樓：匿名使用者
datediff("d", "2014-4-21", now)
計算日期差和平年，閏年無關吧
12樓：匿名使用者
dim t
t = datediff("d", #1/1/2014#, #1/10/2014#)
print t 't=9
vb計算兩個日期時間的間隔
13樓：
datetime1 = "2023年6月27日 6:52:22"
datetime2 = "2023年6月28日 13:52:14"
dim hh, ss, mm
mm = datediff("s", datetime1, datetime2)
ss = mm \ 60
hh = ss \ 60
ss = ss mod 60
mm = mm mod 60
msgbox hh & ":" & ss & ":" & mm
14樓：匿名使用者
dim time1 as date
dim time2 as date
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
debug.print (time2 - time1) * 24 * 3600
你轉化一下就可以了
15樓：匿名使用者
可以使用vb的datediff 函式
16樓：匿名使用者
datediff 函式
毫無疑問
msdn 裡有的
vb時間的加減
17樓：匿名使用者
計算日期的間隔，應該使用datediff 函式。計算某日期之前或者之後的某一時間，已知相差的時間，可以使用dateadd函式。
18樓：匿名使用者
時間不能直接加減，只有使用dateadd函式。
VB時間控制元件，VB時間控制元件
標準答案 方法一 1.在窗體中新增一個標籤控制元件 lable1 和一個時鐘空間 timer1 2.將時鐘控制元件的interval屬性值設為1000 也就是使其每1000毫秒發生一回時鐘事件 3.雙擊時鐘控制元件新增 private sub timer1 timer label1.caption ...
vb中計算下列分段函式的值，VB中，計算下列分段函式的值
input x x if x 0 and x 100 theny 0.9 x elseif x 100 and x 300 theny 0.85 x elseif x 300 then y 0.82 x end if print y yend vb編寫程式，計算分段函式 在窗體上放一個命令按鈕，將 ...
vb中日期選擇控制元件MonthView如何顯示英文？如星期日顯示Sunday或Sun
在monthview1 dateclick事件中新增如下 private sub monthview1 dateclick byval dateclicked as date 把dayofweek的返回值轉換為英文 dim weekdays as stringselect case monthvie...