File Dates

[GEOSoft]

I have to check a files date and if it is older than 30 days, pop up a message box. What is the best approach to take?

[scriptkitty]

This is certainly not best, but until someone comes up with a better one. +- one day

$time = FileGetTime("test.au3")
$moncalc=StringSplit("31,28,31,30,31,30,31,31,30,31,30,31",",") 
;$time[0] = year
;$time[1] = month
;$time[2] = day
$mon=0
For $i=1 To @MON
    $mon=$mon+$moncalc[$i]
Next
For $i=1 To $time[1]
    $mon=$mon-$moncalc[$i]
Next
$Timedif=(((@YEAR-$time[0])*365)+($mon)+@mday-$time[2])
MsgBox(1,"Date was "&$time[1]&"/"&$time[2]&"/"&$time[0],$timedif & " Days old")

There is not a lot of data calculation functions, so I used an array to give how many days in each month, added them, added 365 for each year change, and the difference in Days.

It doesn't work on leap years, like this one, and I didnt' calculate for time, 24hours=1day.

for a function you could do:

Func timedif($x)
$time = FileGetTime($x)
$moncalc=StringSplit("31,28,31,30,31,30,31,31,30,31,30,31",",") 
if IsArray ( $time) then
$mon=0
For $i=1 To @MON
    $mon=$mon+$moncalc[$i]
Next
For $i=1 To $time[1]
    $mon=$mon-$moncalc[$i]
Next
$Timedif=(((@YEAR-$time[0])*365)+($mon)+@mday-$time[2])
return $Timedif
else
msgbox(1,"Error","File not found")
endif
Endfunc

Edited January 24, 2004 by scriptkitty