Imports System.Globalization
Imports EgtUILib

Module Utility
   Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As UInteger) As String
      Dim sFormat As String = "F" + 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

   Friend Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
       Return EgtLuaEvalNumExpr(sVal, dVal)
   End Function

End Module