从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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#) '还有几(整)秒
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图