@echo off& color f9& title by author Gan& setlocal enabledelayedexpansion&pushd "%cd%"& rem 20:10 2019/11/23
::ond=求前xx天的日期
set w1=日一二三四五六
for /l %%a in (1,1,300) do call :tt %%a
::call :tt 9
pause&exit
:tt
::set date1=%date%&          rem 当前日期
  set date1=%date%
  set /a m1=31, m2=28, m3=31, m4=30, m5=31, m6=30, m7=31, m8=31, m9=30, m10=31, m11=30, m12=31& rem 平年每月天数
  set /a ond=%1
  set /a ond1=%ond%
  set date2=%date1%
  set year=%date1:~0,4%

:yyr
  for /f "tokens=1-3 delims=\/: " %%a in ("%date2%") do (set /a year=%%a, oldm=1%%b%%100, day=1%%c%%100)

  call :twomonth
:lri
  set /a ri=m!oldm!-day
  if !ond! leq !ri! (set /a day+=ond& goto:zhou)
  set /a ond1-=ri, oldm+=1
:loop
  set /a n=1
  for /l %%a in (1,1,!n!) do ( set /a day=0
  if !oldm! gtr 12 set /a oldm=1, year+=1& call :twomonth
::rem 每月天数  
  set /a oldmd=m!oldm!
  if !ond1! leq !oldmd! (set /a day+=ond1) else (set /a ond1-=oldmd, oldm+=1& goto :loop))

:zhou
::rem 计算星期
  if %oldm% lss 10 set oldm=0%oldm%
  if %day% lss 10 set day=0%day%
  set date3=!year!/%oldm%/%day%
  for /f "tokens=1-3 delims=\/: " %%a in ("%date3%") do (set /a year=%%a, month=1%%b%%100, day=1%%c%%100)
  set y2=%year:~2,2%
  set /a sj= year/100
  if %month% equ 1 set /a month=13, year-=1, sj=!year!/100& set y2=!year:~2,2!
  if %month% equ 2 set /a month=14, year-=1, sj=!year!/100& set y2=!year:~2,2!
  set /a w=(y2+y2/4+sj/4+(-2*sj)+(26*(month+1)/10)+day-1)%%7
  echo 今天是%date1%; 前%ond%天是%date3% 周!w1:~%w%,1!
  goto :eof

::计算平年闰年
:twomonth
  for /f %%a in ("year") do (set /a oldy=%%a, n=0)
  set /a a=oldy%%4,a1=oldy%%100,a2=oldy%%400
  if !a! equ 0 set n=1&if !a1! equ 0 set n=0
  if !a2! equ 0 set n=1
  if !n! equ 1 (set m2=29) else (set m2=28)
  goto :eof
复制代码

#if 0
	By Gin
	Dec-C++ 5.11
	xx.c
	#endif
#include <stdio.h>
#include <time.h>
#include <stdlib.h> 

void date_s(int *year,int *month,int *day);
void runnian(int *,int y);
void loop(int *array,int y,int m,int d,int nd);

int main(void)
{
	int array[12]={31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
	int nd=20000;//相差天数 
	int year=0,month=0,day=0;
	date_s(&year,&month,&day);
	printf("%4d/%02d/%02d\n",year,month+1,day);
	loop(array,year,month,day,nd);
	return 0;
}
//计算当前日期 
void date_s(int *year,int *month,int *day)
{
	time_t t;
	time(&t);
	struct tm *p = localtime(&t);
	*year=p->tm_year+1900;
	*month=p->tm_mon;
	*day=p->tm_mday;
}
//计算闰年 
void runnian(int *array,int y)
{
	if ( y%4 == 0 && y%100 != 0) array[1]=(29);
	else if (! (y%400)) array[1]=(29);
	else array[1]=(28);	
}
//循环天数
void loop(int *array,int y,int m,int d,int nd)
{
	runnian(array,y);
	int i=1;
	for (;i<=nd;i++)
	{
		if (i < d)
		{
			printf("%4d/%02d/%02d\n",y,m+1,d-i);
			continue;
		}
		else
		{
			m--;nd-=d;i=-1;
			if (m < 0)
			{
				m=11;y--;
				runnian(array,y);
			}
			d=array[m];
		}
	}
}
复制代码

1965/06/12
1965/06/11
1965/06/10
1965/06/09
1965/06/08
1965/06/07
1965/06/06

--------------------------------
Process exited after 0.8944 seconds with return value 0
请按任意键继续. . .
复制代码