我想将一个VisualBasic函数重写为PHP函数：
Public Function Convert_Ariary(ByVal g_Valeurs As Double) As Double
Dim partie_entier As Double
Dim partie_decimale As Double
Dim int_pos As Integer
Dim Var_Symbole As String
int_pos = 0
Var_Symbole = vbNullString
int_pos = InStr(1, CStr(g_Valeurs), ",", vbTextCompare)
If int_pos > 0 Then
Var_Symbole = ","
Else
int_pos = InStr(1, CStr(g_Valeurs), ".", vbTextCompare)
If int_pos > 0 Then Var_Symbole = "."
End If
If int_pos > 0 Then
partie_entier = Int(g_Valeurs)
partie_decimale = Round(CDbl(g_Valeurs) - partie_entier, 2)
Select Case partie_decimale
Case 0 To 0 & Var_Symbole & 0 & 9
Convert_Ariary = partie_entier
Case 0 & Var_Symbole & 1 To 0 & Var_Symbole & 2 & 9
Convert_Ariary = partie_entier + 0.2
Case 0 & Var_Symbole & 3 To 0 & Var_Symbole & 4 & 9
Convert_Ariary = partie_entier + 0.4
Case 0 & Var_Symbole & 5 To 0 & Var_Symbole & 6 & 9
Convert_Ariary = partie_entier + 0.6
Case 0 & Var_Symbole & 7 To 0 & Var_Symbole & 8 & 9
Convert_Ariary = partie_entier + 0.8
Case 0 & Var_Symbole & 9 To 0 & Var_Symbole & 9 & 9
Convert_Ariary = partie_entier + 1
End Select
Else
Convert_Ariary = CStr(g_Valeurs) & "." & "00"
End If
End Function
我卡在开关大小写上，如何将不同的大小写表达式重写为 PHP 语句，因为有To关键字？
您可以尝试更大或等于以及更少或等于：
case x>=0.1:
case x<=0.9:
{do something}
或
case x>=0.1 && x<=0.9:
{do something}
：PHP开关大小写中超过1个值2：http：//sandbox.onlinephpfunctions.com/code/b203b57e563d9f5921aa89fbefdba0aa1f39d4b7