时间如何转化数值?比如07:30:00变成7.5

假设用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
然后把它们加起来