Export (0) Print
Expand All

IFPCArray::CreatedTime property

Applies to: desktop apps only

The CreatedTime property gets a Date value (DATE value in C++) that specifies the date and time in Coordinated Universal Time (UTC) when the array was created.

This property is read-only.

Syntax


HRESULT get_CreatedTime(
  DATE *pdCreatedTime
);

Property value

Date value that specifies the date and time in Coordinated Universal Time (UTC) when the array was created.

Error codes

This property method returns S_OK if the call is successful; otherwise, it returns an error code.

Remarks

This property is read-only.

Examples

This VBScript script retrieves the collection of arrays, iterates through the collection, and displays the names of the arrays and the dates and times when they were created.

' Create the root object.
Set root = CreateObject("FPC.Root")
' Declare the other objects needed.
Dim isaArrays      ' An FPCArrays collection
Dim isaArray       ' An FPCArray object
' Get references to the array object and
' the arrays collection.
Set isaArrays = root.Arrays
' List the arrays and the date on which each was created.
WScript.Echo "***Arrays***"
For Each isaArray In isaArrays
    WScript.Echo isaArray.Name & ": " & DateToText(isaArray.CreatedTime) _
        & " " & TimeToText(isaArray.CreatedTime)
Next
Private Function DateToText(timeStamp)
    Dim monthStr
    Dim yearStr
    Dim dayStr
    Dim dateVal
    dateVal = CDate(timeStamp)
    monthStr = AddZero(Month(dateVal))    
    dayStr = AddZero(Day(dateVal))
    yearStr = CStr(Year(dateVal))    
    DateToText = yearStr & "-" & monthStr  & "-" & dayStr 
End Function
Private Function AddZero(theObj)
    If(Len(CStr(theObj)) < 2) Then
        AddZero = "0" & CStr(theObj)
    Else
        AddZero = CStr(theObj)
    End If
End Function
Private Function TimeToText(timeStamp)
    Dim hourStr
    Dim minStr
    Dim secStr
    Dim dateVal
    
    dateVal = CDate(timeStamp)
    hourStr = AddZero(Hour(dateVal))
    minStr = AddZero(Minute(dateVal))
    secStr = AddZero(Second(dateVal))
    TimeToText = hourStr & ":" & minStr & ":" & secStr
End Function

Requirements

Minimum supported client

Windows Vista

Minimum supported server

Windows Server 2008 R2, Windows Server 2008 with SP2 (64-bit only)

Version

Forefront Threat Management Gateway (TMG) 2010

IDL

Msfpccom.idl

DLL

Msfpccom.dll

See also

FPCArray

 

 

Build date: 7/12/2010

Community Additions

ADD
Show:
© 2014 Microsoft