Imports System

​

Public Module Module1

​

    Sub Main() 

        dim test = TimeSpan.FromDays(0.13402777777777777777)

        Console.WriteLine(test.TotalHours)

        Console.WriteLine(test)

    End Sub

​

End Module

​

​

​