Calcular el año escolar

[xavi]

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)