I think I resolved my own issue. Here is my solution. Please give it a look and let me know if you see something that won't work.gets $thefile
$tt = getfiletime ($thefile)
$FileDate = substr($tt,1,10)
? $FileDate
$FileYear = val(substr($tt,1,4))
$FileMonth = val(substr($tt,6,2))
$FileDate = val(substr($tt,9,2))
$NowYear = @year
$NowMonth = @monthno
$NowDate = @mdayno
If $FileYear <> $NowYear
$NowMonth = $NowMonth + (12 * ($NowYear - $FileYear))
Endif
If $FileMonth <> $NowMonth
$NowDate = $NowDate + 30
Endif
If ($NowDate - $FileDate) > 15
? "File older than 2 weeks"
Else
? "File newer than 2 weeks"
Endif
