----- Mensaje original -----
De: Antonio Natividad <locosoft@yahoo.com>
Para: Lista Visual Basic <visualbasic-esp@egroups.com>
Enviado: Martes, 30 de Marzo de 1999 02:11 p.m.
Asunto: (VB-ESP) Cantidad del días en el mes


> Hola listeros:
>
> Tengo una duda, en mi programa tengo la necesidad de saber si es que
> un mes trae 29, 30, ó 31 días, si alguien sabe como hacer con Visual
> Basic 5.0 ó 6.0 por favor envienme el codigo Gracias

Podrías hacer lo siguiente:

Public Function CuantosDias(Mes As Byte) As Byte
  CuantosDias = DateDiff("d", _
                DateSerial(Year(Now), Mes, 1), _
                DateSerial(Year(Now), Mes + 1, 1))
End Function

Espero que te sea util...

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