16 de abril de 2015

Función GoWeek()

Una función definida por el usuario para sumar o restar semanas a una variable Fecha o Fecha-Hora. Similar a GoMonth(), que sirve para meses.
? GoWeek(DATETIME(), 2)
? GoWeek(DATE(), 3)
? GoWeek(DATETIME(), -3)

FUNCTION GoWeek(tuDate,tnWeeks)
  LOCAL luRet
  IF VARTYPE(tnWeeks) # "N"
    tnWeeks = 0
  ENDIF
  DO CASE
    CASE VARTYPE(tuDate) = "D"
      luRet = tuDate + tnWeeks * 7
    CASE VARTYPE(tuDate) = "T"
      luRet = tuDate + tnWeeks * 7 * 60 * 60 * 24
    CASE NOT VARTYPE(tuDate) $ "TD"
      *-- Error
      luRet = NULL
  ENDCASE
  RETURN luRet
ENDFUNC
Tomado de la función GoDay() publicada aquí.

Luis María Guayán

No hay comentarios. :

Publicar un comentario