<%@ WebService Language="VB" Class="TempConvert" %>

Imports System
Imports System.Web.Services


Public Class TempConvert :Inherits WebService

<WebMethod()> Public Function FahrenheitToCelsius (ByVal Fahrenheit As Int16) As Int16
	Dim celsius As Int16 
	celsius = ((((Fahrenheit) - 32) / 9) * 5) 
	Return celsius
End Function

    <WebMethod()> Public Function CelsiusToFahrenheit(ByVal Celsius As Int16) As Int16
        Dim fahrenheit As Int16
        fahrenheit = ((((Celsius) * 9) / 5) + 32)
        Return fahrenheit
    End Function
End Class