Algún algoritmo para calcular el último día de un mes

[[David]]

Hola

Teniendo el año y el día del mes, quiero que me devuelva el último día de ese mes, realmente el último día de cada més es fijo, podía hacerlo con if mes = 1 then ultimodia = 31, etc...

Pero no sé si hay alguna manera de hacerlo más rápido, y también hay otra cuestión que son los años bisiestos, teniéndo el año, habría que calcularlo de alguna forma.

Un saludo

[[kuan-yiu]]

Esta función te dice el nº de días del mes de un año determinado, así que te valdría para lo que quieres. Búscala en la ayuda de Delphi
DaysInAMonth

[luisgutierrezb]

lo mas facil:

Código Delphi [-]
// le restamos un dia al primer mes siguiente para que nos devuelva el ultima dia
//no importa si el año es biciesto
UltimoDia := EncodeDate(anio, mes+1,1) - 1;

[keyboy]

Al contrario. Es mucho más difícil. Tanto DaysInAMonth como EncodeDate hacen uso del arreglo

Código Delphi [-]
MonthDays: array [Boolean] of TDayTable =
  ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
  (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));

y la función IsLeapYear. Pero, mientras que DaysInAMonth simplemente "toma" el valor del arreglo:

Código Delphi [-]
Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];

EncodeDate hace esto junto con varios condicionales y un ciclo for.

Bye