¿Porqué a tu correo? EGOISTA!!! Publiquemoslo para el mundo entero. A ver si los de MS lo ven y deciden usarla. Aunque está muy dependiente del lengiaje PASCAL... no sé si funcione en VB.
Código Delphi
[-]
Function EsBisiesto (var Anno: Tdate): Boolean
Begin
Result := False;
If Anno = Bisiesto Then Result := true;
End;
Mas claro ni el agua del río que pasa por mi casa.
Saludos,