Readable.vb

Imports System.Globalization
Namespace Sitesource.Util
    ''' <summary>
    ''' Make things easier to read
    ''' </summary>
    ''' <remarks></remarks>
    Public Class Readable
        ''' <summary>
        ''' TimeSpan
        ''' </summary>
        ''' <param name="value"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function TimeSpan(ByVal value As TimeSpan) As String
            If value.TotalSeconds < 60 Then
                Return Math.Ceiling(value.TotalSeconds) & " seconds"
            ElseIf value.TotalMinutes < 60 Then
                Return Math.Ceiling(value.TotalMinutes) & " minutes"
            ElseIf value.TotalHours < 24 Then
                Return Math.Ceiling(value.TotalHours) & " hours"
            Else
                Return Math.Ceiling(value.TotalDays) & " days"
            End If
        End Function
        ''' <summary>
        ''' Show nicely formatted currency value.
        ''' </summary>
        ''' <param name="value"></param>
        ''' <returns>Depens on current culture</returns>
        ''' <remarks>
        ''' NumberFormatInfo could also have been used.
        ''' </remarks>
        Public Shared Function Currency(ByVal value As Currency.ICurrency)
            Return String.Format("{0}{1:n}", value.GetCurrencySymbol, value.Value)
        End Function
    End Class
End Namespace