怎么样取系统前一天的日期

ellenrobbien

怎么样取系统前一天的日期
YEA=date:%~0,4%
MON=date:%~6,2%
DAT=date:%~8,2%   

DATE1=date:%YEA%%MON%%DAT%

这样的格式

我是用来FTP传送的RAR压缩包，WIN XP系统中的计划任务，自动执行的传输

所以我要取的这个DATE1是系统前一天的日期
那么这个变量DATE1怎么设？

[ 本帖最后由 ellenrobbien 于 2009-2-26 11:19 编辑 ]

saintdragon

论坛以前问过这个问题，自己搜索一下

wangdonsy

你参考一下这个  求N天前日期的批处理

代码1：

1. 
   
2. --------------------------------------------------------------------------------
   
3. 
   
4. @echo off
   
5. :: 求N天前的日期
   
6. :: 思路：
   
7. :: 　　模拟手工运算，用日期数减去天数，差值为负时向高位借1。
   
8. :: 特点：
   
9. :: 　　代码简洁，容易理解，速度快慢取决于指定的天数大小
   
10. 
    
11. setlocal enabledelayedexpansion
    
12. 
    
13. :Main
    
14. cls
    
15. :: 日期可以带星期，但是，必须以年月日的顺序排列
    
16. :: 年份必须是四位，否则会出错
    
17. set day=%date%
    
18. set days=0
    
19. echo.&echo.
    
20. echo       指定的日期是：%day%
    
21. echo.
    
22. set /p input=      请指定要追溯的天数：
    
23. 
    
24. :: 提取日期
    
25. for /f "tokens=1-3 delims=-/. " %%i in ("%day%") do (
    
26.     set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100
    
27. )
    
28. 
    
29. set /a sd-=input
    
30. 
    
31. if %sd% leq 0 call :count
    
32. 
    
33. cls
    
34. echo.&echo.
    
35. echo       指定的日期是：%day%
    
36. echo.
    
37. set sm=0%sm%
    
38. set sd=0%sd%
    
39. echo       %input% 天前的日期是：%sy%-%sm:~-2%-%sd:~-2%
    
40. pause>nul
    
41. goto Main
    
42. 
    
43. :count
    
44. set /a sm-=1
    
45. if !sm! equ 0 set /a sm=12, sy-=1
    
46. call :days
    
47. set /a sd+=days
    
48. if %sd% leq 0 goto count
    
49. goto :eof
    
50. 
    
51. :days
    
52. :: 获取指定月份的总天数
    
53. set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) | ^!(sy %% 400)"
    
54. set /a max=28+leap
    
55. set num=0
    
56. set str=31 %max% 31 30 31 30 31 31 30 31 30 31
    
57. for %%i in (%str%) do (
    
58.     set /a num+=1
    
59.     if %sm% equ !num! set days=%%i&goto :eof
    
60. )
    
61. goto :eof
    

复制代码

　　
代码2：

1. 
   
2. --------------------------------------------------------------------------------
   
3. 
   
4. @echo off
   
5. :: 求N天前的日期
   
6. :: 思路：
   
7. :: 　　把当前日期转换为天数
   
8. :: 　　用当前天数减去N天
   
9. :: 　　把结果再转换为日期
   
10. :: 具体操作是：
    
11. :: 　　逐年计算天数
    
12. :: 特点：
    
13. ::    代码简洁，容易理解，速度较慢，但是不受指定天数大小的影响
    
14. 
    
15. setlocal enabledelayedexpansion
    
16. 
    
17. :Main
    
18. cls
    
19. :: 日期可以带星期，但是，必须以年月日的顺序排列
    
20. :: 年份必须是四位，否则会出错
    
21. set day=%date%
    
22. set days=0
    
23. echo.&echo.
    
24. echo       指定的日期是：%day%
    
25. echo.
    
26. set /p input=      请指定要追溯的天数：
    
27. 
    
28. rem ========把指定日期转换为天数========
    
29. :: 提取日期
    
30. for /f "tokens=1-3 delims=-/. " %%i in ("%day%") do (
    
31.     set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100
    
32. )
    
33. :: 把年份转化为天数
    
34. for /l %%i in (1,1,%sy%) do (
    
35.     set /a leap="^!(%%i %% 4) & ^!(^!(%%i %% 100)) | ^!(%%i %% 400)"
    
36.     set /a days=days+365+leap
    
37. )
    
38. :: 把月份转化为天数
    
39. set /a num=0, mday=0, max=28+leap
    
40. set str=0 31 %max% 31 30 31 30 31 31 30 31 30
    
41. for %%i in (%str%) do (
    
42.     set /a num+=1
    
43.     if !num! leq !sm! set /a mday+=%%i
    
44. )
    
45. 
    
46. set /a days=days+mday+sd
    
47. 
    
48. set /a days-=input
    
49. 
    
50. 
    
51. rem ========把天数转换为日期========
    
52. :: 获取年份
    
53. for /l %%i in (1,1,%sy%) do (
    
54.     set /a leap="^!(%%i %% 4) & ^!(^!(%%i %% 100)) | ^!(%%i %% 400)"
    
55.     set /a days_tmp=365+leap
    
56.     if !days! gtr !days_tmp! (
    
57.         set /a days-=days_tmp
    
58.         set y=%%i
    
59.     )
    
60. )
    
