湖南省留学生服务中心:时间如何转化数值?比如07:30:00变成7.5

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/14 18:26:54

假设用vb编写

Dim Testdatetime As DateTime
Dim strMinute As String
Dim strSecond As String
Dim strTime As String
Testdatetime = #7:30:15 AM#
strMinute = Testdatetime.Minute / 60
strSecond = Testdatetime.Second / 3600
strTime = Testdatetime.Hour + strMinute + strSecond

小时为个位
分等于 分/60
秒等于 秒/3600
然后把它们加起来