AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Kalenderwoche ???

Ein Thema von Gigant02 · begonnen am 10. Jan 2005 · letzter Beitrag vom 4. Sep 2012
Antwort Antwort
Gigant02

Registriert seit: 3. Nov 2004
Ort: Helgoland
341 Beiträge
 
Delphi 7 Professional
 
#1

Re: Kalenderwoche ???

  Alt 10. Jan 2005, 14:24
super danke dalso der code Schnipsel geht super

danke

lg, Gigant02
  Mit Zitat antworten Zitat
machstuhl

Registriert seit: 17. Jul 2012
40 Beiträge
 
#2

AW: Kalenderwoche ???

  Alt 4. Sep 2012, 07:58
sry fürs totengräbern, aber kann mir einer erklären warum +4 bzw +8 aufs datum gerechnet wird?
Delphi-Quellcode:
  DecodeDate(Datum + 4 - day,y,m,d);
  result := round(((Datum + 8 - day) - EncodeDate(y,1,1)) / 7);
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.740 Beiträge
 
Delphi 6 Enterprise
 
#3

AW: Kalenderwoche ???

  Alt 4. Sep 2012, 09:36
Also die +4 Zeile dient ja nur zur Bestimmung des Jahres (y) ist also nur an den Rändern des Jahres interessant und da ist es glaub ich so, das eine Woche zum aktuellen Jahr gehört, wenn die darin vier Tage hat, sonst zum Vorjahr.

Die +8 kann ich auch nicht genau erklären schlägt aber in eine ähnliche Kerbe denk ich. Dienst wohl dazu, dass das Datum von dem der 1.1. des Jahres abgezogen wird auf jeden Fall um eine Woche verschoben wird, wahrsch. auch um die ersten Tage des Jahres, die ggf. noch zu einer KW des Vorjahres gehören, auszugleichen.
Ralph
  Mit Zitat antworten Zitat
Antwort Antwort


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 22:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz