operacion - VB-MUNDO

javier · #1 (**permalink**) 13-11-2004, 20:39:54

Resul = CDbl(TextBaseImporte.Text) * CDbl(TextDto.Text) / 100
Impt = CDbl(TextBaseImporte.Text) - Format(Resul, "#,##0.00")
TextTotal = Format(Impt, "#,##0.00")

De esta forma consigo hacer una operación.
Pero mi pregunta es la siguiente la representación es por Ej. 3,200.00 ósea que me sale la como donde tiene que salir el punto para los miles y el punto para los decimales yo quisiera que el total Ej. 3.200,00 he intentado cambiar el formato pero la operación me sale errónea por favor donde esta el error gracias

J.M.Movilla · #2 (**permalink**) 13-11-2004, 21:07:46

Revisa a ver cómo tienes la Configuración regional en tu Sistema Operativo. Ahí está la causa.

javier · #3 (**permalink**) 14-11-2004, 09:11:18

Bien muchas gracias, no se lo que me paso por que hace unos días estuve revisando lo de la configuración regional por que sospechaba y me salía igual y ahora que lo he hecho com. mas tranquilidad y con tu asesoramiento confirmado se ve que al cambiar los signos no lo cambien bien.gracias y un saludo

J.M.Movilla · #4 (**permalink**) 14-11-2004, 10:23:32

Tranquilo, que esas cosas pasan en las mejores familias...

javier · #5 (**permalink**) 16-11-2004, 11:34:55

Yo se que abuso mucho de vuestra buena fe, pero sois siempre mi solución. Sigo con el tema del formato que hay algo que desconozco, no algo sino mucho pero bueno esta es mi pregunta:
Con este código sumo una fila del grid

Dim j As Long
Dim suma As Double
For j = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = j
suma =suma + CDbl(MSFlexGrid1.TextMatrix(j, 5))
Next j

'Añadir el resultado a los control
TextBaseImporte.Text =Format( suma,”#,###.##”)

Pero me hace lo siguiente el resultado sí la suma del grid Ej. 78,00 en el control se me representa 7.800, venga muchas gracias

acalanto · #6 (**permalink**) 16-11-2004, 12:05:11

Sustituye la función de dominio de VB CDbl() por esta variante que te solucionará el probela de los formatos con cualquier separador decimal.

Código:

'--------------------------------------------------------------------------------------------------------------
'
'   Procedimiento:
'   Tunelsoft 2003
'
'--------------------------------------------------------------------------------------------------------------
Public Function DConv(v As Variant) As Variant

    On Local Error Resume Next
    
    If InStrRev(v, ",") <> 0 Then
        DConv = CDbl(v)
    ElseIf InStrRev(v, ".") <> 0 Then
        DConv = CDbl(Val(v))
    Else
        DConv = CDbl(Val(v))
    End If

End Function

javier · #7 (**permalink**) 16-11-2004, 21:10:58

Acalanto la función me va bien pero si hago esto

SUMA = DConv(Text1) + DConv(Text2)
Label1.Caption = Format(SUMA, "#,###.00")

Sumo por Ej: text1= 26,00 + text2=26,00 el resultado que me da 5.200,00 cuando me tenia que dar para mi gusto 52,00 como lo hago,igual esuna pregunta tonta pero lo ciento gracias

MiguelPG · #8 (**permalink**) 17-11-2004, 03:12:33

Hola.

Mira yo utilizo la función replace con el siguiente formato:

Replace("" & TextBaseImporte.Text, ".", ",") en la que sustitye el punto por la coma.

Tambien puedes utilizarla al revés:
Replace("" & TextBaseImporte.Text, ",", ".") en la que sustituye la coma por el punto

Bueno, ya sé que ahora me llegará bronca de los dos grandes jefes, esto es los señores Acalanto y Movilla, porque esto es una chapuza nacional, pero los ignorantes como yo recurrimos a burradas como la que te acabo de "soltar".
Lo más correcto sería utilizar la Function DConv que en el post anterior te indicaba Acalanto.
Saludos a todos.

acalanto · #9 (**permalink**) 17-11-2004, 06:40:00

Si SUMA s un tipo numérico el valor de la operación tiene que ser forzosamente 52,00 si los textos contienen 26,00 y 26,00 respectivamente. Verifica en modo debuger que valor toma esa variable en el momento de la operación.

J.M.Movilla · #10 (**permalink**) 17-11-2004, 15:55:16

Cita:

Empezado por MiguelPG

Bueno, ya sé que ahora me llegará bronca de los dos grandes jefes, esto es los señores Acalanto y Movilla, porque esto es una chapuza nacional, pero los ignorantes como yo recurrimos a burradas como la que te acabo de "soltar".

Voy a confesarte, Miguel, mi pecado, que también es parecido al tuyo.. No en valde somos humanos y todos procedemos de Adán y Eva...

Código:

'  En un Módulo defino el "mal signo" decimal
'     que deberá ser reemplazado por el correcto

Public MalSigno As String


    If InStr(3 / 2, ".") Then
        MalSigno = ","
    Else
        MalSigno = "."
    End If

'  -----------------------------------

'  Al abandonar la introducción de datos numéricos hago la conversión

Private Sub Text1_LostFocus()
    If InStr(Text1.Text, MalSigno) Then Text1.Text = Val(Text1.Text)
End Sub

O ¿qué te creías, que sólo eras tú el que sabías hacer guarradas???