![]() |
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Zitat:
|
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Na gut, für die Klugscheißer...
Zitat:
|
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Zitat:
Fingerknöchel-Regel...
Delphi-Quellcode:
function TageImMonat(Monat, Jahr:integer):byte;
begin case Monat of 1: Result:=31; 2: if Schaltjahr(Jahr) then Result:=29 else Result:=28; 3: Result:=31; 4: Result:=30; 5: Result:=31; 6: Result:=30; 7: Result:=31; 8: Result:=31; 9: Result:=30; 10: Result:=31; 11: Result:=30; 12: Result:=31; else Result:=0; end; end; |
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Ok, danke für die weiteren Tips, habe in der Delphi Hilfe folgendes gefunden:
Delphi-Quellcode:
Das gibt allerdings einen Word wert heraus der die anzahl der Tage enthält für den Monat des in den Klammern angegebenen Datumswertes, also z.B. date oder Now für das aktuelle Datum:
DaysInMonth(date)
Beschreibung Mit DaysInMonth können Sie die Anzahl der Tage in dem Monat abrufen, der durch den mit AValue angegebenen TDateTime-Wert repräsentiert wird. ABER WIE KANN ICH EINEN WORD WERT IN EINEN STRING UMWANDELN??? |
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Zitat:
IntToStr() oder Format() BTW: Bitte nicht schreien!!! |
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Sorry :oops:
Aber Trotzdem Danke an alle :) |
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Zitat:
|
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
Weil ich eingabefelder für das datum habe und diese speichern alle eingegebenen werte wie gefahrene kilometer und co. unter dem datum als section, nun will ich alle werte des monats auslesen, dafür brauche ich das datum natürlich als String...
|
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
In eine Ini kannst du aber auch andere Typen als String Speichern
|
Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
ok, das stimmt...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz