Click or drag to resize

ICriterionValuesAddDate Method

Add date criterion value (between 1.1.1970 and 31.12.2036) A criterion is a field, an operator and one or more values for comparison. A value (a number, date, list item) used by a criterion when searching.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
void AddDate(
	DateTime Value
)

Parameters

Value
Type: SystemDateTime
Examples

Add date

VB
Dim objDB
Dim msg

Set objDB = CreateObject("superofficedb.database")
If Not (objDB is Nothing) Then
    objDB.login "<userid>", "<password>" ' log in to the database

    Set myStatusMonitor = objDB.Admin.CreateStatusMonitor(5)
    myStatusMonitor.Name = "Super"
    myStatusMonitor.Description = "All contacts that start with Super"
    myStatusMonitor.Picture.ReadFromFile ("c:\Super.jpg")
    myStatusMonitor.IsVisual = True
    myStatusMonitor.Save
    Set myCriteria = myStatusMonitor.Criteria.NewCriterion("contact.name", enBeginsWith)
    myCriteria.Values.AddString ("Super")
    myStatusMonitor.Criteria.Add myCriteria
    Set myCriteria = myStatusMonitor.Criteria.NewCriterion("contact.registered", enAllAfter)
    myCriteria.Values.AddDate (Date$)
    myStatusMonitor.Criteria.Add myCriteria

Else
    MsgBox "unable to connect to database"
End If
Set objso = Nothing

See Also