Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Monatsberechnung: 30 oder 31 Tage herrausfinden (https://www.delphipraxis.net/135159-monatsberechnung-30-oder-31-tage-herrausfinden.html)

Larsi 5. Jun 2009 18:15

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Zitat:

Zitat von omata
denn die Anzahl an Tagen in einem Monat ist immer gleich (Ausnahme: Februar).

:?: :stupid: :mrgreen:

omata 5. Jun 2009 18:18

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Na gut, für die Klugscheißer...

Zitat:

Zitat von omata
...denn die Anzahl an Tagen, in den einzelnen Monaten eines Jahres, ist immer gleich (Ausnahme: Februar)...


omata 5. Jun 2009 18:28

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Zitat:

Zitat von omata
Na gut, für die Klugscheißer...

Zitat:

Zitat von omata
...denn die Anzahl an Tagen, in den einzelnen Monaten eines Jahres, ist immer gleich (Ausnahme: Februar)...


@Larsi: ist nicht böse gemeint :hi:

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;

Fussel9 5. Jun 2009 18:37

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Ok, danke für die weiteren Tips, habe in der Delphi Hilfe folgendes gefunden:

Delphi-Quellcode:
DaysInMonth(date)
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:
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???

mkinzler 5. Jun 2009 18:39

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Zitat:

ABER WIE KANN ICH EINEN WORD WERT IN EINEN STRING UMWANDELN???
WORD ist ein Integertyp deshalb

IntToStr() oder Format()

BTW: Bitte nicht schreien!!!

Fussel9 5. Jun 2009 18:40

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Sorry :oops:
Aber Trotzdem Danke an alle :)

Jürgen Thomas 5. Jun 2009 18:48

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
Zitat:

Zitat von Fussel9
ABER WIE KANN ICH EINEN WORD WERT IN EINEN STRING UMWANDELN???

Wozu denn das überhaupt? Du willst doch mit dieser Angabe irgendetwas berechnen. Dann solltest du es bei einer Zahl belassen. (Erst am Schluss, wenn das Ergebnis angezeigt werden soll, ist die Umwandlung relevant.) Jürgen

Fussel9 5. Jun 2009 19:27

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...

mkinzler 5. Jun 2009 19:29

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
In eine Ini kannst du aber auch andere Typen als String Speichern

Fussel9 5. Jun 2009 19:46

Re: Monatsberechnung: 30 oder 31 Tage herrausfinden
 
ok, das stimmt...


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:44 Uhr.
Seite 2 von 2     12   

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