GefTextFormat.GetTimeAbsoluteFormat (method)

Gets the format parameters being used for the TextExpression display.

Syntax:

Boolean = object.GetTimeAbsoluteFormat ( TimeFormat )

Parameters:

TimeFormat As VARIANT* -

Description:

The GetTimeAbsoluteFormat method gets the display format if it is configured to display time. The parameters correspond to the fields in the Text property page.

Example:

Sub GefTextFormat_GetTimeAbsoluteFormat()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

    Dim nTimeFmt As Variant

    Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

    If Not oCimTxtFmt Is Nothing
Then

        oCimTxtFmt.TextExpression
= "$Project.DateTime"

        CimGetScreen.Refresh
False

        If
oCimTxtFmt.SetFormatToTimeAbsolute("MM/dd/yyyy HH:mm:ss") = True
Then

            CimGetScreen.Refresh
False

            MsgBox
"The value is now being displayed as absolute time"

            If
oCimTxtFmt.GetTimeAbsoluteFormat(nTimeFmt) = True Then

                MsgBox
"The absolute time value is formated using " & """" &
nTimeFmt & """"

            End
If

        End
If

Else

        MsgBox "The
object does not have any text to format"

End If

End Sub