Property: VariantDate for UsiTimeDisp

Property: VariantDate for UsiTimeDisp

Specifies a date/time in the VBS date format. This entry does not include microseconds and nanoseconds.

If you use the VariantDate property in a function that works with seconds instead of milliseconds, the time information is rounded and can lead to deviations in the calculation result. Date/Time display with MsgBoxDisp is one of the standard functions.

Set oDispatch = Object.VariantDate

Note  The VariantDate property contains a maximum of 4 decimal places.

Dim oMyResultsList, Element, oMyTime
Set oMyResultsList = Navigator.Display.CurrDataFinder.ResultsList
For Each Element in oMyResultsList.Elements
  If Element.IsKindOf( eSearchFile ) Then
    Set oMyTime = Element.Properties("CreateTime")
    Call MsgBoxDisp("File Creation Time: " & oMyTime.Value.VariantDate)
  End If
Next

oMyResultsList = dd.Navigator.Display.CurrDataFinder.ResultsList 
for Element in oMyResultsList.Elements: 
    if Element.IsKindOf( dd.eSearchFile ) : 
        oMyTime = Element.Properties("CreateTime") 
        dd.MsgBoxDisp("File Creation Time: " + oMyTime.Value.VariantDate)