Hallo zusammen,
irgendwie krieg ich den Dreh nicht so richtig... ziel soll es sein die Datenfelder in verschiedenen Variationen zu erstellen...
Meine Problematik ist eigentlich das Arrayelement um $tag[6]. Ich hätte gerne dass das jeweilige Datumfeld bei einer Größe < 10 also 1-9 eine führende 0 voran setzt... in den anderen Tagen dann logischweise nicht (10,11,12)
Was ich dann als nächste Berücksichtigen müsste ist, ob das Jahr ein Schlatjahr, dann muss natürlich im Februar ein Tag angehangen werden... die Kalenderwoche des Jahre werde ich wohl hoffentlich wieder allein hinkriegen... kann mir jemand helfen?
Spoiler anzeigen
C
#include <Date.au3>
#include <array.au3>
Dim $tag[20]
$startjahr = "2019"
$startmonat = "01"
$starttag = "01"
For $j = 0 To 11
For $i = 0 to _DateDaysInMonth($startjahr, $startmonat + $j) -1
$tag[0] = $startjahr
$tag[1] = $startmonat + $j
$tag[2] = $starttag + $i
$tag[3] = $starttag + $i & "." & $startmonat +$j & "." & $startjahr
$tag[4] = $starttag + $i & "/" & $startmonat +$j & "/" & $startjahr
$tag[5] = $starttag + $i & "-" & $startmonat +$j & "-" & $startjahr
If $starttag+$i < 10 AND $startmonat+$j < 10 Then
$tag[6] = "0" & $starttag + $i & "0" & $startmonat +$j & $startjahr
;~ Else
;~ $tag[6] = "0" & $starttag + $i & "0" & $startmonat +$j & $startjahr
;~ EndIf
;~ $tag[6] = "0" & $starttag + $i & $startmonat +$j & $startjahr
Else
$tag[6] = $starttag + $i & $startmonat +$j & $startjahr
EndIf
$tag[7] = $startmonat +$j & $startjahr
$tag[8] = $startjahr & "." & $startmonat +$j & "." & $starttag + $i
$tag[9] = $startjahr & "\" & $startmonat +$j & "\" & $starttag + $i
$tag[10] = $startjahr & "-" & $startmonat +$j & "-" & $starttag + $i
$tag[11] = $startjahr & $startmonat +$j
$tag[12] = $startjahr & $startmonat +$j & $starttag + $i
$tag[13] = _DateToDayOfWeek($tag[0], $tag[1], $tag[2])
$tag[14] = $tag[2] & ". " & _DateToMonth($tag[1], $DMW_LOCALE_LONGNAME) & " " & $tag[0]
$tag[15] = $tag[2] & ". " & _DateToMonth($tag[1], $DMW_LOCALE_SHORTNAME) & " " & $tag[0]
Consolewrite($tag[6] & @CRLF)
Next
Next
Alles anzeigen