Autor Tema: Calcular El Numero De Dias De Un Mes (Leído 1156 veces)

vradok · « **en:** Miércoles 26 de Mayo de 2004, 11:42 »

Hola!
Mi problema es que estuve haciendo un codigo que calculase el numero de dias de cada mes para poder realizar un calendario .No encontre ninguna funcion que me valiese y hice este codigo que me da error .
A ver si alguien me corrige el codigo o bien me da otra solucion:

Código: Text

 
 
Public Function DiasMes(Mes As Variant, Año As Variant)
Dim comprobar As String
 comprobar = (&#34;29/&#34; & Mes & &#34;/&#34; & Año)
 If Not IsDate(CDate(comprobar)) Then
    DiasMes = 28
    Exit Function
 End If
 comprobar = (&#34;30/&#34; & Mes & &#34;/&#34; & Año)
 If Not IsDate(CDate(comprobar)) Then
    DiasMes = 29
    Exit Function
 End If
 comprobar = (&#34;31/&#34; & Mes & &#34;/&#34; & Año)
 If Not IsDate(CDate(comprobar)) Then
    DiasMes = 30
 Else
    DiasMes = 31
 End If
End Function
 
 

Se agradece cualquier ayuda

Brroz

Hola vradok.

Lo que pretendes se puede conseguir de muchas formas... aquí te muestro una que se ocurre:

Código: Text

 
Public Function DiasDelMes (Byval Mes as Integer) As Integer
 
   If Mes &#60; 1 or mes &#62; 12 Then
       MsgBox &#34;El mes no es válido.&#34; _
       , vbExclamation, &#34;Dias del mes&#34;
       Exit Function
   End If
   
   If Mes &#60; 12 Then
       DiasDelMes = DateDiff(&#34;d&#34;,&#34;1/&#34; & Mes & &#34;/&#34; & Year(Now), &#34;1/&#34; & Mes + 1 &  &#34;/&#34; & Year(Now))
   Else
       DiasDelMes = DateDiff(&#34;d&#34;,&#34;1/12/&#34; & Year(Now), &#34;1/1/&#34; & Year(Now) + 1)
   End If
 
End Function
 
 

Por supuesto que también podrías pasar como parámetro el año y sustituir 'Year(Now)' por la variable correspondiente.

Suerte.

vradok

Muchisimas gracias Brroz

no se me habia ocurrido usar datediff.

Saludos

SoloCodigo

Autor Tema: Calcular El Numero De Dias De Un Mes (Leído 1156 veces)

vradok

Calcular El Numero De Dias De Un Mes

Brroz

Re: Calcular El Numero De Dias De Un Mes

vradok

Re: Calcular El Numero De Dias De Un Mes