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$)