| Autor |
Beitrag |
delphi_noop
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 18:57
Hallo zusammen!
Hätte eine ganz blöde Frage...
Würde gerne das Anfangs- und Enddatum einer Woche auf einem Panel ausgegeben haben...
z.B. diese Woche: Beginndatum 25.05.2009; Enddatum 31.05.2009;
Wie bekomm ich das hin?
Wär nett, wenn mir jemand helfen könnte!!! 
Danke!!!
|
|
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 26.05.09 18:59
Schau mal nach StartOfTheWeek bzw. EndOfTheWeek aus der Unit DateUtils.
|
|
Narses
 
Beiträge: 10184
Erhaltene Danke: 1259
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: Di 26.05.09 19:00
Moin und  im Forum!
Probier mal das hier aus:
  Delphi-Quelltext
1:
| ShowMessage(IntToStr(DayOfWeek(Now))); | Das liefert eine Tagesnummer (Sonntag=1). 
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
delphi_noop 
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 19:03
Danke für deinen Tipp, aber in der Delphi-Hilfe find ich nix passendes!
Hättest du vielleicht ein Beispiel dafür fürs bessere Verständnis?
--- Moderiert von  Narses: Beiträge zusammengefasst---
Danke "Narses"! Aber das ist leider nicht das, was ich wollte...
Also ich möchte von einer Woche das Anfangsdatum und das Enddatum wissen!!!
|
|
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 26.05.09 19:06
Delphi-Quelltext
1:
| ShowMessage(DateToStr(DateUtils.EndOfTheWeek(now))); |
Das gibt Dir das Datum des kommenden Sonntags aus.
|
|
delphi_noop
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 19:11
Danke "DeddyH"!
Aber welche Delphi-Version verwendest du? Ich verwende Delphi7 und da klappt das ned so richtig! 
|
|
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 26.05.09 19:13
Ich habe Delphi 2007. Ob es diese Funktion bereits in Delphi 7 gab, weiß ich jetzt auch nicht aus dem Kopf.
|
|
delphi_noop
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 19:13
Muss ich das DateUtils auch in den uses angeben?
|
|
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 26.05.09 19:14
|
|
delphi_noop
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 19:16
So, das hätte ich gemacht... Aber dann schreibt er wieder: "Datei nicht gefunden: "Dateutils.dcu""!!!
Wie kann ich das lösen?
Sorry, bin anstrengend, aber ich brauch das für die Schule...
|
|
Robert.Wachtel
Beiträge: 895
Erhaltene Danke: 7
Windows 7 Ultimate x64
D5 Ent, D7 Arch, RAD Studio 2010 Pro, VS 2008
|
Verfasst: Di 26.05.09 19:17
delphi_noop hat folgendes geschrieben  : | | [...] Ich verwende Delphi7 [...] |
Ist doch immer nett, dass solche Details auch mal erwähnt werden...
Die Unit DateUtils gibt es afair erst seit Delphi 2005.
Schau mal in der JCL nach entsprechenden Funktionen.
|
|
DeddyH
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Di 26.05.09 19:18
Im Lib-Verzeichnis meines Delphi 7 (anderes OS) gibt es die Unit sehr wohl.
|
|
Robert.Wachtel
Beiträge: 895
Erhaltene Danke: 7
Windows 7 Ultimate x64
D5 Ent, D7 Arch, RAD Studio 2010 Pro, VS 2008
|
Verfasst: Di 26.05.09 19:20
|
|
delphi_noop
Hält's aus hier
Beiträge: 15
Win XP
Delphi 7
|
Verfasst: Di 26.05.09 19:25
Danke sehr!!! Hab das Problem soeben gelöst...
Hätte noch eine schwierigere Aufgabe:
Möchte dasselbe von der Vorwoche und von der nächsten Woche auch haben...
Danke!!!
|
|
Narses
Beiträge: 10184
Erhaltene Danke: 1259
W11x64
TP3 .. D7pro .. D10.2CE
|
Verfasst: Di 26.05.09 19:25
Moin!
| delphi_noop hat folgendes geschrieben : | Aber das ist leider nicht das, was ich wollte...
Also ich möchte von einer Woche das Anfangsdatum und das Enddatum wissen!!! |
Wenn du das mit den Dateutils nicht auf die Kette kriegst ist das genau das, was du wissen willst: 
Zieh das Ergebnis der Funktion von Now ab, dann hast du den Wochenstart, Ende ist +7.
| delphi_noop hat folgendes geschrieben : | Hätte noch eine schwierigere Aufgabe:
Möchte dasselbe von der Vorwoche und von der nächsten Woche auch haben... |
Das Wochen aus 7 Tagen bestehen weißt du aber, ja? 
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
