Código Delphi [-] // si la fecha de aviso era un martes, // averiguamos el primer martes del parametro Fecha DecodeDayOfWeekInMonth(FechaAviso, y, m, an, d); NotaActualizada := EncodeDayOfWeekInMonth(YearOf(Fecha), MonthOf(Fecha), 1, d);
// si la fecha de aviso era un martes, // averiguamos el primer martes del parametro Fecha DecodeDayOfWeekInMonth(FechaAviso, y, m, an, d); NotaActualizada := EncodeDayOfWeekInMonth(YearOf(Fecha), MonthOf(Fecha), 1, d);