Semanas del mes

Un compañero de trabajo hoy me estaba solicitando una rutina que le mostrara las semanas del mes así que basado en un ejemplo que existe en fox.wikis.com del ultimo día del mes lo adapte e hice la siguiente función a la cual podría ayudar a alguien como este compañero si existe una mejor forma agradecería sus comentarios.

? SEMANASMES(DATE())

FUNCTION SEMANASMES(ldFecha)
  IF TYPE("ldFecha") # "D"
    MESSAGEBOX('Parametro invalido',16,"Alto")
    RETURN 0
  ENDIF
  RETURN CEILING(DAY(GOMONTH(ldFecha, 1) - DAY(ldFecha)) / 7)
ENDFUNC

Emanuel Omar Villicaña Villegas