不是 有 函数嘛？
创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都做网站、外贸网站建设、来安网络推广、重庆小程序开发、来安网络营销、来安企业策划、来安品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供来安建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com
now() 就是 吧
取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的
vb.net 中没有了 time() 函数。
可以通过 Now().TimeOfDay 截取当前的系统时间。
Now()函数取当前的系统日期时间，TimeOfDay 方法取日期时间中的时间部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
变量s 就是 从午夜到现在经过的秒数。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim d1970 As New System.DateTime(1970, 1, 1, 0, 0, 0, 0)
Dim iSeconds As Long
iSeconds = (Now.Ticks - d1970.Ticks) / 10000000
MsgBox(iSeconds)
End Sub
假设你得到 N 秒
那么，一个小时就是 3600 秒，一分钟就是 60 秒，我们就可以这样子分割出来 ：
小时 hour = N / 3600;
分钟 minute = ( N - ( hour * 3600 ) ) / 60;
秒 second = N - ( hour * 3600 + minute * 60 );
然后自己按照 hour : minute : second 的格式打印出来就行了 。