There is a UDF called SerialDate() that will make your life much easier.
http://www.kixtart.org/UDF/UDF_lister.php?what=post&code=82573

Here is an example of how I used it to do exactly what you are looking for.

 Code:


Global $array[], $array2[], $c, $Value[]
SetOption(NoVarsInStrings, On)
SetOption(WrapAtEOL, On)
SetOption(NoMacrosinStrings,ON)
If Open(1,"c:\ScriptHome\Support\iplist.txt") = 0
$c=0
Use * "\\server\share" /user:"user" /password:"password"
$Drive = @Result

While @ERROR=0
	ReDim Preserve $array[$c]
	ReDim Preserve $array2[$c]
	$line = ReadLine (1)
 If $line <> ""
	$Value = Split ($line,",")
	$array[$c] = $Value[0]
	$array2[$c] = $Value[1]
  EndIf
	$c=$c+1
Loop
Close(1)

$CUDate = SerialDate(@Date)
$C = 0
While $C <= UBound($Array)
	$compare = Dir($Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\")
	
	While $Compare<> "" And @Error = 0
		$Filedate = GetFileTime($Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\"+$Compare)
		$Filedate = Split($Filedate," ")
		$Filedate = SerialDate($FileDate[0])
			If $CUDate - $FileDate > 30
				Del $Drive+"\"+$Array2[$c]+"\"+$Array[$c]+"\backup config\"+$Compare
			EndIf
		$Compare = Dir()
	Loop
$C = $C + 1
Loop

$compare = Dir("c:\ScriptHome\Logs\tftp*.*")
	
While $Compare<> "" And @Error = 0
	$Filedate = GetFileTime($Compare)
	$Filedate = Split($Filedate," ")
	$Filedate = SerialDate($FileDate[0])
		If $CUDate - $FileDate > 30
			Del "c:\ScriptHome\Logs\"+$Compare
		EndIf
	$Compare = Dir()
Loop

Use $Drive /delete

Function serialdate($ExpD)
  Dim $z,$h,$a,$b,$c,$y,$m,$d
  If InStr($ExpD,'/')
    $ExpD=Split($ExpD,'/')
    $y=Val($ExpD[0])
    $m=Val($ExpD[1])
    $d=Val($ExpD[2])
    If $m<3
      $m=$m+12
      $y=$y-1
    EndIf
    $SerialDate=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
  Else
    $z=0+$ExpD+306
    $h=100*$z-25
    $a=$h/3652425
    $b=$a-$a/4
    $y=(100*$b+$h)/36525
    $c=$b+$z-365*$y-$y/4
    $m=(5*$c+456)/153
    $d=$c-(153*$m-457)/5
    If $m>12
      $y=$y+1
      $m=$m-12
    EndIf
    $SerialDate=Right('0000'+$y,4)+'/'+Right('00'+$m,2)+'/'+Right('00'+$d,2)
  EndIf
EndFunction
_________________________
Today is the tomorrow you worried about yesterday.