61. :: 获取月份及日期
    
62. set /a m=1, max=28+%leap%
    
63. set str=31 %max% 31 30 31 30 31 31 30 31 30
    
64. for %%i in (%str%) do (
    
65.     if !days! gtr %%i (
    
66.         set /a days-=%%i
    
67.         set /a m+=1
    
68.     ) else goto next
    
69. )
    
70. :next
    
71. set m=0%m%
    
72. set d=0%days%
    
73. 
    
74. cls
    
75. echo.&echo.
    
76. echo       指定的日期是：%day%
    
77. echo.
    
78. echo       %input% 天前的日期是：%y%-%m:~-2%-%d:~-2%
    
79. pause>nul
    
80. goto Main
    

复制代码

　
代码3：

1. 
   
2. --------------------------------------------------------------------------------
   
3. 
   
4. @echo off
   
5. :: 求N天前的日期
   
6. :: 思路：
   
7. :: 　　把当前日期转换为天数
   
8. :: 　　用当前天数减去N天
   
9. :: 　　把结果再转换为日期
   
10. :: 具体操作是：
    
11. :  　　先按照每年365天计算，然后再计算闰年的个数
    
12. :: 　　最后再做转换
    
13. :: 特点：
    
14. :: 　　代码复杂，不便于理解，但是速度很快
    
15. :: 计算上还存在bug，可以用 11111 来和头两个做对比测试，暂时没时间更新
    
16. 
    
17. setlocal enabledelayedexpansion
    
18. 
    
19. :Main
    
20. cls
    
21. :: 日期可以带星期，但是，必须以年月日的顺序排列
    
22. :: 年份必须是四位，否则会出错
    
23. set day=2007-01-02
    
24. set /a days=0, sum=0
    
25. echo.&echo.
    
26. echo       指定的日期是：%day%
    
27. echo.
    
28. set /p input=      请指定要追溯的天数：
    
29. 
    
30. rem =======把日期转换为天数=======
    
31. :: 提取日期
    
32. for /f "tokens=1-3 delims=/-. " %%i in ("%day%") do (
    
33.     set /a sy=%%i, sm=100%%j %% 100, sd=100%%k %% 100, y=%%i
    
34. )
    
35. 
    
36. :: 把年份抓换为天数
    
37. set num=0
    
38. if %sy% lss 400 goto next1
    
39. call :leap_num
    
40. :next1
    
41. set /a leap_num=sy/4-num
    
42. 
    
43. :: 把月份转换为天数
    
44. set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) | ^!(sy %% 400)"
    
45. set /a max=28+leap
    
46. set num=0
    
47. set str=31 %max% 31 30 31 30 31 31 30 31 30 31
    
48. for %%i in (%str%) do (
    
49.     set /a num+=1
    
50.     if !num! lss %sm% set /a sum+=%%i
    
51. )
    
52. 
    
53. set /a days=365*sy+leap_num+sum+sd
    
54. 
    
55. set /a days-=input
    
56. 
    
57. rem =======把天数转换为日期=======
    
58. 
    
59. :: 获取年份
    
60. set /a y=days/365
    
61. set /a mod1=days %% 365
    
62. call :leap_num
    
63. set /a mod2=mod1-leap_num
    
64. :loop2
    
65. if %mod2% lss 0 (
    
66.     set /a y-=1
    
67.     set /a mod2=365+mod2
    
68. ) else goto next2
    
69. goto loop2
    
70. 
    
71. :: 获取月份及日期
    
72. :next2
    
73. set /a m=1, days=mod2+1, max=28+%leap%
    
74. set str=31 %max% 31 30 31 30 31 31 30 31 30
    
75. for %%i in (%str%) do (
    
76.     if !days! gtr %%i (
    
77.         set /a days-=%%i
    
78.         set /a m+=1
    
79.     ) else goto next3
    
80. )
    
81. :next3
    
82. set m=0%m%
    
83. set d=0%days%
    
84. 
    
85. cls
    
86. echo.&echo.
    
87. echo       指定的日期是：%day%
    
88. echo.
    
89. echo       %input% 天前的日期是：%y%-%m:~-2%-%d:~-2%
    
90. pause>nul
    
91. goto Main
    
92. 
    
93. :leap_num
    
94. :: 计算能被100整除但是不能被400整除的年次
    
95. set /a y_tmp=(%y:~0,1%%y%-%y%)/10
    
96. set num=0
    
97. :loop1
    
98. set /a mod=y_tmp %% 400
    
99. if %mod% neq 0 set /a num+=1
    
100. set /a y_tmp-=100
     
101. if %y_tmp% geq 100 goto loop1
     
102. set /a leap_num=y/4-num
     
103. goto :eof
     

复制代码

[ 本帖最后由 wangdonsy 于 2009-2-25 20:03 编辑 ]

hanghang207

我的建议， 也是我的经验：
1  在DATE1日生成 ftp 脚本（例如： ftp.txt），脚本中的所有日期都是当天日期，不用计算。
2  计划任务在DATE日执行的脚本内容为：
        1）取得 DATE1生成的ftp脚本文件 ftp.txt
            2）ftp -s  ftp.txt  x.x.x.x