Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function HelloWorld() As String
Return "Hello World"
End Function
<WebMethod()> Public Function FahrenheitToCelsius(ByVal Fahrenheit As String) As String
Dim fahr
fahr = Trim(Replace(Fahrenheit, ",", "."))
If fahr = "" Or IsNumeric(fahr) = False Then Return "Error"
Return ((((fahr) - 32) / 9) * 5)
End Function
<WebMethod()> Public Function CelsiusToFahrenheit(ByVal Celsius As String) As String
Dim cel
cel = Trim(Replace(Celsius, ",", "."))
If cel = "" Or IsNumeric(cel) = False Then Return "Error"
Return ((((cel) * 9) / 5) + 32)
End Function