十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
两种方式自己选用
创新互联建站专注于扶余网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供扶余营销型网站建设,扶余网站制作、扶余网页设计、扶余网站官网定制、微信小程序开发服务,打造扶余网络公司原创品牌,更为您提供扶余网站排名全网营销落地服务。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = DateTime.Today.Year()
s = s DateTime.Today.Month()
s = s DateTime.Today.Day()
s = s DateTime.Now.Hour()
s = s DateTime.Now.Minute()
s = s DateTime.Now.Second()
MsgBox(s, vbDefaultButton1, Now())
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s As String
s = Format(Now(), "yyyymmddhhmmss")
MsgBox(s, vbYes, Now())
End Sub
text1.text=time
text2.text=dateadd("s",1800,text1.text)
text2中是30分钟后的时间
想直接转换是不行的,首先你可以将字符串按照时间的格式修改为“2014-05-12 15:07:12”
然后就 可以使用datetime.tryparse(s,out d)进行转换了
假设你得到 N 秒
那么,一个小时就是 3600 秒,一分钟就是 60 秒,我们就可以这样子分割出来 :
小时 hour = N / 3600;
分钟 minute = ( N - ( hour * 3600 ) ) / 60;
秒 second = N - ( hour * 3600 + minute * 60 );
然后自己按照 hour : minute : second 的格式打印出来就行了 。
这个简单。dim time1 datetime ="1:20:30"dim h as int =time1.tostring("hh")dim M as int =time1.tostring("MM")dim S as int=time1.tostring("ss")dim SUMfen as double=h*60+M+S/60SUMfen就是最后 的结果。语法你自己修改下。纯手打。