AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

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

Kalenderwoche ???

  Alt 10. Jan 2005, 11:41
wie bekomme ich die Kalenderwoche raus ???

kann mir da einer weiterhelfen ???
  Mit Zitat antworten Zitat
Alex_ITA01

Registriert seit: 22. Sep 2003
1.041 Beiträge
 
Delphi XE4 Professional
 
#2

Re: Kalenderwoche ???

  Alt 10. Jan 2005, 11:45
Folgender Code hilft dir:

Delphi-Quellcode:
function GetKW(Datum : TDatetime) : Integer;
var
   Day : Integer;
   Y,M,D : word;
begin
  Day := DayOfWeek(Datum) - 1;
  if (day <= 0) then
    day := 7;
  DecodeDate(Datum + 4 - day,y,m,d);
  result := round(((Datum + 8 - day) - EncodeDate(y,1,1)) / 7);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := 'aktuelle Kalenderwoche: ' + IntToStr(GetKW(Now));
end;
MFG Alex
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat
Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#3

Re: Kalenderwoche ???

  Alt 10. Jan 2005, 11:45
Hi,

Delphi-Referenz durchsuchenWeekOfTheYear


Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#4

Re: Kalenderwoche ???

  Alt 10. Jan 2005, 12:46
Moin!

Gibs nur leider u.a. bei Delphi 5 nicht...

MfG
Muetze1
  Mit Zitat antworten Zitat
Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#5

Re: Kalenderwoche ???

  Alt 10. Jan 2005, 13:59
Hm.. jo, richtig.. Blöde Sache!
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat
Gigant02

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

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
 
#7

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.561 Beiträge
 
Delphi 6 Enterprise
 
#8

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