| Autor |
Beitrag |
seven-ex
Beiträge: 39
|
Verfasst: Mi 10.01.07 13:46
Hallo,
wie kann ich von einem Datum herausfinden was das Quartals Anfang Datum ist und das Ende?
Gruß
|
|
freedy
Beiträge: 403
Erhaltene Danke: 1
Winows 7
Delphi XE
|
Verfasst: Mi 10.01.07 14:55
Hi!
Berechnen! Du musst doch nur gucken, in welchem Monat du dich mit deinem Datum befindest. Jeweils jeder dritte Monat ist dann ein neuer Quartalsbeginn. Einfach mit  DIV arbeiten. Ist, glaube ich, nichts schweres. 
Quartal := (DeinMonat div 3) + 1;
Gruß
|
|
jaenicke
Beiträge: 19312
Erhaltene Danke: 1747
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 10.01.07 14:56
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| var
YourDate: TDateTime;
Month, Dummy: Word;
begin
YourDate := StrToDate(Edit1.Text);
DecodeDate(YourDate, Dummy, Month, Dummy);
ShowMessage('Quartal: ' + IntToStr((Month + 2) div 3)); |
|
|
jaenicke
Beiträge: 19312
Erhaltene Danke: 1747
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 10.01.07 15:00
 freedy hat folgendes geschrieben: | | Einfach mit DIV arbeiten. Ist, glaube ich, nichts schweres. |
Anscheinend doch 
| freedy hat folgendes geschrieben: | | Quartal := (DeinMonat div 3) + 1; |
Das ist nämlich falsch...
01.01.2006: Ergebnis 1
01.02.2006: Ergebnis 1
01.03.2006: Ergebnis 2
Du musst den Monat Januar als 0 nehmen, wenn du div 3 benutzt. Oder wie ich als 3, damit direkt das Quartal rauskommt...
|
|
freedy
Beiträge: 403
Erhaltene Danke: 1
Winows 7
Delphi XE
|
Verfasst: Mi 10.01.07 15:13
Japp, stimmt... war so ins Blaue geschrieben. Wie eigentlich immer. Oder probierst du alles, was du postest nochmal durch?
|
|
jaenicke
Beiträge: 19312
Erhaltene Danke: 1747
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 10.01.07 15:15
Nö, tue ich auch nicht... Was ich eben geschrieben habe, hab ich ja auch nicht getestet. Aber ich bin mir sicher dass es geht .
Da div ja sehr einfach ist, sehe ich auch sofort was rauskommt. Oder eben was nicht rauskommt. 
|
|
freedy
Beiträge: 403
Erhaltene Danke: 1
Winows 7
Delphi XE
|
Verfasst: Mi 10.01.07 15:19
Aber wenigstens stehe ich dazu, auch mal Fehler zu machen.
|
|
seven-ex 
Beiträge: 39
|
Verfasst: Do 11.01.07 15:16
Joooo,
das ist das was ich wollte
aber wie bestimme ich das ende Datum?
Wie weiß ich ob es der 31te ist und wann der 30te? (Ende Q.)
|
|
Miri
Beiträge: 657
Delphi 3 Prof., Delphi 2005 PE
|
Verfasst: Do 11.01.07 15:24
Wie wärs mit AnfangDesNaechstenQuartals - 1?
_________________ Anonymes Eckenkind
|
|
OldGrumpy
Beiträge: 82
|
Verfasst: Do 11.01.07 15:39
|
|
seven-ex
Beiträge: 39
|
Verfasst: Do 11.01.07 16:20
ich habe es gerade bemerkt 
|
|
