Guten Tag,
Ich möchte ein Script schreiben, welches nach Eingabe eines Datums 2 Wochen zurück rechnet und das neue Datum ausgibt. Sowas lässt sich doch im besten mit #include <date.au3> realisieren. Folgendes Script habe ich bereits geschrieben, welches jedoch nicht den gewünschten Erfolg erzielt:
; Programmstart
;includes
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;Start der GUI
#Region ### START Koda GUI section ### Form=
$datumsschreiber = GUICreate("datumsschreiber", 348, 142, 194, 126)
$Input1 = GUICtrlCreateInput("", 8, 32, 121, 21)
$Label1 = GUICtrlCreateLabel("Bitte ein Datum eintragen :", 8, 8, 330, 17)
$MenuItem2 = GUICtrlCreateMenu("&Datei")
$MenuItem1 = GUICtrlCreateMenu("&Schließen")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $split
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input1
;///Aufteilung des Datums
$split = Stringsplit(GUICtrlRead($Input1), ".")
If IsArray($split) Then
msgbox(0,"Tag", $split[1])
msgbox(0,"Monat", $split[2])
msgbox(0,"Jahr", $split[3])
;///Start der Kalenderformel
;If $monat = 02 Then
$monat = $split[2]
$tag = 1
$tag = ($split[1] - 7)
If $tag < 1 Then
$monat = ($split[2] - 1)
$wochen =
$tag = 31 - $wochen ;//minus rest von Woche
EndIf
;///Ausgabe des Endergebnisses
MsgBox(64, "test", "wert:" & $tag & " und " & $monat)
Endif
EndSwitch
WEnd
Wie kann man nun mithilfe der Date.au3 soetwas basteln, wie einen Kalender der auch das Schaltjahr usw. berücksichtigt, um dann 2 Wochen zurückzurechnen?