Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

​

     Sub Main()

        Console.WriteLine(funDecimalToTime(715.384615384615))

           Console.WriteLine(funDecimalToTime_New(715.384615384615))

    End Sub

    Public Function funDecimalToTime(ByVal strValue As double) As String

        Dim intHour As Integer = 0, intMinute As Integer = 0, intSeconds As Integer

​

intHour = Int((strValue / 3600))

          intSeconds = Int((strValue)) Mod 3600

        intMinute = intSeconds / 60

        intSeconds = intSeconds Mod 60

        Return intHour.ToString & ":" & Right("00" & intMinute.ToString, 2) & ":" & Right("00" & intSeconds.ToString, 2)

    End Function

Public Function funDecimalToTime_New(ByVal Value As Double) As String 

Dim intHour As Integer  = Int((Value / 3600))

Dim intMinute As Integer = Value \ 60

Dim intSeconds As Integer = Value - (intMinute * 60)

Return intHour.ToString & ":" & Right("00" & intMinute.ToString, 2) & ":" & Right("00" & intSeconds.ToString, 2)

End Function

End Module