Datumsroutinen

[Torsten Schumann]

Hallo Leute,
kann mir jemand sagen, ob es Routinen im cBuilder gibt, die wie in VB
den Monatsletzten ermitteln. Ich bräuchte diese Funktion für eine Statsitik. Z.B. Februar letzter = 28 (Schaltjahr = 29) usw.

mfg
Torsten

[Ulrich Gerhardt]

Hi Torsten,<br>
in Delphi gibt's in SysUtils.pas IsLeapYear und MonthDays. Damit kannst du dir die Funktion so ähnlich basteln (ungetestet):
<pre class="sourcecode"><code>
<b>function</b> LetzterTag(Year, Month: Word): Word;
<b>var</b>
DayTable: PDayTable;
<b>begin</b>
DayTable := @MonthDays[IsLeapYear(Year)];
Result := DayTable^[Month];
<b>end</b>;
</code></pre>
Vielleicht geht das im BCB ja auch?
<br>Ciao, Uli

[Christian Marquardt]

War das in dem anderen Forum (B&M) nichts?