none
请教:计算时间 RRS feed

答案

全部回复

  • Code Snippet

     

    小时=秒数\3600

     

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

     

    秒=秒数 mod 60

     

     

     

    2008年11月21日 6:04
    版主
  • 一点不差,谢谢

    2008年11月21日 6:19
  •  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
            。。。。。

     

     

    2008年11月21日 6:20