DateAdd 函數
創(chuàng)新互聯主要從事成都做網站、網站設計、網頁設計、企業(yè)做網站、公司建網站等業(yè)務。立足成都服務玉州,十載網站建設經驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
返回包含一個日期的 Variant (Date)，這一日期還加上了一段時間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數語法中有下列命名參數：
部分 描述
interval 必要。字符串表達式，是所要加上去的時間間隔。
number 必要。數值表達式，是要加上的時間間隔的數目。其數值可以為正數（得到未來的日期），也可以為負數（得到過去的日期）。
date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時間間隔。
設置
interval 參數具有以下設定值：
設置 描述
yyyy 年
q 季
m 月
y 一年的日數
d 日
w 一周的日數
ww 周
h 時
n 分鐘
s 秒
說明
可以使用 DateAdd 函數對日期加上或減去指定的時間間隔。例如，可以用 DateAdd 來計算距今天為三十天的日期；或者計算距現在為 45 分鐘的時間。
為了對 date 加上“日”，可以使用“一年的日數” (“y”)，“日” (”d”) 或“一周的日數” (”w”)。
DateAdd 函數將不返回有效日期。在以下實例中將 1 月31 日加上一個月：
DateAdd(m, 1, 31-Jan-95)
上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，則由于 1996 年是閏年，返回值是 1996 年 2 月 29 日。
如果計算的日期超前 100 年（減去的年度超過 date 中的年份），就會導致錯誤發(fā)生。
如果 number 不是一個 Long 值，則在計算時取最接近的整數值來計算。
注意 DateAdd 返回值的格式由 Control Panel設置決定，而不是由傳遞到date 參數的格式決定。
DateAdd 函數示例
本示例先取得一個日期，再用 DateAdd 函數顯示未來數月后的日期。
Dim FirstDate As Date ' 聲明變量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m"指定以“月份”作為間隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg
Dim d ad Date
Dim mDay as Double
d=Now.Date'設置當天日期或自定義日期CDate("2009-1-9")
mDay=365 '設置天數(或-365)
'以長日期格式返回相距指定天數
Text1.Tex=d.AddDays(mDay).ToLongDateString
效果和你在vb6的一樣！
Module?Module1
Sub?Main()
Console.WriteLine(DateTimeAdd("01:23:45"))
Console.ReadLine()
End?Sub
'''?summary
'''?獲取時間的累加值
'''?/summary
'''?param?name="sDatetime"/param
'''?returns/returns
'''?remarks/remarks
Private?Function?DateTimeAdd(ByVal?sDatetime?As?String)?As?DateTime
Dim?sysTime?As?DateTime?=?DateTime.Now
Return?sysTime.Add(TimeSpan.Parse(sDatetime))
End?Function
End?Module
DateAdd函數 返回
返回包含一個日期的 Variant (Date)，這一日期還加上了一段時間間隔。
語法
DateAdd(interval, number, date)
DateAdd 函數語法中有下列命名參數：
部分 描述
interval 必要。字符串表達式，是所要加上去的時間間隔。
number 必要。數值表達式，是要加上的時間間隔的數目。其數值可以為正數（得到未來的日期），也可以為負數（得到過去的日期）。
date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時間間隔。
DateDiff函數 返回
返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數目。
語法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函數語法中有下列命名參數：
部分 描述
interval 必要。字符串表達式，表示用來計算date1 和 date2 的時間差的時間間隔
Date1□date2 必要；Variant (Date)。計算中要用到的兩個日期。
Firstdayofweek 可選。指定一個星期的第一天的常數。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數。如果未予指定，則以包含 1 月 1 日的星期為第一周。
VB里面，兩個時間相減得到的數是需要看其差被聲明為啥數據類型。
1）當差被聲明為Date數據類型，則兩個時間相減得到是一個日期。
相應代碼：
Option?Explicit
Dim?rq?As?Date
Dim?rq1?As?Date
Dim?sj?As?Date
Private?Sub?Command1_Click()
sj?=?rq1?-?rq
Text3?=?sj
Debug.Print?sj
End?Sub
Private?Sub?Form_Load()
rq?=?#1/1/2015#
rq1?=?Now
Text1?=?rq
Text2?=?rq1
End?Sub
2）當差被聲明為Variant數據類型，則兩個時間相減得到是雙精度浮點數。
相應代碼：
Option?Explicit
Dim?rq?As?Date
Dim?rq1?As?Date
Dim?sj?As?Variant
Private?Sub?Command1_Click()
sj?=?rq1?-?rq
Text3?=?sj
Debug.Print?sj
End?Sub
Private?Sub?Form_Load()
rq?=?#1/1/2015#
rq1?=?Now
Text1?=?rq
Text2?=?rq1
End?Sub
Date 數據類型：
Date 變量存儲為 IEEE 64 位（8 個字節(jié)）浮點數值形式，其可以表示的日期范圍從 100 年 1 月 1 日到 9999 年 12 月 31 日，而時間可以從 0:00:00 到
23:59:59。任何可辨認的文本日期都可以賦值給 Date 變量。日期文字須以數字符號 (#)
擴起來，例如，#January 1, 1993# 或 #1 Jan 93#。
Double 數據類型：
Double（雙精度浮點型）變量存儲為 IEEE 64 位（8 個字節(jié)）浮點數值的形式，它的范圍在負數的時候是從 -1.79769313486232E308 到 -4.94065645841247E-324，而正數的時候是從 4.94065645841247E-324 到 1.79769313486232E308。
給你個例子：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyEndDate As New DateTime(2012, 8, 8)
Dim MyStartDate As DateTime = DateTime.Now
Dim MySpan As TimeSpan = MyEndDate.Subtract(MyStartDate)
Dim MyInfo As String = "離2012年8月8日還有" + _
Math.Round(MySpan.TotalDays, 0).ToString() + "天"
MessageBox.Show(MyInfo, "信息", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
重慶分公司
重慶分公司
