DoubleToStaFormat Example

Land Auto

previous page next page

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

previous page start next page