1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Option Explicit
Dim F, C, Reponse, Result, arrTemp
Do
Reponse = InputBox("Donner la valeur de la température source puis" & _
VbCrLf & "la température destination(C ou F) séparées par ;", "Conversion de température","60;F")
If Reponse = "" Then WScript.Quit 0
arrTemp = Split(Reponse,";")
Result = Convertir(arrTemp(0),arrTemp(1))
MsgBox Result
Loop Until Reponse = ""
Private Function Convertir(ByVal valeur, vers)
If Valeur = "" Then Exit Function
Select Case UCase(vers)
Case "C"
Convertir = FormatNumber((Valeur-32)*5/9,2) & " °C"
Case "F"
Convertir = FormatNumber(Valeur*9/5 +32,2) & " °F"
Case Else
MsgBox "Données entrées non valides"
End Select
End Function |
Partager