Funktion KW und Wochentag

[BernhardDEL]

Hi - ich wieder mal mit zwei Fragen :

Kennt jemand eine Funktion, die mir den Wochentag eines Datums zurückliefert ?
Sowas bräuchte ich auch für die Kalenderwoche in der ein bestimmtes Datum liegt.

Schon einmal vielen Dank im Voraus.

Bernhard

[af0815]

Schau mal in die DateUtils rein bzw. suche mit 'Lazarus DateUtils' dannach

Da findest du so Sachen wie DayOfWeek, WeekOfTheYear etc.

[wp_xyz]

DayOfWeek(datetime: TDateTime) --> gibt den Wochentag als Zahl 1..7 codiert zurück: 1 = Sonntag .. 7 = Samstag (http://lazarus-ccr.sourceforge.net/docs ... fweek.html)
Es gibt auch noch DayOfTheWeek, das vom Wochenbeginn (bei uns Montag) aus zählt. (http://www.freepascal.org/docs-html/rtl ... eweek.html)

WeekOfYear(datetime: TDateTime) --> gibt die ISO-Wochennummer zurück (http://www.freepascal.org/docs-html/rtl ... eyear.html)

Das Argument datetime ist die Anzahl der Tage seit dem 30.12.1899. Benutze EncodeDate(jahr, monat, tag), um die üblichen Datumsbestandteile in den TDateTime-Typ zu konvertieren. DecodeDateTime wandelt zurück.

Du brauchst die Units SysUtils und/oder DateUtils;

Beispiel:

Code: Alles auswählen

program DateTest;
uses
  DateUtils;
var
  dt: TDateTime;
begin
  dt := EncodeDate(2017, 2, 1);  // 1.Febr 2017 als DateTime Variable
  WriteLn('Heute ist Tag Nr. ', DayOfWeek(dt));
  Write('Das ist ein ');
  case DayOfWeek(dt) of
    1: WriteLn('Sonntag');
    2: WriteLn('Montag');
    3: WriteLn('Dienstag');
    4: WriteLn('Mittwoch');
    5: WriteLn('Donnerstag');
    6: WriteLn('Freitag');
    7: WriteLn('Samstag');
  end;
  WriteLn('Heute sind wir in Kalenderwoche ', WeekOfTheYear(dt));
  ReadLn;
end.

[BernhardDEL]

Danke an Alle.

Problem wurde gelöst. Jetzt hab ich zwei Funktionen, die im Timer aufgerufen werden (damit sich Tag um 0:00 Uhr umstellt und auch die Kalenderwoche Sonntags um 0:00 Uhr anpasst :

Function FuncWochentag : String;

var
temp : TDateTime;

begin
temp := Now;
case DayOfTheWeek(temp) of
1 : Result := ('Montag,');
2 : Result := ('Dienstag,');
3 : Result := ('Mittwoch,');
4 : Result := ('Donnerstag,');
5 : Result := ('Freitag,');
6 : Result := ('Samstag,');
7 : Result := ('Sonntag,');
end; {case}
end;

Function FuncKalenderwoche : Integer;

var
temp : TDateTime;

begin
temp := Now;
Result := WeekOfTheYear(temp);
end;

procedure TStatusForm.Timer1Timer(Sender: TObject); {Zeit und Datum übertragen}
begin
Uhrzeit.Caption:=TimeToStr(Time);
Datum.Caption:=DateToStr(Date);
Wochentag.Caption:=FuncWochentag;
Kalenderwoche.Caption:=IntToStr(FuncKalenderwoche)+'. KW';
end;

Damit wäre das Thema dann wohl erstmal abgeschlossen.

Ich bin dank Eurer Hilfe schon ein ganzes Stück weiter.

Bernhard

[Timm Thaler]

Function FuncWochentag : String;

Warum?

FormatDateTime('dddd', Now);