Esta función es utilizada para convertir cadenas y valores numéricos en un número de precisión simple, esto quiere decir que como máximo se aceptarán números reales con 6 decimales o más dependiendo de la versión.
La sintaxis de la función es la siguiente:
Csng(Expression) As Single, donde
Expression = cualquier cadena o valor numérico real que vaya a utilizarse
As Single = valor de decimal simple que requiere de una memoria de 4 bytes
Ejemplo de la Función CSNG
Sub tarea()
' esta función convierte valores numéricos en números de precisión simple
Dim valor1 As Single
Dim valor2 As Single
Dim valor3 As Single
valor1 = CSng("0.77777777")
' el valor1 es ahora equivalente a 0.7777778
valor2 = CSng("247.333333")
' el valor2 es ahora equivalente a 247.3333
valor3 = CSng(1.15 * 1.15)
' el valor3 es ahora equivalente a 1.3225
MsgBox ("el valor 1 es ") & valor1
MsgBox ("el valor 2 es ") & valor2
MsgBox ("el valor 3 es ") & valor3
End Sub
Tipos de Datos
Se adjunta una tabla con todos los diferentes tipos de datos y sus características.
(Para mayor visualización de la imagen, hacer click en la misma)
Por: RENATO TORRES MEJIA