21 lines
835 B
VB.net
21 lines
835 B
VB.net
Option Strict Off
|
|
Imports System.Runtime.CompilerServices
|
|
Imports System.Linq.Expressions
|
|
|
|
Namespace Extensiones
|
|
Public Module TimeSpanExtensions
|
|
<Extension()>
|
|
Public Function TimeSpanAHoraString(ByVal ts As TimeSpan?) As String
|
|
If ts.HasValue AndAlso ts.Value.Ticks <> 0 Then
|
|
If ts.Value.TotalMinutes < 0 Then
|
|
Return "-" & Fix(Math.Abs(ts.Value.TotalHours)).ToString.PadLeft(2, "0") & ":" & Math.Abs(CInt(ts.Value.Minutes)).ToString.PadLeft(2, "0")
|
|
Else
|
|
Return Fix(Math.Abs(ts.Value.TotalHours)).ToString.PadLeft(2, "0") & ":" & Math.Abs(CInt(ts.Value.Minutes)).ToString.PadLeft(2, "0")
|
|
End If
|
|
Else
|
|
Return "00:00"
|
|
End If
|
|
End Function
|
|
End Module
|
|
End Namespace
|