just 4 fun:
Spoiler anzeigen
Opt("sendkeydelay",0)
#include <date.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$DateGen = GUICreate("Datum Generator", 232, 134, 192, 114)
$ger = GUICtrlCreateRadio("Deutsches Format (DD.MM.YYYY)", 16, 48, 201, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$us = GUICtrlCreateRadio("US Format (MM/DD/YYYY)", 16, 72, 209, 17)
$asia = GUICtrlCreateRadio("Asia Format (YYYY-MM-DD)", 16, 96, 201, 17)
$info = GUICtrlCreateLabel('Einfügen mit "Ctrl+Y":', 16, 16, 150, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
dim $date = _Now()
$date = StringSplit($date," ")
$date = StringSplit($date[1],".")
HotKeySet("^y","dates")
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func dates()
$date = _Now()
$date = StringSplit($date," ")
$date = StringSplit($date[1],".")
if GUICtrlRead($ger) = $GUI_CHECKED Then $date = $date[1] & "." & $date[2] & "." & $date[3] ;DD.MM.YYYY - GER
if GUICtrlRead($us) = $GUI_CHECKED Then $date = $date[2] & "/" & $date[1] & "/" & $date[3] ;MM/DD/YYYY - US
if GUICtrlRead($asia) = $GUI_CHECKED Then $date = $date[3] & "-" & $date[2] & "-" & $date[1] ;YYYY-MM-DD - Asia
Send($date)
EndFunc
x0r