On Monday, February 17, 2003, at 09:26  AM, Michael Evans wrote:

> If I pass fsr.MDate to FN FileisOldEnough%(fsr.MDate, 60), is this how 
> I
> should should do this age check?
>
> CLEAR LOCAL
> LOCAL FN FileisOldEnough%(dateToCheck&, ageDelta&)
> DIM nowSecs&, OSErr, elapsed&, isOldEnuf%
>
> OSErr = FN ReadDateTime (nowSecs&)
> elapsed& = ABS(nowSecs&-dateToCheck&)
>
> LONG IF elapsed& > ageDelta&
> isOldEnuf% = _true
> XELSE
> isOldEnuf% = _false
> END IF
>
> END FN = isOldEnuf%

Largely a matter of personal preference, but I would write it as:

local fn IsOldEnough( secsToCheck as UInt32, minSecsOld as UInt32 )
dim as UInt32  @ nowSecs
GetDateTime( @nowSecs )
end fn = ( (nowSecs - secsToCheck) > minSecsOld )


Only four lines of code instead of 11.

Robert P.