锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net日期减月份 vba中日期相减

IT技术日期

VB.net 写一个方法，求一个时间变量=系统当前年月时间-去5个月的时间，求大神指点可以使用VB.NET中的DataTime对象的AddMonths方法：
Dim d1 As Date = Now
MsgBox(d1)'显示现在的机器日期与时间
MsgBox(d1.AddMonths(2))'显示现在的机器日期加上2个月的对应日期与时间
MsgBox(d1.AddMonths(-1))'显示现在的机器日期减掉1个月的对应日期与时间
DataTime对象的方法很多，你可以通过在线查阅 ， 例如：
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等！
注意：从字面意思可以理解是加 ， 而括号里是填写对应的数值，当数值为负数，起到减的作用了 。
vb.net中怎么获取日期中的年月日时分秒Dim ThisDay As String = Format(Now, "yyyy-MM-dd")'获得当前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay)'当前日期转换成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek'获得当前日期是星期几
Dim differadd As Integer = 1 - ThisWeekDay'相差的天数（星期1与当前星期几相差的天数）
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy")'获取当前日期的年份
Dim MyMonth As Integer = Format(Now, "MM")'获取当前日期的月份
Dim MyDay As Integer = Format(Now, "dd")'获取当前日期是几号
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是："Yourday)
Vb.net 计算日期 如2015-01-01计算后是2014-06-01 。就当前时间倒退六个月 dim dt as DateTime =DateTime.Today
dim dt2 as DateTime = dt.AddMonths(-6)
AddMonths方法，然后参数用负数 ， 月数就减了
VB.net如何时间相减，我正在做一个提示还书的窗口，怎么让现在日期减去当时借书的日期，然后显示出小于5天给vb.net日期减月份你个例子vb.net日期减月份：
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中的时间怎么做相加和相减 ， 谢谢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 当前日期 减去 一个月Private Function 减去整月(基准时间 As Date, 月数 As Integer) As Date
y = Year(基准时间)
m = Month(基准时间)
d = Day(基准时间)
m = m - 月数
Do While m1
m = m12
y = y - 1
Loop
减去整月 = CDate(y"-"m"-"d)
End Function
Private Sub Command1_Click()
Print 减去整月(Now, 1)
End Sub
有了这个函数，想减几个月就减几个月 ， 不怕大月、不怕小月、也不怕闰月！
补充，你的函数因该这样用：
DateAdd("m", -1, Now())
【vb.net日期减月份 vba中日期相减】关于vb.net日期减月份和vba中日期相减的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何管理网易服务器？ 网易服务器怎么管理员

    下一篇：55开虎牙直播，虎牙 525379