AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Array of Weeks anhand Datum von - Datum bis

Array of Weeks anhand Datum von - Datum bis

Ein Thema von erich.wanker · begonnen am 23. Nov 2022 · letzter Beitrag vom 24. Nov 2022
Antwort Antwort
Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
441 Beiträge
 
Delphi XE4 Professional
 
#1

Array of Weeks anhand Datum von - Datum bis

  Alt 23. Nov 2022, 12:17
Hallo,

Gegeben: Ich habe 2 Datumsfelder (von / bis)
Ergebnis: ich bräuchte ein Array mit: Woche / datum_von / datum_bis

Ergebnis sollte bei der Eingabe von 11.11.2022 bis 30.11.2022 sein

"Woche 1" "2022-11-11" "2022-11-13"
"Woche 2" "2022-11-14" "2022-11-20"
"Woche 3" "2022-11-21" "2022-11-27"
"Woche 4" "2022-11-28" "2022-11-30"


Ich steh momentan komplett auf der Leitung - wie ich sowas lösen kann

Irgendwelche Vorschläge?

Vielen Dank und schöne Grüße
Erich
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \
  Mit Zitat antworten Zitat
itblumi

Registriert seit: 28. Mär 2009
68 Beiträge
 
Delphi XE6 Professional
 
#2

AW: Array of Weeks anhand Datum von - Datum bis

  Alt 23. Nov 2022, 13:25
Hallo Erich,

schau dir mal die Funktion WeekOf aus der Unit DateUtils an. Damit kannst du die start Woche ermitteln und sobald die Woche um 1 erhöht wird zum nächsten
Array wechseln.
Jan
Ein neuer Tag bringt so einiges mit sich. Was auch immer es ist, es bleibt ein kleines Abenteuer.
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.145 Beiträge
 
Delphi 2007 Professional
 
#3

AW: Array of Weeks anhand Datum von - Datum bis

  Alt 23. Nov 2022, 13:39
Zuerst sicherstellen, dass das Anfangsdatum tatsächlich ein Montag ist. Wenn nicht evtl. korrigieren oder Fehler. Danach kann man das Anfangsdatum einfach immer um 7 erhöhen, das ist dann der nächste Montag (TDateTime speichert die Tage im ganzzahligen Anteil). Am Ende muss man auch noch entscheiden, ob man eine evtl. Teilwoche noch in der Liste haben will oder nicht.
Thomas Mueller
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
40.477 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Array of Weeks anhand Datum von - Datum bis

  Alt 23. Nov 2022, 16:38
Nja, die DateUtils bietet auch so Einiges, um nicht selber rechnen und mit unverständlichen Zahlen (7) umgehen zu müssen....

Delphi-Referenz durchsuchenDayOfTheWeek
Delphi-Referenz durchsuchenStartOfTheWeek
Delphi-Referenz durchsuchenEndOfTheWeek
IncDay( , 7)
Delphi-Referenz durchsuchenIncWeek


Das Erste ist datum_von bis EndOfTheWeek(datum_von) ... bzw. Min(EndOfTheWeek(datum_von), datum_bis).
die nächsten sind dann "current" bis EndOfTheWeek(current)
und dann ab dem ersten EndOfTheWeek mit IncWeek weiter, bis datum_bis
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.300 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Array of Weeks anhand Datum von - Datum bis

  Alt 24. Nov 2022, 11:58
Wenn es dein Projekt mit der Firebird Datenbank betrifft, dann würde ich das die Datenbank machen lassen:

Stored Proc:
SQL-Code:
create or alter procedure sp_weeks (
    von date,
    bis date)
returns (
    woche smallint,
    datum date)
as
begin
  woche = 1;
  while (:von <= :bis) do
  begin
    datum = :von;
    von = :von + 1;
    suspend;
    if (extract(weekday from :datum) = 0) then
      woche = :woche + 1;
  end
end
Abfrage:
SQL-Code:
select
  'Woche '||t.woche
, min(t.datum)
, max(t.datum)
  from sp_weeks(current_date, current_date + 50) t
  group by t.woche
Frank
Frank Reim

Geändert von dataspider (24. Nov 2022 um 12:00 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf