DoubleToStaFormat Example

Sub Example_DoubleToStaFormat()

    ' This example returns the DoubleToStaFormat string for 100.0.

    Dim aligns As AeccAlignments

    Set aligns = AeccApplication.ActiveProject.Alignments

    MsgBox "The DoubleToStaFormat for 100.0 is " & aligns.DoubleToStaFormat(100#), _

        vbInformation, "DoubleToStaFormat Example"

End Sub