Hola skel363, cierto! Lo que te indiqué no funciona. Te pido disculpas.
El siguiente código resolverá tu problema.
Por cierto Heimish2000, FormatNumber también redondea, con lo que no sirve.
Código VB.NET:
Ver originalDim miNumero As Decimal = 123.69
Dim PrimerDecimal
As Decimal = Mid
(miNumero
- Fix(miNumero
),
1,
3) 'Esto nos devolverá: 0.6 MessageBox
.Show(Fix(miNumero
) + PrimerDecimal
)
El código es sencillo y comprensible.
Para cualquier aclaración responder este mismo post.
Saludos.