Project::SeekByStartDate (Interface: Project)
 
Seeks a Project by its start date.
 
VARIANT_BOOL SeekByStartDate (
    enum eSeekMode eSeekMode,
    DATE dStarted,
    LONG lNumber
)
 
Key information
This method uses key number 9 (See SwapKey).
This is a unique key.
 
Key segment information
Segment NameTypeOrderCollation
pDateStartedDATE (date)Ascending-
pNumberLONG (unsigned)Ascending-
 
Parameters
eSeekMode
[in] A value of the 'eSeekMode' enumeration.
dStarted
[in] The start date of the project you want to seek.
lNumber
[in] The number of the project you want to seek.
 
Return value
True if the record with the given properties was found, otherwise false.
 
See Also
CreateProject
 
Samples
 
C++
 
// Seek all projects that were started in 2024
COleDateTime odtStarted, odtEndYear;
odtStarted.SetDate (2024, 1, 1);
odtEndYear.SetDate (2024, 12, 31);
pProject->SeekByStartDate (smGreater, odtStarted, 0);
while (pProject->GetDBStatus () == 0 && (DATE)pProject->pDateStarted <= odtEndYear)
{
    // Process record data
    
    pProject->GetNext ();
}

C#
 
// Seek all projects that were started in 2024
DateTime dtStarted = new DateTime (2024, 1, 1), dtEndYear = new DateTime (2024, 12, 31);
oProject.SeekByStartDate (eSeekMode.smGreater, dtStarted, 0);
while (oProject.GetDBStatus () == 0 && (DateTime)oProject.pDateStarted <= dtEndYear)
{
    // Process record data
    
    oProject.GetNext ();
}

VBS
 
Dim dtStarted, dtEndYear
dtStarted = #1/1/2024#
dtEndYear = #12/31/2024#
Call oProject.SeekByStartDate(smGreater, dtStarted, 0)
While oProject.GetDBStatus() = 0 And oProject.pDateStarted <= dtEndYear
    ' Process record data

    Call oProject.GetNext()
Wend

VB.NET
 
Dim dtStarted, dtEndYear As Date
dtStarted = #1/1/2024#
dtEndYear = #12/31/2024#
oProject.SeekByStartDate(eSeekMode.smGreater, dtStarted, 0)
While oProject.GetDBStatus() = 0 And oProject.pDateStarted <= dtEndYear
    ' Process record data

    oProject.GetNext()
End While