Imports System
Imports System.Data.Sql
Imports System.Data.SqlTypes
Imports System.Reflection
Imports System.Runtime.CompilerServices
 
Namespace MetricFunctions

    Public Class MetricProcs
        Public Shared Sub AddToTemp(ByRef thetemp As SqlDouble, ByVal theadder As SqlDouble)
            thetemp += theadder
        End Sub

        Public Shared Sub AddAndReturnBoth(ByVal thetemp As SqlDouble, ByVal theadder As SqlDouble, ByRef result_f As SqlDouble, ByRef result_c As SqlDouble)
            result_f = thetemp + theadder
            result_c = MetricConverter.FahrenheitToCentigrade(result_f)
        End Sub

        Public Shared Sub AddAndReturnBothOut(ByVal thetemp As SqlDouble, ByVal theadder As SqlDouble, ByRef result_f As SqlDouble, ByRef result_c As SqlDouble)
            result_f = thetemp + theadder
            result_c = MetricConverter.FahrenheitToCentigrade(result_f)
        End Sub
    End Class

End Namespace
