-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathDatumPlusEins.cmd
65 lines (51 loc) · 1.78 KB
/
DatumPlusEins.cmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
@REM Script by balcanar @ https://www.computerbase.de/forum/threads/datum-in-format-jjjjmmtt-2-stellig-addieren.1456014/
@REM Angepasst von Luke Röper, <[email protected]>, Stadt Augsburg
@echo off
IF "%1"=="" goto :fehler
IF "%2"=="" goto :fehler
IF "%3"=="" goto :fehler
set jahr=%3%
set monat=%2%
set "tag=%1%"
@REM echo %jahr%.%monat%.%tag%
IF %tag%==10 goto :weiter
IF %tag%==20 goto :weiter
IF %tag%==30 goto :weiter
set "tagX=%tag%"
set tagx=%tagx:0=%
set /A tag=%tagX%
:weiter
@REM echo.
@REM pause
set /a Schaltjahr=%jahr%%%4
if %jahr:~-2%==00 set /a Schaltjahr+=%Jahr:~,2%%%4
set korrektur=false
IF %tag%==28 IF %Schaltjahr% neq 0 if %monat%==02 set monat=03& set tag=1& set korrektur=true
IF %tag%==29 IF %monat%==02 set monat=03& set tag=1& set korrektur=true
IF not %tag%==30 goto :notag30
IF %monat%==04 set monat=05& set tag=1& set korrektur=true
IF %monat%==06 set monat=07& set tag=1& set korrektur=true
IF %monat%==09 set monat=10& set tag=1& set korrektur=true
IF %monat%==11 set monat=12& set tag=1& set korrektur=true
:notag30
IF not %tag%==31 goto :notag31
IF %monat%==01 set monat=02& set tag=1& set korrektur=true
IF %monat%==03 set monat=04& set tag=1& set korrektur=true
IF %monat%==05 set monat=06& set tag=1& set korrektur=true
IF %monat%==08 set monat=09& set tag=1& set korrektur=true
IF %monat%==07 set monat=08& set tag=1& set korrektur=true
IF %monat%==10 set monat=11& set tag=1& set korrektur=true
IF %monat%==12 set monat=01& set tag=1& set /a jahr+=1& set korrektur=true
:notag31
IF "%korrektur%"=="true" goto :fertig
set /a tag+=1
:fertig
set "tagX=0%tag%"
set "tagX=%tagx:~-2%"
echo %jahr%%monat%%tagx% > dateplusone.temp
goto :beenden
:fehler
echo ParamFehler
goto :beenden
:beenden
@REM pause