visualbasic(vb.net)中如何将毫秒转换为时分秒进行显示?

原创 羽化飞翔  2020-08-13 22:45  阅读 592 次
摘要:

visualbasic(vb.net)中将毫秒转换为时分秒进行显示的应用场景        华仔最近正在研究引用vlc播放库libvlc,使用visualbasic进行播放器的开发,期间遇到一个问题,就是vlc所给的无论是长度还是时间,都是毫秒,这对于用户体验来说只知道毫秒肯定是不可以的,所以华仔通过一段visualbasic(vb.net)代码将这个毫秒进行转换,以“00:00:00”的格式呈现给用户,让用户对即时

visualbasic(vb.net)中将毫秒转换为时分秒进行显示的应用场景

        华仔最近正在研究引用vlc播放库libvlc,使用visualbasic进行播放器的开发,期间遇到一个问题,就是vlc所给的无论是长度还是时间,都是毫秒,这对于用户体验来说只知道毫秒肯定是不可以的,所以华仔通过一段visualbasic(vb.net)代码将这个毫秒进行转换,以“00:00:00”的格式呈现给用户,让用户对即时时间和视频总时间能够心中有数。

visualbasic(vb.net)中将毫秒转换为时分秒进行显示的解决方案

        用visualbasic(vb.net)进行软件开发,确实是非常需要有耐心,因为国内资料少,所以要找的信息会比学别的开发语言要多,下面就是将毫秒转换为“00:00:00”格式时间的源代码:

    rem Time 为需要转换的时间
    Private Function TranTime(ByVal Time As Long) As String
        Try
            Dim h, m, s, h1, m1 As Long
            Dim hh, mm, ss As String
            h = (Time / 1000) / 3600
            h1 = (Time / 1000) Mod 3600
            If h1 > 60 Then
            rem 这里需要好好注意一下
                m = Fix(h1 / 60)
            Else
                m = 0
            End If
            m1 = h1 Mod 60
            s = m1
            If h > 9 Then
                hh = h.ToString
            Else
                hh = "0" + h.ToString
            End If
            If m > 9 Then
                mm = m.ToString
            Else
                mm = "0" + m.ToString
            End If
            If s > 9 Then
                ss = s.ToString
            Else
                ss = "0" + s.ToString
            End If
            Dim LastTime As String = hh + ":" + mm + ":" + ss
            Return LastTime
        Catch ex As Exception
            Throw ex
        End Try
    End Function

        通过上面的visualbasic(vb.net)代码,我们就能实现毫秒时间的转换了,要注意的是,我上面备注的地方:m = Fix(h1 / 60),这是向下取整的函数,大家也知道,visualbasic不同于C#,属于没那么严谨的语言,所以有不少代码结果都是默认了,而不会报错提示,如果这里不用Fix函数进行向下取整的话,比如100秒,就会被换算为:00:02:40,正确的应该是00:01:40,用Fix函数就能解决这个问题了!

visualbasic(vb.net)中将毫秒转换为时分秒进行显示的结论

        这种毫秒的转换,相信在很多地方都有可能用到,最多也就是输出字符串的格式会个性化,但总体是大同小异的,所以这个可以收下,当作日常使用的源代码,visualbasic(vb.net)的学习需要耐心和日积月累,后面最好有自己的类库和控件。

本文地址:https://www.huazai186.com/post/196.html
关注我们:请关注一下我们的微信公众号:扫描二维码羽化飞翔的公众号,公众号:yhfx8686
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!此外,本网站旨在向广大网友提供任何资源的开发、使用、安装教程,所提供的下载服务仅供学习交流探讨,请广大网友学习完成后,24小时内删除相关资源。如果涉及到侵犯版权事宜,请联系删除资源下载信息,谢谢各位的理解与支持!
打赏二维码

发表评论

您必须 登录 才能发表留言!