Description

Returns, as date, the value of the attribute attributeName of the object obj.

Syntax

obj

the object, to read the attribute attributeName from

attributeName

the name of the attribute to be read from the object obj.

Code

  <Extension()> _

  Public Function GetDate(ByVal obj As IGenericAttrObj, ByVal attributeName As String) As Date

    Dim value As Object

    Dim found As Boolean

    value = GetAttributeBase(obj, attributeName, found)

    If found Then

      Return CType(value, Date)

    End If

    Return Nothing

  End Function

Examples

Return GetDate(obj, "modDate")

See also

GetString, GetBoolean, GetDecimal, GetDate, GetXmlDocument, GetDataContent

GetAttributeBase Function