Hola amigos tengo una función que devuelve un string
obtenido de la suma de varios valores.
Private Function Suma() As String
Dim remu, sac, vac, ext, asig As Decimal
Dim total As Decimal
remu = FormatNumber(TextBox1.Text, 2)
ext = FormatNumber(TextBox2.Text, 2)
asig = FormatNumber(TextBox3.Text, 2)
vac = FormatNumber(TextBox4.Text, 2)
sac = FormatNumber(TextBox5.Text, 2)
total = remu + ext + asig + vac + sac
Return FormatNumber(total, 2,,, TriState.False)
End Function
Mi primera consulta en esta comunidad es puntualmente si utilizar FormatNumber
o FormatCurrency
y si en la conversión de valores desde los textBox
a las variables hacerlo Decimal
o Double
.
Esta es una función FUNDAMENTAL en mi soft y no puede fallar por eso quiero estar completamente seguro que funcionará correctamente en todas la Computadoras independientemente como este configurado el panel de control (sep decimal punto o coma) ya que también se guardan en una Base de Datos Mysql y he tenido problema con las comas al pasar valores.
ACLARACION: siempre se utilizarán 2 decimales y valores positivos y se restringe el uso de la coma a los
TextBox
para evitar inconvenientes en el formato. introducir la descripción del enlace aquí