AyanUpadhaya

Convert Celsius to Fahrenheit using Function VBScipt Project

Oct 23rd, 2021
602
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2.  
  3. Dim InputCelsius
  4. InputCelsius = Cint(InputBox("Enter amonut of celsius"))
  5.  
  6. MsgBox "Amount of farenheit "&InputCelsius&" from conversion is " &_
  7. ConvertCelsiusToFarenheit(InputCelsius) &" Fahrenheit"
  8.  
  9. endScript()
  10.  
  11. Function ConvertCelsiusToFarenheit(celsius)
  12.     ConvertCelsiusToFarenheit = (celsius*9/5)+32
  13. End Function
  14.  
  15. Function endScript()
  16.     MsgBox "Thank you for using our script"
  17. End Function
Advertisement
Add Comment
Please, Sign In to add comment