vb.net(2008)如何实现日期相加?

Dim d ad Date

陕州网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作，到程序开发，运营维护。创新互联成立与2013年到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。

Dim mDay as Double

d=Now.Date'设置当天日期或自定义日期CDate("2009-1-9")

mDay=365 '设置天数(或-365)

'以长日期格式返回相距指定天数

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

效果和你在vb6的一样！

vb时间的加减

DateAdd 函数

返回包含一个日期的 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 中的年份），就会导致错误发生。

如果 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

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中怎么对时间或者日期做加减？

DateAdd(dateinterval, number, datetime) 对日期或时间作加减。

DateDiff(dateinterval, date1, date2) 计算两个日期或时间间的差值。

DatePart (dateinterval, date) 依接收的日期或时间参数传回年、月、日或时间。

DateSerial(year, month, day) 将接收的参数合并为一个只有日期的Date 型态的数据。

DateValue(datetime) 取得符合国别设定样式的日期值，并包含时间。

Day(datetime)依接收的日期参数传回日。

我想知道vb.net中的时间怎么做相加和相减，谢谢

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.net时间相加减的信息
转载注明：http://pwwzsj.com/article/hoohps.html