Datum zu KW Normierung

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von ibp · begonnen am 19. Feb 2013 · letzter Beitrag vom 13. Jan 2014

Vorheriger Beitrag

Nächster Beitrag

Photoner

Registriert seit: 6. Dez 2012
Ort: Nürnberg
103 Beiträge

Delphi 10.1 Berlin Starter

#13

AW: Datum zu KW Normierung

13. Jan 2014, 13:01

Ich bin zwar etwas spät dran mit meiner Antwort, aber vielleicht hilft es ja jemandem der zufällig hierüber stolpert:

uses DateUtils;

markieren

Delphi-Quellcode:

			function WeekOfTheYear(const AValue: TDateTime; var AYear: Word): Word;

var

  LDOW: Word;

begin

  DecodeDateWeek(AValue, AYear, Result, LDOW);

end;

Liefert die KW nach ISO 8601 und das zugehörige Jahr. D.h. für den 30.12.2013 gibt die Funktion als Ergebnis die "1" zurück und der Variablen AYear wird die "2014" zugewiesen.

Chris