Re: Anzahl Tage im Monat
Dafür gibt es IsLeapYear, da wird das berücksichtigt.
|
Re: Anzahl Tage im Monat
was macht denn dieses isleapptyear?
|
Re: Anzahl Tage im Monat
Zitat:
|
Re: Anzahl Tage im Monat
Aus der SysUtils.pas vom BSD2006:
Delphi-Quellcode:
function IsLeapYear(Year: Word): Boolean;
begin Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end; |
Re: Anzahl Tage im Monat
Das sagt Dir, ob es sich um ein Schaltjahr handelt. F1 ist übrigens eine sehr nützliche Taste, die darf man gerne mal benutzen.
|
Re: Anzahl Tage im Monat
Zitat:
Sicherlich ist das Thema "Tage im aktuellen Monat" nur eine Kleinigkeit. Ich empfehle Dir trotzdem mal, über folgende Punkte nachzudenken: - Warum das Rad neu erfinden? - Warum selber Code schreiben (Zeitaufwand) für ein Problem das längst gelöst ist? - Warum selber Code schreiben wenn gut getesteter Code bereits mitgeliefert wird? Wenn Du Englisch kannst oder zumindest ein englisch-deutsches Wörterbuch bedienen kannst, dann schau Dir mal eine meiner Lieblingswebsites an :) |
Re: Anzahl Tage im Monat
Nur wenn man diese Funktion verwendet, bindet man ja DateUtils ein, dann kann man gleich DayInMonth() verwenden :zwinker:
|
Re: Anzahl Tage im Monat
Zitat:
|
Re: Anzahl Tage im Monat
dann geht es ja noch leichter
Delphi-Quellcode:
function TForm1.getdaysinmonth(date: TDATETIME): integer;
const monthday: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin if strtoint(formatdatetime('m', date)) <> 2 then begin result := monthday[strtoint(formatdatetime('m', date))]; end else begin if isleapjear(date) then result := 29 else result := 28; end; end; |
Re: Anzahl Tage im Monat
@IIIMADDINIII: Du solltest dir die Antworten hier mal durchlesen!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:53 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