Hola.

Estoy utilizando el DataReport conectado a una base de datos.
Tengo un campo que lo he definido en la base de datos como single(coma flotante, precisión simple).

Si el número es(las comas son los decimales): 3,346 puedo previsualizarlo en el DataReport de dos formas:
1) 3,346 que es sin dar ningún formato
2) 3,35 que es dando formato con dos decimales.

Para conseguir esta segunda forma, basta con poner la propiedad format así: "0.00"

El código para el que esté interesado es simplemente éste:

Dim Formato As New StdDataFormat
Formato.Format = "0.00"
Set Sections("detalle").Controls("Texto4").DataFormat = Formato

Mi pregunta es:
Quiero conseguir que el DataReport me muestre solamente 3,34, sin redondeo. ¿Existe alguna forma de poner este formato con "Format"?
Os puedo asegurar que he probado de todo: "##.##", "##.#0". No se me ocurre nada más...

A ver si alguien sabe hacerlo.

PD. Es una pena, pero si no se puede hacer con format, la solución será crear un nuevo campo de texto en la base de datos y manejar ese valor....
Muchas gracias

Estoy utilizando VB6.

Voy a ver si puedo hacer algo con FormatNumber.
La verdad que no lo sé porque en un DataReport no existe el evento text4_Change.

La única opción de ponerle formato es mediante la propiedad format, tal como lo he hecho arriba en el evento DataReport_Initialize. No sé, voy a ver si puedo usar FormatNumber con Format.

Gracias

No se si es lo que buscabas, pero para truncar a 2 decimales es tan simple como:

Private Sub cmdTruncar_Click()
 
Dim sngNumero As Single
 
sngNumero = Val(txtValor1.Text) 'Se le asigna el valor del numero que contiene el textbox
 
lblResultado.Caption = (Fix(sngNumero * 100)) / 100 'Se lo trunca a 2 cifras
 
End Sub

O si quieres truncar a n cantidad de cifras ingresadas por el usuario (2 cifras, por ej), es tan simple como:

Private Sub cmdTruncar_Click()
 
Dim sngNumero As Single, sngDecimal As Byte
 
sngNumero = Val(txtValor1.Text) 'Es el numero ingresado al que quiere que sea truncado
 
sngDecimal = Val(txtValor2.Text) 'Se le asigna el valor del textbox que es lo que ingresará el usuario de n cifras a redondear
 
lblResultado.Caption = (Fix(sngNumero * (10 ^ sngDecimal))) / (10 ^ sngDecimal) 'Truncamiento
 
End Sub

Espero si esto es lo que buscabas, de una manera más rapida y sencilla, que te haya servido

Como sabrás Karcrack no soy partidario de usar funciones del VB, sino crear mis propias funciones (y saberlo hacer) sea en el lenguaje que sea

 
Option Explicit
 
Sub main()
Dim indexAux        As Integer
Const expression    As String = "10000.1351465465465768"
    Debug.Print Strings.String(10, "-"); "SplitFormatNumbericVB"
    For indexAux = 5 To -1 Step -1
        Debug.Print SplitFormatNumbericVB(expression, indexAux)
    Next
    Debug.Print Strings.String(10, "-"); "MathFormatNumbericVB"
    For indexAux = 5 To -1 Step -1
        Debug.Print MathFormatNumbericVB(expression, indexAux)
    Next
End Sub
 
 

 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
'
 
Option Explicit
 
Public Function SplitFormatNumbericVB(ByVal expression As String, Optional ByVal NumDigitsAfterDecimal As Long = -1) As String
Dim SpliNumeric()           As String
Dim Longitud                As Long
 
    If Information.IsNumeric(expression) Then
        If Not NumDigitsAfterDecimal <= -1 Then
            expression = Strings.Replace(expression, ",", ".")
            SpliNumeric = Strings.Split(expression, ".", -1, vbBinaryCompare)
            SplitFormatNumbericVB = SpliNumeric(0)
            If Not NumDigitsAfterDecimal = 0 Then
                If UBound(SpliNumeric) = 1 Then
                    Longitud = NumDigitsAfterDecimal - Strings.Len(SpliNumeric(1))
                    If Longitud > 0 Then
                        SpliNumeric(1) = SpliNumeric(1) & Strings.String$(Longitud, "0")
                    End If
                    SplitFormatNumbericVB = SplitFormatNumbericVB & "." & Strings.Mid(SpliNumeric(1), 1, NumDigitsAfterDecimal)
                End If
            End If
        Else
            SplitFormatNumbericVB = expression
        End If
    End If
End Function
 
Public Function MathFormatNumbericVB(ByVal Expression As String, Optional ByVal NumDigitsAfterDecimal As Long = -1) As String
Dim PotenciaDecimal         As Double
Dim DecFaltantes            As Long
    If Information.IsNumeric(Expression) Then
        If Not NumDigitsAfterDecimal < 0 Then
            PotenciaDecimal = (10 ^ NumDigitsAfterDecimal)
            Expression = Strings.Replace(Expression, ",", ".")
            MathFormatNumbericVB = Strings.Split(Expression * PotenciaDecimal, ".")(0) / PotenciaDecimal
            DecFaltantes = NumDigitsAfterDecimal - (Strings.Len(MathFormatNumbericVB) - Strings.InStr(1, MathFormatNumbericVB, ".", vbBinaryCompare))
            If DecFaltantes > 0 Then
                MathFormatNumbericVB = MathFormatNumbericVB & Strings.String$(DecFaltantes, "0")
            End If
        Else
            MathFormatNumbericVB = Expression
        End If
    End If
End Function
 
 

Dulce Infierno Lunar!¡.