version 2003
PA_GetResourceTimeStamp (resFile; kind; resID) long
| Parameter | Type | Description | |
| resFile | short | File reference number of the file to access | |
| kind | unsigned long | Kind (4 Bytes type) of resource to access | |
| resID | short | Unique resource ID | |
| Function result | long | TimeStamp of the resource (number of seconds | |
| since midnight, January 1, 1904) |
Description
The routine PA_GetResourceTimeStamp returns the internal time-stamp of the resource type kind and the unique ID resID in the file referenced by resFile.
Each time a resource is created or modified, 4th Dimension stores a long corresponding to the date and time it is created/modified.
The returned value is the number of seconds since midnight, January, 1, 1904.
Under MacOS (or Windows+Altura), this long is obtained using GetDateTime. The values can then be extracted using SecondsToDate. Under Windows, some calculations will probably be necessary.
Example
Under MacOS or Windows+Altura, do something if the resources have been modified since June 25, 2000.
DateTimeRec dtr;
unsigned long secs;
secs = (unsigned long) PA_GetResourceTimeStamp(resFile, 'toto', 128);
SecondsToDate(secs, &dtr);
if( (dtr.day > 25) && (dtr.month > 6) && (dtr.year > 2000) )
{
/* . . . resource modified since this date . . . */
}
See Also
No reference.
Error Handling
Use PA_GetLastError to see if an error occurred