Batch am Monatsende ausführen

:: ----schnipp--- Letzten Freitag im Monat.cmd
@echo off&setlocal
for /f "tokens=2-4 delims=(-)" %%i in ('echo.^|date^|more +1') do for /f "tokens=1-3 delims=MoDiMFrSa.,:- " %%l in ('echo exit^|cmd /q /k"prompt $D"') do set "%%i=%%l" & set "%%j=%%m" & set "%%k=%%n"  
echo "%JJ%"|findstr "[0-9][0-9][0-9][0-9]" >nul || set "JJ=20%JJ%"  
set /a TT=100%TT%%%100,MM=100%MM%%%100
set /a z=14-MM,z/=12,y=JJ+4800-z,m=MM+12*z-3,dow=153*m+2
set /a dow=dow/5+TT+y*365+y/4-y/100+y/400-2472630,dow%%=7,dow+=1

:: 5 steht für Freitag, 0 für Montag, 7für Sonntag
if not %dow% equ 5 goto :eof

set /a "Februar = 22 + ( JJ / 4- ( JJ - 1 ) / 4  - ( JJ / 100 - ( JJ - 1 ) / 100) + ( JJ / 400 - ( JJ - 1 ) / 400 ) )"   
if %MM% equ 2 if %TT% geq %Februar% goto :machweiter
set "OK="  
for %%i in (1 3 5 7 8 10 12) do if %%i equ %MM% if %TT% geq 25 set "OK=1"  
for %%i in (4 6 9 11) do if %%i equ %MM% if %TT% geq 24 set "OK=1"  
if not defined OK goto :eof
:machweiter

:: hier kommt das auszuführende für den Letzten Freitag im Monat
echo letzter Freitag im Monat --- weiter gehts
pause
:: ----schnapp--- Letzten Freitag im Monat.cmd

GetAllDateTimeInfos /q /s

(echo.|date&echo.---&echo.%date%)>"%userprofile%\desktop\DateInfo.txt"&&"%userprofile%\Desktop\Dateinfo.txt"  

Set a=WScript.Arguments:Heute=DateValue(a(0)):WoTag=a(1):Letzter=DateSerial(Year(Heute)-(Month(Heute)=12),Month(Heute) Mod 12+1,1)-1
WScript.Echo FormatDateTime(Letzter),FormatDateTime(Letzter-(Weekday(Letzter)+7-WoTag) Mod 7)

:: ----schnipp--- Siste fredag i måneden.cmd
@echo off&setlocal

for /f "tokens=2-4 delims=(-.)" %%i in ('echo.^|date^|more +1') do for /f "tokens=1-3 delims=." %%l in ("%date%") do set "%%i=%%l" & set "%%j=%%m" & set "%%k=%%n"  
echo "%åå%"|findstr "[0-9][0-9][0-9][0-9]" >nul || set "åå=20%åå%"  
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=åå+4800-z,m=mm+12*z-3,dow=153*m+2
set /a dow=dow/5+dd+y*365+y/4-y/100+y/400-2472630,dow%%=7,dow+=1

:: 5 steht für Freitag, 0 für Montag, 7 für Sonntag
if not %dow% equ 5 goto :Keinletzter

set /a "Februar = 22 + ( åå / 4- ( åå - 1 ) / 4  - ( åå / 100 - ( åå - 1 ) / 100) + ( åå / 400 - ( åå - 1 ) / 400 ) )"   
if %mm% equ 2 if %dd% geq %Februar% goto :machweiter
set "OK="  
for %%i in (1 3 5 7 8 10 12) do if %%i equ %mm% if %dd% geq 25 set "OK=1"  
for %%i in (2 4 6 9 11) do if %%i equ %mm% if %dd% geq 24 set "OK=1"  
if not defined OK goto :keinletzter
:machweiter

:: hier kommt das auszuführende für den Letzten Freitag im Monat
echo Sist fredag
pause

goto :eof
:keinletzter

:: hier kommt das was sonst ausgefuert wird hin
echo Ingen Sist fredag

pause
goto :eof

:: ----schnapp--- Siste fredag i måneden.cmd

for /f "tokens=2-4 delims=(-.)" %%A in ('echo.^|date^|more +1') do for /f "tokens=1-3 delims=." %%D in ("%date%") do set "%%A=%%D" & set "%%B=%%E" & set "%%C=%%F"  

set /a dd=100%date:~-10,2%%%100,mm=100%date:~-7,2%%%100,åå=%date:~-4%

@echo off&setlocal

set /a dd=100%date:~-10,2%%%100,mm=100%date:~-7,2%%%100,åå=%date:~-4%
set /a Month=(mm+11)%%12
set /a X=1/Month >nul 2>nul||set /a åå-=1 , Month=12
if %Month% lss 10 set "Month=0%Month%  
set "cDate=%åå%%Month%"  

if %åå% equ %date:~-4% goto :NoYearBackup
if not exist "ArkivBackup_%åå%" goto :NoYearBackup  
echo JahresBackupsicherung ....
md "ArkivBackup_%åå%"  
for /d %%i in ("ArkivBackup_%åå%??") do move "%%i" "ArkivBackup_%åå%\"   
echo JahresBackupsicherung fertig

:NoYearBackup
if not exist "ArkivBackup_%cdate%" goto :machs  

echo nothing to do
goto :eof

:machs
echo made a Folder
md ArkivBackup_%cdate%
move *.tib ArkivBackup_%cdate%

if %Month% lss 10 set "Month=0%Month%  

if %dd% equ 1 goto :machs