Autor Tema: Calcular el año escolar  (Leído 1017 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 194
Calcular el año escolar
« en: Abril 14, 2012, 07:51:29 pm »
Palabras clave: calcular, obtener, averiguar, saber, año, escolar
Autor: Eduardo Olaz
Extraído de: La web del Búho

Pregunta
¿Como calcular el año escolar?


Puedes usar esta función:

Código: [Seleccionar]
Public Function AñoEscolar( _
            Optional ByVal Fecha As Date = -50000) _
            As String
    ' eduardo@olaz.net
    Dim datFrontera As Date

    Dim lngAño As Long
    If Fecha = -50000 Then
        Fecha = Date
    End If
    datFrontera = DateSerial(Year(Fecha), 9, 15)
    If Fecha < datFrontera Then
        lngAño = Year(Fecha) - 1
    Else
        lngAño = Year(Fecha)
    End If
    AñoEscolar = CStr(lngAño) & "-" & CStr(lngAño + 1)
End Function


Nota: se supone que el curso escolar empieza el 15 de setiembre (más o menos)