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

DateAdd函數(shù) 返回

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

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

語(yǔ)法

DateAdd(interval, number, date)

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

部分 描述

interval 必要。字符串表達(dá)式，是所要加上去的時(shí)間間隔。

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

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

DateDiff函數(shù) 返回

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

語(yǔ)法

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

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

部分 描述

interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔

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

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

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

在vb.net中，DateDiff（）函數(shù)是有什么用的？又是怎么用的？

DateDiff 函數(shù)

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

語(yǔ)法

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

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

部分 描述

interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔

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

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

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

設(shè)置

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

設(shè)置 描述

yyyy 年

q 季

m 月

y 一年的日數(shù)

d 日

w 一周的日數(shù)

ww 周

h 時(shí)

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 日的星期開(kāi)始（缺省值）。

vbFirstFourDays 2 從第一個(gè)其大半個(gè)星期在新的一年的一周開(kāi)始。

vbFirstFullWeek 3 從第一個(gè)無(wú)跨年度的星期開(kāi)始。

說(shuō)明

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

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

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

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

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

在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。

VB.NET 寫(xiě)日期到access 格式不對(duì)

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

語(yǔ)法如下：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季

日期時(shí)間擴(kuò)展：

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

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

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

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

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

ddd?:??以簡(jiǎn)寫(xiě)來(lái)表示日 (Sun –Sat)。?

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

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

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

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

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

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

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

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

mmm?:??以簡(jiǎn)寫(xiě)來(lái)表示月 (Jan –Dec)。?

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

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

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

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

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

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

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

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

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

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

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

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

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

AM/PM?:??在中午前以 12 小時(shí)配合大寫(xiě) AM 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合大寫(xiě) PM 來(lái)使用。?

am/pm?:??在中午前以 12 小時(shí)配合小寫(xiě) am 符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě) pm 來(lái)使用。?

A/P?:??在中午前以 12 小時(shí)配合大寫(xiě)A符號(hào)來(lái)使用；在中午和 11:59 P.M.間以12 小時(shí)配合大寫(xiě)P來(lái)使用。?

a/p?:??在中午前以 12 小時(shí)配合小寫(xiě)a符號(hào)來(lái)使用；在中午和 11:59 P.M.間以 12 小時(shí)配合小寫(xiě)p來(lái)使用。?

AMPM?:??在中午前以 12 小時(shí)配合系統(tǒng)設(shè)置的 AM字符串文字來(lái)使用；在中午和 11:59 P.M. 間以 12 小時(shí)配合系統(tǒng)設(shè)置的 PM 字符串文字來(lái)使用。AMPM 可以是大寫(xiě)或小寫(xiě)，但必須和您的系統(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)前日期是幾號(hào)

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

Dim Yourday As DateTime = MyToday.Add(MyAdd)

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

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

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

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

第二種是某年的第幾周。這還有歧義。因?yàn)槟衬甑牡谝恢?，可能開(kāi)始于上一年，同時(shí)這一周也是上一年的最后一周，會(huì)重復(fù)計(jì)算。我們這里假設(shè)“不管是否重復(fù)計(jì)算”

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

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

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

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

Private Sub Command3_Click()

Dim dt As Date

Dim wd As Integer

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

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

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

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

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

Text1.Text = Text1.Text vbNewLine

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

Text1.Text = Text1.Text vbNewLine firstDay vbTab endDay

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

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

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

Text1.Text = Text1.Text vbNewLine

Text1.Text = Text1.Text vbNewLine "每周從星期日開(kāi)始"

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("請(qǐng)輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

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

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

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

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

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

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

Text1.Text = Text1.Text vbNewLine

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

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("請(qǐng)輸入年份：", "輸入年份", Year(Date))

dt = DateSerial(y, 1, 1)

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

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

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

endDay = firstDay + 6 '本周的開(kāi)始日期

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

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

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第幾周的簡(jiǎn)單介紹
網(wǎng)址分享：http://chinadenli.net/article24/dodeije.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計(jì)、品牌網(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)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)