- spostamento + cambio nome

2024-10-03 16:30:55 +02:00
parent 6da345d8c5
commit 1aa26ca644
50 changed files with 34 additions and 189 deletions
@@ -0,0 +1,66 @@
+Imports System.Globalization
+
+Public Module StringConversion
+
+   Public Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
+      Dim sFormat As String = "F" + Math.Abs(nNumDec).ToString()
+      Dim sVal As String = dVal.ToString(sFormat, CultureInfo.InvariantCulture)
+      If nNumDec > 0 Then
+         Return sVal.TrimEnd("0".ToCharArray()).TrimEnd(".".ToCharArray)
+      Else
+         Return sVal
+      End If
+   End Function
+
+   Public Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
+      ' Return EgtLuaEvalNumExpr(sVal, dVal)
+      Return Double.TryParse(sVal, NumberStyles.Float, CultureInfo.InvariantCulture.NumberFormat, dVal)
+   End Function
+
+   'Public Function StringToDoubleAdv(ByVal sVal As String, ByRef dVal As Double, Optional bEval As Boolean = False) As Boolean
+   '   If bEval Then
+   '      Return EgtLuaEvalNumExpr(sVal, dVal)
+   '   Else
+   '      Return Double.TryParse(sVal, NumberStyles.Float, CultureInfo.InvariantCulture.NumberFormat, dVal)
+   '   End If
+   'End Function
+
+   Public Function StringToInt(sVal As String, ByRef nVal As Integer) As Boolean
+      Dim dVal As Double = 0
+      If Not StringToDouble(sVal, dVal) Then Return False
+      nVal = CInt(Math.Round(dVal))
+      Return True
+   End Function
+
+   'Public Function LenToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
+   '   Return DoubleToString(EgtToUiUnits(dVal), nNumDec)
+   'End Function
+
+   'Public Function StringToLen(ByVal sVal As String, ByRef dVal As Double) As Boolean
+   '   If EgtLuaEvalNumExpr(sVal, dVal) Then
+   '      dVal = EgtFromUiUnits(dVal)
+   '      Return True
+   '   Else
+   '      Return False
+   '   End If
+   'End Function
+
+   'Public Function StringToLenAdv(ByVal sVal As String, ByRef dVal As Double, Optional bEval As Boolean = False) As Boolean
+   '   If bEval Then
+   '      If EgtLuaEvalNumExpr(sVal, dVal) Then
+   '         dVal = EgtFromUiUnits(dVal)
+   '         Return True
+   '      Else
+   '         Return False
+   '      End If
+   '   Else
+   '      If Double.TryParse(sVal, NumberStyles.Float, CultureInfo.InvariantCulture.NumberFormat, dVal) Then
+   '         dVal = EgtFromUiUnits(dVal)
+   '         Return True
+   '      Else
+   '         Return False
+   '      End If
+   '   End If
+   'End Function
+
+End Module