Entwickler-Ecke
Sonstiges (Delphi) - Datum anhand der Kalenderwoche
Terminator - Mo 17.10.05 09:18
Titel: Datum anhand der Kalenderwoche
Hallo Zusammen,
wie kann ich das Datum anhand der Angabe von der Kalenderwoche und dem entsprechenden Jahr herausfinden (Delphi 6).
Beispiel: KW 10
Jahr 2005
So nun bäuchte ich das dem entsprechende Datum dazu, ist dies möglich?
jasocul - Mo 17.10.05 09:49
In den SysUtils gibt es DayOfWeek.
Terminator - Mo 17.10.05 10:28
Danke schonmal für die Antwort.
Ich möchte jedoch kein Datum in dem Sinn übergeben, sondern eine Wochennummer z.B. 10 im Jahr 2005.
Das wäre in dem Fall der 07.03.2005 (KW 10 Jahr 2005)
DayOfWeek erwartet nämlich einen TDateTime-Wert ?!?
jasocul - Mo 17.10.05 10:37
Sorry, war mein Fehler.
Die Funktion gibt dir nur den Wochentag zurück. Ich meine, dass ich irgendwo eine Routine habe. Muss ich aber erst suchen.
So, die Routine kann ich dir leider nicht geben. Ist nicht von mir. Aber eine Tipp, wie man da ran gehen könnte, kann ich dir schon geben.
Hier [
http://www.delphi-forum.de/viewtopic.php?t=16560] findest du Hinweise, wie man die Kalenderwoche bestimmt (benötigt man für den Ansatz).
Dann prüfst du vom 1.1. bis zum 31.12. des Jahres, ob du in der Kalenderwoche gelandet bist. So bekommst du dann das passende Datum raus.
espen - Mo 17.10.05 12:05
Sollte eigentlich so funktionieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| uses
DateUtils;
var
dtmResult : TDateTime;
begin
TryEncodeDateWeek(2005, 10, dtmResult);
showmessage(DateTimeToStr(dtmResult));
end; |
Gruss,
Espen
jasocul - Mo 17.10.05 12:37
In D5 gabs das noch nicht. Wenn es das schon ab D6 gibt, dann kann er es ja benutzen.
Terminator - Mo 17.10.05 13:42
VIELEN DANK!
Habs jetzt so gelöst
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| var
dtmResult : TDateTime;
begin
dtmResult := EncodeDateWeek(2005, 10);
showmessage(DateTimeToStr(dtmResult));
end; |
....gottesidank bietet D6 diese Funktionen ;)
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!