Ultimo día "X" de un mes

Función que nos retorna el último día "X" de un mes, como por ejemplo el último día Viernes de Marzo de 2014.
Ejemplo:

*-- Ultimo Viernes de Marzo de 2014
UltimoDia(6,3,2014)

*-- Ultimo Sábado de Diciembre de 2014
? UltimoDia(7,12,2014)

La función y sus parámetros:

FUNCTION UltimoDia(tnDiaSem, tnMes,tnAnio)
*-- tnDiaSem 1=Dom, 2=Lun, 3=Mar, ..., 7=Sab 
  LOCAL ldFecha
  ldFecha = GOMONTH(DATE(tnAnio,tnMes,1),1) - 1
  DO WHILE DOW(ldFecha,1) # tnDiaSem
    ldFecha = ldFecha - 1
  ENDDO
  RETURN ldFecha
ENDFUNC