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

DateAdd函數(shù) 返回

公司主營業(yè)務(wù)：成都網(wǎng)站設(shè)計、成都網(wǎng)站制作、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出朗縣免費做網(wǎng)站回饋大家。

返回包含一個日期的 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.net中，DateDiff（）函數(shù)是有什么用的？又是怎么用的？

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 日的星期為第一周。

設(shè)置

interval 參數(shù)的設(shè)定值如下：

設(shè)置 描述

yyyy 年

q 季

m 月

y 一年的日數(shù)

d 日

w 一周的日數(shù)

ww 周

h 時

n 分鐘

s 秒

firstdayofweek 參數(shù)的設(shè)定值如下：

常數(shù) 值 描述

vbUseSystem 0 使用 NLS API 設(shè)置。

vbSunday 1 星期日（缺省值）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

常數(shù) 值 描述

vbUseSystem 0 用 NLS API 設(shè)置。

vbFirstJan1 1 從包含 1 月 1 日的星期開始（缺省值）。

vbFirstFourDays 2 從第一個其大半個星期在新的一年的一周開始。

vbFirstFullWeek 3 從第一個無跨年度的星期開始。

說明

DateDiff 函數(shù)可用來決定兩個日期之間所指定的時間間隔數(shù)目。例如，可以使用 DateDiff 來計算兩個日期之間相隔幾日，或計算從今天起到年底還有多少個星期。

為了計算 date1 與 date2 相差的日數(shù)，可以使用“一年的日數(shù)”(y) 或“日”(d)。當(dāng) interval 是“一周的日數(shù)”(w) 時，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計算到 date2 為止的星期一的個數(shù)。這個數(shù)包含 date2 但不包含 date1。不過，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計算 date1 與 date2 之間星期日的個數(shù)而得。如果 date2 剛好是星期日，則 date2 也會被加進 DateDiff 的計數(shù)結(jié)果中；但不論 date1 是否為星期日，都不將它算進去。

如果 date1 比 date2 來得晚，則 DateDiff 函數(shù)的返回值為負數(shù)。

firstdayofweek 參數(shù)會影響使用時間間隔符號 “W” 或 “WW” 計算的結(jié)果。

如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號 (" ") 括起來，且年份略而不提，則在每次計算表達式 date1 或 date2 時，當(dāng)前年份都會插入到代碼之中。這樣就可以書寫適用于不同年份的程序代碼。

在計算 12 月 31 日和來年的 1 月 1 日的年份差時，DateDiff 返回 1 表示相差一個年份，雖然實際上只相差一天而已。

VB.NET 寫日期到access 格式不對

因為Access日期格式設(shè)置了，在寫入中會出現(xiàn)格式不對，可以根據(jù)情況自定義修改日期格式寫入Access中。

語法如下：format([日期],"YYYY-MM-DD")

示例:

?Format(#2003/10/1#, "aaaa")? ???'星期三

?Format(#2003/10/1#, "dddd")? ? 'Wednesday

?Format(#2003/10/1#, "ww")? ?? ?'40? ? 2003年的第40周

?Format(#2003/10/1#, "mmmm") 'October

?Format(#2003/10/1#, "oooo")? ? '十月

?Format(#2003/10/1#, "q")? ???'4? ?2003年的第4季

日期時間擴展：

(:):??時間分隔符。在一些區(qū)域，可能用其他符號來當(dāng)時間分隔符。格式化時間值時，時間分隔符可以分隔時、分、秒。時間分隔符的真正字符在格式輸出時取決于系統(tǒng)的設(shè)置。?

(/)?:??日期分隔符。在一些區(qū)域，可能用其他符號來當(dāng)日期分隔符。格式化日期數(shù)值時，日期分隔符可以分隔年、月、日。日期分隔符的真正字符在格式輸出時取決于系統(tǒng)設(shè)置。?

c?:??以 ddddd 來顯示日期并且以 ttttt 來顯示時間。如果想顯示的數(shù)值無小數(shù)部分，則只顯示日期部分，如果想顯示的數(shù)值無整數(shù)部分，則只顯示時間部分。?

d?:??以沒有前導(dǎo)零的數(shù)字來顯示日 (1 – 31)。?

dd?:??以有前導(dǎo)零的數(shù)字來顯示日 (01 – 31)。?

ddd?:??以簡寫來表示日 (Sun –Sat)。?

dddd?:??以全稱來表示日 (Sunday –Saturday)。?

ddddd?:??以完整日期表示法顯示（包括年、月、日），日期的顯示要依系統(tǒng)的短日期格式設(shè)置而定。缺省的短日期格式為 m/d/yy。?

dddddd?:??以完整日期表示法顯示日期系列數(shù)（包括年、月、日），日期的顯示要依系統(tǒng)識別的長日期格式而定。缺省的長日期格式為 mmmm dd, yyyy。?

aaaa?:??與dddd 一樣，它只是該字符串的本地化版本。?

w?:??將一周中的日期以數(shù)值表示（1 表星期日~ 7表星期六）。?

ww?:??將一年中的星期以數(shù)值表示 (1 – 54)。?

m?:??以沒有前導(dǎo)零的數(shù)字來顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后，那么顯示的將是分而不是月。?

mm?:??以有前導(dǎo)零的數(shù)字來顯示月 (01 – 12)。如果m是直接跟在h或hh之后，那么顯示的將是分而不是月。?

mmm?:??以簡寫來表示月 (Jan –Dec)。?

mmmm?:??以全稱來表示月 (January –December)。?

oooo?:??與mmmm一樣，它只是該字符串的本地化版本。?

q?:??將一年中的季以數(shù)值表示 (1 – 4)。?

y?:??將一年中的日以數(shù)值表示 (1 – 366)。?

yy?:??以兩位數(shù)來表示年 (00 – 99)。?

yyyy?:??以四位數(shù)來表示年 (00 – 99)。?

h?:??以沒有前導(dǎo)零的數(shù)字來顯示小時 (0 – 23)。?

Hh?:??以有前導(dǎo)零的數(shù)字來顯示小時 (00– 23)。?

N?:??以沒有前導(dǎo)零的數(shù)字來顯示分 (0 – 59)。?

Nn?:??以有前導(dǎo)零的數(shù)字來顯示分 (00 – 59)。

S?:??以沒有前導(dǎo)零的數(shù)字來顯示秒 (0 – 59)。?

Ss?:??以有前導(dǎo)零的數(shù)字來顯示秒 (00 – 59)。?

t t t t t?:??以完整時間表示法顯示（包括時、分、秒），用系統(tǒng)識別的時間格式定義的時間分隔符進行格式化。如果選擇有前導(dǎo)零并且時間是在 10:00 A.M. 或 P.M.之前，那么將顯示有前導(dǎo)零的時間。缺省的時間格式為 h:mm:ss。?

AM/PM?:??在中午前以 12 小時配合大寫 AM 符號來使用；在中午和 11:59 P.M.間以 12 小時配合大寫 PM 來使用。?

am/pm?:??在中午前以 12 小時配合小寫 am 符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫 pm 來使用。?

A/P?:??在中午前以 12 小時配合大寫A符號來使用；在中午和 11:59 P.M.間以12 小時配合大寫P來使用。?

a/p?:??在中午前以 12 小時配合小寫a符號來使用；在中午和 11:59 P.M.間以 12 小時配合小寫p來使用。?

AMPM?:??在中午前以 12 小時配合系統(tǒng)設(shè)置的 AM字符串文字來使用；在中午和 11:59 P.M. 間以 12 小時配合系統(tǒng)設(shè)置的 PM 字符串文字來使用。AMPM 可以是大寫或小寫，但必須和您的系統(tǒng)設(shè)置相配。其缺省格式為 AM/PM。?

vb.net中怎么根據(jù)日期算出是周幾呢？

Public?Function?IsRunnian(ByVal?n?As?Integer)?As?Boolean

Dim?res?As?Boolean

res?=?False

If?n?Mod?400?=?0?Then

res?=?True

End?If

If?(n?Mod?100??0)?And?(n?Mod?4?=?0)?Then

res?=?True

End?If

IsRunnian?=?res

End?Function

Public?Function?Fc(ByVal?td?As?Date)?As?Byte

Dim?y?As?Integer

Dim?m?As?Integer

Dim?d?As?Integer

Dim?yc?As?Integer

Dim?mc?As?Integer

Dim?dc?As?Integer

y?=?Year(td)

m?=?Month(td)

d?=?Day(td)

dc?=?d

If?IsRunnian(y)?Then

mc?=?Val(Mid("512503514624",?m,?1))

Else

mc?=?Val(Mid("622503514624",?m,?1))

End?If

yc?=?((y?Mod?100)?\?4?+?(y?Mod?100))?Mod?7

Fc?=?(yc?+?mc?+?dc)?Mod?7

End?Function

vb.net中如何獲取當(dāng)前日期所在星期的星期一的具體年月日

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當(dāng)前日期字符串

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當(dāng)前日期轉(zhuǎn)換成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當(dāng)前日期是星期幾

Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)（星期1與當(dāng)前星期幾相差的天數(shù)）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '獲取當(dāng)前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '獲取當(dāng)前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '獲取當(dāng)前日期是幾號

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

VB6.0 要得到某一周是從哪一天開始的,哪一天結(jié)束的？

這里的“某一周”是有歧義的：

一種可能是某日期所在的周

第二種是某年的第幾周。這還有歧義。因為某年的第一周，可能開始于上一年，同時這一周也是上一年的最后一周，會重復(fù)計算。我們這里假設(shè)“不管是否重復(fù)計算”

第三種是每周從星期幾開始。我們這里假設(shè)“從星期一開始”。

下面分別是輸出“某日期所在的周始終日期”、“某年某周始終日期”、“某年各周始終日期”的代碼！

如果每周從星期日開始，將vbMonday替換為vbSunday即可。

'某日期所在的周始終日期

Private Sub Command3_Click()

Dim dt As Date

Dim wd As Integer

dt = InputBox("請輸入一個日期（Date格式）：", "輸入日期", Date)

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = "當(dāng)前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期一開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

wd = Weekday(dt, vbSunday) '某日是星期幾，周日為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期日開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

End Sub

'某年某周始終日期

Private Sub Command4_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim wd As Integer

y = InputBox("請輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

w = InputBox("請輸入周數(shù)：", "第幾周", "")

dt = DateAdd("ww", (w - 1), dt)

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = DateAdd("d", 7 - wd, dt) '本周的開始日期

Text1.Text = "當(dāng)前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期一開始"

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

End Sub

'某年各周始終日期

Private Sub Command2_Click()

Dim y As Integer

Dim w As Integer

Dim dt As Date

Dim dte As Date

Dim wd As Integer

y = InputBox("請輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

dte = DateAdd("yyyy", 1, dt) - 1 '某年最后一天

wd = Weekday(dt, vbMonday) '某日是星期幾，周一為第一天

firstDay = DateAdd("d", -wd + 1, dt) '本周的開始日期

endDay = firstDay + 6 '本周的開始日期

Text1.Text = "當(dāng)前日期所在的周起止日期："

Text1.Text = Text1.Text vbNewLine "(每周從星期一開始)"

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

Do While endDay dte

w = w + 1

firstDay = firstDay + 7

endDay = firstDay + 6

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

Loop

End Sub

網(wǎng)站題目：vb.net第幾周的簡單介紹
網(wǎng)址分享：http://www.yijiale78.com/article24/dodeije.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計、品牌網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、品牌網(wǎng)站制作、網(wǎng)站改版、網(wǎng)站建設(shè)

廣告

聲明：本網(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)