Ich bitte um Hilfe! Wie kann mann mit der Nummer des Tages, also der 12. Januar = 12, der 18. Februar = 49 (31+achtzehn), der 25. März = 85 (31+29+25, also im Schaltjahr) usw. und das Jahr der Datum errechnen? Ich programmiere einen Funktion wobei ich Tagnummer und Jahreszahl angebe und das Datum als xx.xx.xxxx zurück erhalte aber es gelingt bis jetzt nicht obwohl ich viel herumprobiere...
Datum errechnen anhand Tagnummer und Jahr
-
- [ offen ]
-
Katrijn -
3. April 2010 um 20:21 -
Geschlossen -
Erledigt
-
-
beschreibt dein problem doch noch etwas genauer was willst du machen ich hab es nicht ganz verstanden?
das akuelle datum erhältst du mit makros die autoit schon bereitstellt
Edit: achso du willst einfach eine zahl eingeben z.b 110 und wissen was das für ein datum des jeweiligen jahres war bzw. ist ??
-
probier mal so:
[autoit]#include <Date.au3>
[/autoit][autoit][/autoit][autoit]Dim $Y, $M, $D, $Date, $dateadd = 4
[/autoit][autoit][/autoit][autoit]$Date = _DayValueToDate(_DateToDayValue(@YEAR, 1, 1) -1 + $dateadd, $Y, $M, $D)
[/autoit][autoit][/autoit][autoit]MsgBox(4096, "", "Datum: " & $D & "." & $M & "." & $Y)
[/autoit] -
Edit: achso du willst einfach eine zahl eingeben z.b 110 und wissen was das für ein datum des jeweiligen jahres war bzw. ist ??
Genau! Die angegebene Zahl sind die Anzahl der Tage die von dem Jahr schon vorbei sind (entschuldige mein Deutsch...). Also diese Zahl muss zwischen 1 und 366 liegen.
-
noch etwas erweitert...
[autoit]#include <Date.au3>
[/autoit][autoit][/autoit][autoit]
Dim $Y, $M, $D, $DateDim $dateadd = 4; Tag des Jahres
[/autoit][autoit][/autoit][autoit]
Dim $dateyear = 2010; Jahr_DayValueToDate(_DateToDayValue($dateyear, 1, 1) -1 + $dateadd, $Y, $M, $D)
[/autoit]
MsgBox(4096, "", "Datum: " & $D & "." & $M & "." & $Y) -
noch etwas erweitert...
[autoit]#include <Date.au3>
[/autoit] [autoit][/autoit] [autoit]
Dim $Y, $M, $D, $DateDim $dateadd = 4; Tag des Jahres
[/autoit] [autoit][/autoit] [autoit]
Dim $dateyear = 2010; Jahr_DayValueToDate(_DateToDayValue($dateyear, 1, 1) -1 + $dateadd, $Y, $M, $D)
[/autoit]
MsgBox(4096, "", "Datum: " & $D & "." & $M & "." & $Y)man da war ich wieder zu langsam aber ich hatte fast das gleiche
-
oder als Funktion:
[autoit]#include <Date.au3>
[/autoit][autoit][/autoit][autoit]
MsgBox(4096, "", _DatefromDayofYear(47,2009))Func _DatefromDayofYear($dayadd,$Year) ; benötigt Date.au3 !!!
[/autoit]
Local $Y, $M, $D
_DayValueToDate(_DateToDayValue($Year, 1, 1) -1 + $dayadd, $Y, $M, $D)
Return($D & "." & $M & "." & $Y)
EndFunc -
Vielen Dank !! Ihr habt mir sehr geholfen. Es gilt wie immer: "hätte selbst drauf kommen können..."