Code: Select all

; Erstelle in Excel "??.N+1.2020" durch STRG + ´ 													in Abhängigkeit der Menuesprache in Excel (ob ENGLISCH oder DEUTSCH))
	
#IfWinActive, ahk_exe EXCEL.EXE 																	; Führe das Script nur in Excel aus
												
~^´::																								; STRG + ´ (Eine Taste weiter rechts neben der Taste mit dem ?)
	
xl := ComObjActive("Excel.Application")																; Ermittelt ein laufendes Objekt, das mit OLE registriert wurde.
; msgbox % xl.International(1)																		; 

If (xl.International(1) = 1.000000)																	; Ist der Wert=1.000000 dann ist Excel in Englisch. Ist der Wert=49.000000 dann ist Excel in Deutsch
   SendInput, ="??." & TEXT(EDATE(TODAY();1);"MM") & "." & TEXT(EDATE(TODAY();1);"JJJJ"){Enter}		; Excel in Englisch
   
Else {																								; Sonst
   SendInput, ="??." & TEXT(EDATUM(HEUTE();1);"MM") & "." & TEXT(EDATUM(HEUTE();1);"JJJJ"){Enter} 	; Excel in Deutsch
   
   }
xl =																								; Variable xl löschen

return

Code: Select all

xl := ComObjActive("Excel.Application")
msgbox % xl.International(1)

Code: Select all

#IfWinActive, ahk_exe EXCEL.EXE 				; Führe das Script nur in Excel aus							
~^´::											; STRG + ´ (Eine Taste weiter rechts neben der Taste mit dem ?)
SendInput, ="??." & TEXT(EDATUM(HEUTE();1);"MM") & "." & TEXT(EDATUM(HEUTE();1);"JJJJ") 	; Excel in Deutsch
return

Code: Select all

#IfWinActive, ahk_exe EXCEL.EXE 				; Führe das Script nur in Excel aus							
~^´::											; STRG + ´ (Eine Taste weiter rechts neben der Taste mit dem ?)
SendInput, ="??." & TEXT(EDATE(TODAY();1);"MM") & "." & TEXT(EDATE(TODAY();1);"JJJJ")	; Excel in Englisch
return

Code: Select all

SendInput, ="??." & TEXT(EDATUM(HEUTE();1);"MM") & "." & TEXT(EDATUM(HEUTE();1);"JJJJ")

Code: Select all

; Erstelle in Excel "??.N+1.2020" durch STRG + ´
	
#IfWinActive, ahk_exe EXCEL.EXE 				; Führe das Script nur in Excel aus
												
~^´::											; STRG + ´ (Eine Taste weiter rechts neben der Taste mit dem ?)
	
YYYY := A_YYYY									; Setze aktuelles 4-stellige Jahr (z. B. 2020). A_Year enthält denselben Wert.
MM := A_MM										; Setze aktuellen 2-stellige Monat (01-12). A_Mon enthält denselben Wert.
If (MM < 12)									; Falls 2-stelliger Monat kleiner als 12 dann erhöhe 2-stelligen Monat um +1
   MM += 1
Else {											; Sonst
   MM := 1										; setzte 2-stelligen Monat auf 1 (im Dezember)
   YYYY += 1									; und erhöhe das 4-stellige Jahr um eine +1 (z. B. 2021)
}
N1 := Format("??.{:02}.{:04}", MM, YYYY)		; Verknüpfe alles zusammen "??.MM.YYYY" mit den Punkten
Send, %N1%{Right}								

N1 =											; Variable N1 löschen

return

Code: Select all

Datum := 20201231235959													; get into next month by adding a single second
Datum += 1, seconds
MsgBox % Datum

F12::																	; press F12
	Random, month, 1, 12												; get random month
	date := 2020 . Format("{:02}", month)								; create valid date 'YYYYMM' string
	date += 31, days													; add 31 days
	MsgBox % Format("{:02}", month) "`n" newMonth := SubStr(date,5,2)	; dispaly pre calcualtion month/ post calcualtion month
	FormatTime, str,% date, '??'.MM.yyyy
	MsgBox % str
	Return

Code: Select all

YYYY := A_YYYY
MM := A_MM
If (MM < 12)
   MM += 1
Else {
   MM := 1
   YYYY += 1
}
Datum := Format("??.{:02}.{:04}", MM, YYYY)
MsgBox, %Datum%

Code: Select all

JAMO := A_YYYY . A_MM     ; AHK hängt für Datumsberechnungen 01000000 automatisch an
JAMO += 31, D             ; in den nächsten Monat wechseln
FormatTime, Datum, %JAMO%, '??'.MM.yyyy
MsgBox, %Datum%

Code: Select all

; Schreibe aktuellen Monat in einen Excelzelle "??.08.2020" durch STRG + ß (ß steht für ?)
	
#IfWinActive, ahk_exe EXCEL.EXE 				; Führe das Script nur in Excel aus
												
~^ß::											; STRG + ß < steht eigentlich für STRG  ?
	
Heute = %A_Now%									; Schreibe das aktuelle Datum in die Variable Heute
FormatTime, Heute, %Heute%, MM.yyyy				; Formatiere die Datumsanzeige wie folgt: 08.2020
Send, ??.%Heute%{Right} 						; Gibt das Ergebnis aus z.B ??.08.2020 und spinge in die nächste Excelzelle nach rechts
	
Heute =											; Variable Heute löschen

return