锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net月份相加减 vb 日期加减

IT技术时间

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函数 返回
返回包含一个日期的 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如何时间相减，我正在做一个提示还书的窗口 ， 怎么让现在日期减去当时借书的日期，然后显示出小于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
VB.net 写一个方法，求一个时间变量=系统当前年月时间-去5个月的时间，求大神指点可以使用VB.NET中的DataTime对象的AddMonths方法vb.net月份相加减：
Dim d1 As Date = Now
【vb.net月份相加减 vb 日期加减】MsgBox(d1)'显示现在的机器日期与时间
MsgBox(d1.AddMonths(2))'显示现在的机器日期加上2个月的对应日期与时间
MsgBox(d1.AddMonths(-1))'显示现在的机器日期减掉1个月的对应日期与时间
DataTime对象的方法很多vb.net月份相加减，你可以通过在线查阅，例如：
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等！
注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了 。
VB中关于月份相减Private Sub Command1_Click()
a = CInt(InputBox("请输入一个月份："))
If a1 Or a12 Then
MsgBox ("输入的月份有错！")
Else
b = a - 2
If b1 Then b = b + 12
MsgBox (a"月份之前2个月是："b" 月份")
End If
End Sub
关于vb.net月份相加减和vb 日期加减的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：小型快餐店如何设计营销，小型快餐店如何设计营销策略

下一篇：室外游戏动作技能，室外游戏活动教案