RealToString Example

Using Programming Languages other than VBA

Sub Example_RealToString()
	' This example converts values in a given format to their string equivalents.

	Dim unit As Long
	Dim valueAsStr As String
	Dim precision As Integer
	Dim valueAsReal As Double
	precision = 6

	' Convert a real value 17.5 using Scientific mode to a String
	unit = acScientific
	valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
	MsgBox "17.5 in scientific format is " & valueAsStr, , "RealToString Example"

	' Convert a real value 17.5 using Decimal mode to a String
	unit = acDecimal
	valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
	MsgBox "17.5 in decimal format is " & valueAsStr, , "RealToString Example"

	' Convert a real value 17.5 using Engineering mode to a String
	unit = acEngineering
	valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
	MsgBox "17.5 in engineering format is " & valueAsStr, , "RealToString Example"

	' Convert a real value 17.5 using Architectural mode to a String
	unit = acArchitectural
	valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
	MsgBox "17.5 in architectural format is " & valueAsStr, , "RealToString Example"

	' Converts a real value 17.5 using fractional mode to a String
	unit = acFractional
	valueAsStr = ThisDrawing.Utility.RealToString(17.5, unit, precision)
	MsgBox "17.5 in fractional format is " & valueAsStr, , "RealToString Example"

End Sub

 

   Comments?