只写到取得新日期,修改文件日期楼主自己写吧#include <Date.au3>
$File1 = FileGetTime(@DesktopDir & "\1.txt", 0);"2012/03/01"
$File2 = FileGetTime(@DesktopDir & "\2.txt", 0)
$DateCalc = _DateDiff("d", $File1[0] & "/" & $File1[1] & "/" & $File1[2], $File2[0] & "/" & $File2[1] & "/" & $File2[2])
If $DateCalc <> 0 Then
$NewDate = _DateAdd("d", $DateCalc, _NowCalcDate())
;$sArray = StringSplit($NewDate, "/") ;将新日期拆分成数组
;$NewFile1Date = $sArray[1] & $sArray[2] & $sArray[3] & $sArray[2] & $File1[3] & $File1[4] & $File1[5] ;文件1叠加天数后的新修改时间
;$NewFile2Date = $sArray[1] & $sArray[2] & $sArray[3] & $sArray[2] & $File2[3] & $File2[4] & $File2[5] ;文件2叠加天数后的新修改时间
MsgBox(0, "误差天数:" & $DateCalc, "当前日期加上误差天数后的新日期:" & @CRLF & $NewDate)
Else
MsgBox(0, "", "时间误差不足1天")
EndIf
|