[RESUELTO]Como hacer una suma simple

Discute sobre las herramientas de la base de datos
Responder
luquin1199
Mensajes: 4
Registrado: Lun Jul 26, 2021 2:31 pm

[RESUELTO]Como hacer una suma simple

Mensaje por luquin1199 »

Buenas tardes, tengo el siguiente código:

Código: Seleccionar todo

Sub Suma (Evento)
Dim numero1 As Double
Dim numero2 As Double
Dim suma2 As Double
Dim oFormulario As Object


oFormulario = Evento.Source.getModel.Parent()

numero1 = oFormulario.GetByName("Texto1").CurrentValue
numero2 = oFormulario.GetByName("Texto2").CurrentValue
suma2 = numero1+numero2

oCtrl=oFormulario.GetByName("Suma")


oCtrl.text = cDbl(suma2)


End Sub
Pero no logro que en suma2 me pegue el valor en double con 2 decimales, (suma2 es campo de texto,si lo pongo como campo numérico me da error directamente)
Última edición por luquin1199 el Vie Jul 30, 2021 2:06 pm, editado 1 vez en total.
LibreOffice 6.4.5.2 en Windows10
Neftali R
Mensajes: 169
Registrado: Mar Jun 15, 2021 12:48 pm
Ubicación: Venezuela

Re: Como hacer una suma simple

Mensaje por Neftali R »

Buenas tardes, dejame ver si entiendo tu problema.

Necesitas que "suma2" sea un texto con solo 2 decimales, eso es todo.

Si estoy en lo correcto, entonces es tan sencillo como colocar

Código: Seleccionar todo

oCtrl.text = CStr(Format(suma2,"#,###.00"))
en lugar de

Código: Seleccionar todo

oCtrl.text = cDbl(suma2)
Y con eso debería estar.

Si no entendí bien, por favor has una expliación más detallada.
LibreOffice 7.2.6.2 | Windows 7 Ultimate
luquin1199
Mensajes: 4
Registrado: Lun Jul 26, 2021 2:31 pm

Re: Como hacer una suma simple

Mensaje por luquin1199 »

Gracias por tu respuesta, en realidad la solucion fue Reemplazar esto:

Código: Seleccionar todo

oCtrl.text = cDbl(suma2)
Por esto

Código: Seleccionar todo

oCtrl.Value = cDbl(suma2)
Y al campo numerico formatearlo con 2 decimales

Ya lo Marco como Resuelto
LibreOffice 6.4.5.2 en Windows10
Responder