Compare.vb

Imports AutoMtGox.Sitesource.Log

Namespace Sitesource.Util
    Public Class Compare
        ''' <summary>
        ''' Changed
        ''' </summary>
        ''' <param name="name"></param>
        ''' <param name="old"></param>
        ''' <param name="new"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function Changed(ByVal name As String, ByVal old As Object, ByVal [new] As Object, ByVal logger As SimpleLogger) As Boolean
            Return Down(name, old, [new], logger) OrElse Up(name, old, [new], logger)
        End Function
        ''' <summary>
        ''' Up
        ''' </summary>
        ''' <param name="name"></param>
        ''' <param name="old"></param>
        ''' <param name="new"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function Up(ByVal name As String, ByVal old As Object, ByVal [new] As Object, ByVal logger As SimpleLogger) As Boolean
            If [new] > old Then
                logger.WriteEntry(LogEntryType.Information, "{0} {1} up {2}. Result {3}.", name, old, [new] - old, [new])
                Return True
            End If
            Return False
        End Function
        ''' <summary>
        ''' Down
        ''' </summary>
        ''' <param name="name"></param>
        ''' <param name="old"></param>
        ''' <param name="new"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function Down(ByVal name As String, ByVal old As Object, ByVal [new] As Object, ByVal logger As SimpleLogger) As Boolean
            If [new] < old Then
                logger.WriteEntry(LogEntryType.Information, "{0} {1} down {2}. Result {3}.", name, old, old - [new], [new])
                Return True
            End If
            Return False
        End Function
    End Class
End Namespace