vb時間的加減

DateAdd 函數(shù)

創(chuàng)新互聯(lián)主要從事成都做網(wǎng)站、網(wǎng)站設(shè)計、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)玉州,十載網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220

返回包含一個日期的 Variant (Date)，這一日期還加上了一段時間間隔。

語法

DateAdd(interval, number, date)

DateAdd 函數(shù)語法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達式，是所要加上去的時間間隔。

number 必要。數(shù)值表達式，是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負數(shù)（得到過去的日期）。

date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時間間隔。

設(shè)置

interval 參數(shù)具有以下設(shè)定值：

設(shè)置 描述

yyyy 年

q 季

m 月

y 一年的日數(shù)

d 日

w 一周的日數(shù)

ww 周

h 時

n 分鐘

s 秒

說明

可以使用 DateAdd 函數(shù)對日期加上或減去指定的時間間隔。例如，可以用 DateAdd 來計算距今天為三十天的日期；或者計算距現(xiàn)在為 45 分鐘的時間。

為了對 date 加上“日”，可以使用“一年的日數(shù)” (“y”)，“日” (”d”) 或“一周的日數(shù)” (”w”)。

DateAdd 函數(shù)將不返回有效日期。在以下實例中將 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 中的年份），就會導(dǎo)致錯誤發(fā)生。

如果 number 不是一個 Long 值，則在計算時取最接近的整數(shù)值來計算。

注意 DateAdd 返回值的格式由 Control Panel設(shè)置決定，而不是由傳遞到date 參數(shù)的格式?jīng)Q定。

DateAdd 函數(shù)示例

本示例先取得一個日期，再用 DateAdd 函數(shù)顯示未來數(shù)月后的日期。

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

vb.net(2008)如何實現(xiàn)日期相加?

Dim d ad Date

Dim mDay as Double

d=Now.Date'設(shè)置當(dāng)天日期或自定義日期CDate("2009-1-9")

mDay=365 '設(shè)置天數(shù)(或-365)

'以長日期格式返回相距指定天數(shù)

Text1.Tex=d.AddDays(mDay).ToLongDateString

效果和你在vb6的一樣！

vb.net 時間相加

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

我想知道vb.net中的時間怎么做相加和相減，謝謝

DateAdd函數(shù) 返回

返回包含一個日期的 Variant (Date)，這一日期還加上了一段時間間隔。

語法

DateAdd(interval, number, date)

DateAdd 函數(shù)語法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達式，是所要加上去的時間間隔。

number 必要。數(shù)值表達式，是要加上的時間間隔的數(shù)目。其數(shù)值可以為正數(shù)（得到未來的日期），也可以為負數(shù)（得到過去的日期）。

date 必要。Variant (Date) 或表示日期的文字，這一日期還加上了時間間隔。

DateDiff函數(shù) 返回

返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數(shù)目。

語法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函數(shù)語法中有下列命名參數(shù)：

部分 描述

interval 必要。字符串表達式，表示用來計算date1 和 date2 的時間差的時間間隔

Date1□date2 必要；Variant (Date)。計算中要用到的兩個日期。

Firstdayofweek 可選。指定一個星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。

firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。

VB里面，兩個時間相減得到的數(shù)是什么啊，

VB里面，兩個時間相減得到的數(shù)是需要看其差被聲明為啥數(shù)據(jù)類型。

1）當(dāng)差被聲明為Date數(shù)據(jù)類型，則兩個時間相減得到是一個日期。

相應(yīng)代碼：

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）當(dāng)差被聲明為Variant數(shù)據(jù)類型，則兩個時間相減得到是雙精度浮點數(shù)。

相應(yīng)代碼：

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 數(shù)據(jù)類型：

Date 變量存儲為 IEEE 64 位（8 個字節(jié)）浮點數(shù)值形式，其可以表示的日期范圍從 100 年 1 月 1 日到 9999 年 12 月 31 日，而時間可以從 0:00:00 到

23:59:59。任何可辨認的文本日期都可以賦值給 Date 變量。日期文字須以數(shù)字符號 (#)

擴起來，例如，#January 1, 1993# 或 #1 Jan 93#。

Double 數(shù)據(jù)類型：

Double（雙精度浮點型）變量存儲為 IEEE 64 位（8 個字節(jié)）浮點數(shù)值的形式，它的范圍在負數(shù)的時候是從 -1.79769313486232E308 到 -4.94065645841247E-324，而正數(shù)的時候是從 4.94065645841247E-324 到 1.79769313486232E308。

VB.net如何時間相減，我正在做一個提示還書的窗口，怎么讓現(xiàn)在日期減去當(dāng)時借書的日期，然后顯示出小于5天

給你個例子：

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

網(wǎng)頁標(biāo)題：包含時間加減vb.net的詞條
網(wǎng)站地址：http://www.rwnh.cn/article14/higdde.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、App設(shè)計、定制網(wǎng)站、面包屑導(dǎo)航、網(wǎng)頁設(shè)計公司、App開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)