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
);

' Data type: Date

Property CreatedTime( _
  ByVal pdCreatedTime As DATE _
) As Date

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

See also

FPCArray

Build date: 7/12/2010