7 de febrero de 2011

Función GoDay()

Una función definida por el usuario para sumar o restar días a una variable Fecha o Fecha-Hora. Similar a GoMonth(), que sirve para meses.
? GoDay(DATETIME(),365)
? GoDay(DATE(),28)
? GoDay(DATETIME(),-31)

FUNCTION GoDay(tuDate,tnDays)
  LOCAL luRet
  IF VARTYPE(tnDays) # "N"
    tnDays = 0
  ENDIF
  DO CASE
    CASE VARTYPE(tuDate) = "D"
      luRet = tuDate + tnDays
    CASE VARTYPE(tuDate) = "T"
      luRet = tuDate + tnDays * 60 * 60 * 24
    CASE NOT VARTYPE(tuDate) $ "TD"
      *-- Error
      luRet = NULL
  ENDCASE
  RETURN luRet
ENDFUNC
Vea también: GoWeek() para semanas.

Luis María Guayán

No hay comentarios. :

Publicar un comentario