请教：计算时间

Question

怎样将秒数转换为小时、分、秒

Answer 1

Code Snippet

 

小时=秒数\3600

 

分=(秒数-小时*3600)\60

 

秒=秒数 mod 60

 

 

 

Answer 2

一点不差，谢谢

Answer 3

tfnpghl 写:

怎样将秒数转换为小时、分、秒

 

 

另一种解决办法

 

Code Snippet

Dim second As Integer = 400000
        Dim d1 As DateTime = New DateTime(1900, 1, 1)
        Dim d2 As DateTime = New DateTime(1900, 1, 1)
        d1 = d1.AddSeconds(second)
        Dim day As Integer = DateDiff(DateInterval.Day, d2, d1)
        Dim hour As Integer = d1.Hour
        Dim minute As Integer = d1.Minute
        。。。。。

 

 

如果一个月以内就可以直接

Code Snippet

 

Dim second As Integer = 400000
        Dim d1 As DateTime = New DateTime(1900, 1, 1)
    
        Dim day As Integer = d1.day
        Dim hour As Integer = d1.Hour
        Dim minute As Integer = d1.Minute
        。。。。。