¿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 ________________________________________