|
ds_GetObjectModifDate |
|---|
| ds_GetObjectModifDate (selector; ID; modifDate; modifTime) <- errorCode | |||
|---|---|---|---|
| Parameter | Type | Description | |
| -> | selector | Integer | Kind of the object |
| -> | ID | Numeric | ID of the object |
| <- | modifDate | Date | Modification date |
| <- | modifTime | Time | Modification time |
| <- | errorCode | Long Integer | Error Code (0 = no error) |
Returns the date/time of last modification for the object whose ID is passed. The possible values for selector are:
| Selectors | |
|---|---|
| 1 | Method |
| 2 | Table |
| 3 | Form |
| 4 | Menu bar |
| 5 | Menu |
| 6 | Tip |
|
Example : Search the project methods that have been modified during the last week. After running this code, the names/visible/IDs arrays contain only the method that have been modified during the past 7 days. |
|---|
| ARRAY TEXT(names;0) |
| ARRAY BOOLEAN(visible;0) |
| ARRAY INTEGER(IDs;0) |
| C_DATE($modifDate;$date) |
| C_TIME($modifTime) |
| ` Get all project methods |
| $err:=ds_GetMethodNames (names;"";visible;IDs) |
| $date:=Current date-7 |
| ` For each method... |
| For ($i;Size of array(IDs);1;-1) |
| ` ...get the modification date... |
| $err:=ds_GetObjectModifDate (1;IDs{i};$modifDate;$modifTime) |
| ` ...if it is < date checked, remove the method from the list. |
| If ($modifDate<$date) |
| DELETE ELEMENT(names;$i) |
| DELETE ELEMENT(visible;$i) |
| DELETE ELEMENT(IDs;$i) |
| End if |
| End for |