Re: GetStartOfFirstWeekInYearISO8601
Wie hier http://www.delphipraxis.net/internal...117206#1117206 heraus gearbeitet sollte obige Funktion wie nachfolgend geändert werden.
Delphi-Quellcode:
Man muß also aus dem TDateTime A den Nachkommateil, eg. Zeitangaben, löschen. Das erledigen wir mit dem A := Int(A);
function WeekOfDate(A: TDateTime): Integer;
var Day: Integer; Y,M,D: Word; begin A := Int(A); Day := DayOfWeekGerman(A); DecodeDate(A +4 -Day, Y, M, D); Result := Round(((A +8 -Day) - EncodeDate(Y, 1, 1)) / 7); end; Gruß Hagen |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz