Dim d ad Date
成都创新互联从2013年成立，先为西平等服务建站，西平等地企业，进行企业商务咨询服务。为西平企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim mDay as Double
d=Now.Date'设置当天日期或自定义日期CDate("2009-1-9")
mDay=365 '设置天数(或-365)
'以长日期格式返回相距指定天数
Text1.Tex=d.AddDays(mDay).ToLongDateString
效果和你在vb6的一样！
function getTime2Time($time1, $time2)
{
var time1 = arguments[0], time2 = arguments[1];
time1 = Date.parse(time1)/1000;
time2 = Date.parse(time2)/1000;
var time_ = time1 - time2;
return (time_/(3600*24));
}
document.write(getTime2Time('2016-08-02', '2016-07-02'));
dim dt as DateTime =DateTime.Today
dim dt2 as DateTime = dt.AddMonths(-6)
AddMonths方法，然后参数用负数，月数就减了
在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET中的TimeSpan对象。 列表A向你演示了如何使用TimeSpan对象来获得两个日期间的时间值。今后，你可以使用Subtract方法来获得两个日期间的实际天数。 关于列表A的一些说明 首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。 为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。查看本文来源
如果DateDiff(月，开始日期，结束日期)=6
在检查开始日期的月份是不是1或者7，如果是在检查结束日期的月份是不是6或者12，如果都满足 就是半年
如果DateDiff(月，开始日期，结束日期)=2并且 开始日期的月份不能被2整除 就是双月
Public Class Form1
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("从" Now1.ToString "到" Now2.ToString "经过了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
实际情况修改下。
End Class