Sub Main()
创新互联公司专注于白山网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供白山营销型网站建设，白山网站制作、白山网页设计、白山网站官网定制、重庆小程序开发服务，打造白山网络公司原创品牌,更为您提供白山网站排名全网营销落地服务。
Dim dtNow As DateTime
dtNow = DateTime.Now
Dim dtBegin As DateTime
dtBegin = New DateTime(dtNow.Year, dtNow.Month, dtNow.Day)
Dim second As Integer
second = (dtNow - dtBegin).TotalSeconds
Console.WriteLine(second)
Console.Read()
End Sub
使用datediff函数
textbox3.text=datediff("d","textbox1.text","textbox2.text")
说明一下：
“d”表示“天”
还可以用“y”,"m","d","h","n","s"
分别表示“年”“月”“日”“时”“分”“秒”
VB有现成的函数：
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差，代码：
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒
