Parte entera y parte decimal en single.

[keitu]

Hola.

Alguien sabe si existe alguna función que devuelva la parte entera de una variable tipo single?, y la parte decimal?

Gracias

[u_goldman]

No lo he probado, pero se me ocurre algo así tratados como strings:

<%
Function separaEntero(numero)
mi_entero= cstr(numero)
pos= instr(mi_entero, ".")
mi_entero= left(mi_entero, pos)
separaEntero= mi_entero
End Function

Function separaDecimal(numero)
mi_decimal=cstr(numero)
pos= len(numero) - instr(mi_decimal, ".")
mi_decimal= right(mi_decimal, pos)
separaDecimal= mi_decimal
End Function
%>

<%
mi_numero= 2.5698
entero= separaEntero(mi_numero)
decim= separaDecimal(mi_numero)

Response.Write("Este es el entero: " & entero & "<br>" & "Este es el decimal: " & decim)
%>

Salu2,

[keitu]

Había pensado en hacerlo así, pero primero quería saber si había alguna función predefinida que ya lo hiciese.

Gracias.

[AlexNV]

cuidado con los puntos y las comas. Para saber cual es el simbolo decimal haz

simbolo=mid(cstr(3/2), 2, 1)

y luego en las funciones haz esto

pos= instr(mi_entero, simbolo)
en vez de
pos= instr(mi_entero, ".")

te ahorraras problemas si algun dia cambias de servidor.