23 de marzo de 2004

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

No hay comentarios. :

Publicar un comentario