Ultimo dia Viernes de cada mes

[Ricsato]

Gracias por compartir el codigo y aprovechando tu buena disposicion, compile el codigo que me enviaste, pero el compilador de delphi 5 me indica error de declaracion en las siguientes funciones:

YearOf(Fecha)
MonthOf(Fecha)
SInvalidDayOfWeekInMonth, [AYear, AMonth, ANthDayOfWeek, DayOfWeek]);
StartOfAMonth(AYear, AMonth)
TryEncodeDate(AYear, AMonth, LDay, AValue)

me imagino que estas funciones ya estan declaradas en delphi 6, te agradecere si me envias su codigo.

Saludos.