December 1, 2005 - WinTask - Separate

'
' Separate a Real into the Integer and Decimal portions
'

' Author: Joe Strazzere

'

Real$="1234.56"

Int$=Str$(Val(Real$))

Dec$=Substract(Real$,Str$(Val(Real$)))

msgbox("Integer = "+Int$)

msgbox("Decimal = "+Dec$)