************************************
*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
 
  

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

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