Time Method Example

This example closes all EXTRA! applications and sessions.

Sub Main()

 Dim Sys As Object

 Dim SystemTime As String

 Set Sys = CreateObject("EXTRA.System")

' Assumes one or more open session

 SystemTime = Sys.Time()

 MsgBox "Current time is " + SystemTime

End Sub