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

1 comentario :

  1. Ola dentro de uma faixa de dados por exemplo 01/04/2017 a 30/04/2017 quero gerar somente as datas que forem marcadas as aulas da turma, que no caso as segundas e quartas feiras, como fazer isso ?

    ResponderEliminar