Wie bekomme ich einen 'Monat' ?

[René]

Hallo, ich benötige in meiner Anwendung die Monate Oktober bis Märt zur Auswertung. ( If Monat := ... to .. ) then wer kann helfen ? Vielen Dank.

[Jens Schumann]

Hallo Rene,<br> ich weiß zwar nicht genau was Du benötigst, aber wenn ich mit Monaten arbeite gehe meistens wie folgt vor:<br>
<p>
<pre>
Type
TMonth = (Jan,Feb,Mar,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez);

var
Month : TMonth;

...
If Month=Dez then
ShowMessage('Diesen Monat ist Weihnachten);

</pre>
<br>
:-) Jens Schuman

[Karsten Gehm]

Wenn nach mehreren verschiedenen Bereichen unterschieden werden soll kann man es auch mit Case machen:
<p>
<pre>
<font size = 2>
Case Monat of
Jan : Procedure1;
Feb : Procedure2;
Mar..Okt : Procedure3 ;
else Procedure4;
END
</font size>
</pre>
<p>
Wobei ich vorausgesezt habe, daß die Monate wie oben dekalriert sind

[Alois Fuchs]

Hallo René!

Ich glaube, Du suchst eine Prozedur in der Art :

var vonMonat, bisMonat, Monat, n : word;

begin
vonMonat := 1;
bisMonat := 12;
if bisMonat < vonMonat then bisMonat := bisMonat + 12;
for n := vonMonat to bisMonat do
begin
if n > 12 then Monat := n - 12 else Monat := n;
ShowMessageFmt('Das ist Monat %d', [Monat]); // Für Testzwecke
end;
end;

Viele Grüße

Aloi