************************************ *Recopilado por el Buho de la Web: *http://www.terra.es/personal2/sfortiz/ ************************************ Es Año Bisiesto =============== Public Function Es_Bisiesto(Año As Integer) As Boolean On Error GoTo ErrorEs_Bisiesto if datediff("d","01/02/"& Año,"01/03/" & Año )=29 then Es_Bisiesto = True else Es_Bisiesto = False end if Exit Function ErrorEs_Bisiesto: MuestraError "PonImpresoraDefecto", Err, Error End Function Dame Día Semana ================ Function DameDiaSemana(Fecha As String) As String On Error GoTo ErrorDameDiaSemana DameDiaSemana = WeekdayName(Weekday(Fecha, vbMonday), False, vbMonday) Exit Function ErrorDameDiaSemana: MuestraError "DameDiaSemana", Err, Error End Function