¿Como calcular el año escolar?


EDUARADO OLAZ

Puedes usar la función
    AñoEscolar([Fecha])
    Por ejemplo AñoEscolar devuelve 2002-2003, al tomar por defecto la fecha actual.
    AñoEscolar(#12/24/3#) devuelve 2003-2004
    AñoEscolar(#9/12/3#) devuelve 2002-2003
Aquí va el código:
________________________________________

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
________________________________________

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)