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