>De: cristian santana[SMTP:proyecto_1998@hotmail.com]
>Enviado el: 18 December, 1998 7:33 PM
>Para: vb-esp@ccc.uba.ar
>Asunto: (VB-ESP) Pregunta: Mes de Febrero.

>Alguien sabe como detectar si el mes de febrero corresponde
>a un mes de 28 dias o de 29 dias?

Una opción bastante sencilla es utilizar la función Dateserial(Anio,Mes,Dia)

Ej.:
Dim FechaTest As Date
FechaTest = DateSerial(2000,3,1-1)
If Day(FechaTest) = 29 Then
  'Es Bisiesto
Else
  'No es Bisiesto
Endif

Saludos !!!

Julio Collado
Managua, Nicaragua

Para saber si un año es bisiesto.
Bisiesto es un BOOLEAN y Fecha un DATE

Bisiesto = Choose(Day(DateAdd("y", -1, "01/03/" & Year(Fecha))) - 28, True, False)

Saludos

Gustavo del Castillo
Santa Fe - Argentina
E-mail: ghc@santafe.com.ar
ICQ# 9160357

Es muy facil amigo:
 Implementalo del sigueinte seudocodigo:
Si (Ann es divisible entre 4) Y (Ann No es divisible entre 100 o Ann es
divisible entre 400) Entonces

  sentencias

Fin Si

IF (Ann Mod 4 = 0) AND ((Ann Mod 100 <> 0) OR (Ann Mod 400 = 0))

End IF

Public Function EsBisiesto(Anio As Integer) As Boolean
  ' Puede usarse la ventana de la centuria
  If Anio <30 Then
    Anio = Anio + 2000
  Else
    Anio = Anio + 1900
  End If

  ' Ahora hágase la operación
  EsBisiesto = (DateDiff("d",DateSerial(Anio,2,1), DateSerial(Anio,3,1)) = 29)
End Function

+---¡Saludos desde México!--+
| .+'~~'+. |
| * Tron * David.BAS |
| `+,__,+' |
+---------------------------+
 http://www.spin.com.mx/~adgarza
adgarza@spin.com.mx

hola gente !!!!

he aqui una funcioncita que me mandaron que verifica si un anio es bisciesto o no ( verifica la division por 4, 100 y 400 ) la distribuye microsoft asi que debe andar bien ( :-)) !!! )


Public Function IsLeapYear(iYear As Integer)
    '-- Check for leap year
    If (iYear Mod 4 = 0) And _
    ((iYear Mod 100 <> 0) Or (iYear Mod 400 = 0)) Then
        IsLeapYear = True
    Else
        IsLeapYear = False
    End If
End Function

un saludo