Ir al contenido


Foto

[TRUCO DELPHI] Ultimo dia del Mes.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 03:55

[TRUCO DELPHI] Ultimo dia del Mes.


delphi
  1. function GetLastDayOfMonth(aYear, aMonth: Integer): Integer;
  2. Const
  3. cDAYSINMONTHS: Array[1..12] Of Integer =
  4. (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  5. begin
  6. Result := cDAYSINMONTHS[aMonth];
  7. If (aMonth = 2) And
  8. IsLeapYear(aYear) Then
  9. Inc(Result);
  10. end;

Saludos!


  • 1