Programación General > Visual Basic 6.0 e inferiores

 Date In Vb6

(1/1)

juravi:
:comp: Hola a todos, alguien sabe como  obtener cuantos dias tiene una ano X y un mes X, no se, alguna funcion o algo :huh: .
 :scream: Se les agradeceria.

Brroz:
Hola juravi.

La función DateDiff va que ni pintada para estas cosas. Fíjate, para conocer el número de días del mes de febrero de este año:

--- Código: Text --- MsgBox DateDiff("d", Format("1/2/2004", "dd/mm/yyyy"), Format("1/3/2004", "dd/mm/yyyy"))  
Para saber el número de días de este año:

--- Código: Text --- MsgBox DateDiff("d", Format("1/1/2004", "dd/mm/yyyy"), Format("1/1/2005", "dd/mm/yyyy"))  
Chao.

juravi:
:comp:
Hey man, gracias, no sabia de esa funcion,  :scream: pero no sabes si hay alguna que me de los dias sin tener q poner un rango(fecha inicio-fecha final).
Otra ves .. gracias :D

Brroz:
Pues no sé otra función... a no ser una creada por ti mismo

De todas formas eso de poner los rangos es una chorrada:
[Code]
Private Function DiasDelMes (ByVal Mes As Integer, Optional Byval Anho As integer) As Integer

   If Mes < 1 or Mes > 12 then Exit Function
   If Anho = 0 Then Anho = Year(Now)

   Dim s1 As string , s2 as string
   s1 = "1/" & Mes & "/" & Anho
   If Mes < 12 Then
      Mes = Mes + 1
   Else
      Mes = 1
      Anho = Anho + 1
   end if
   s2 = "1/" & Mes & "/" & Anho

   DiasDelMes = DateDiff("d", Format(s1 , "dd/mm/yyyy"), Format(s2, "dd/mm/yyyy") )

End Sub

Y como esta mil variantes podrías hacer... desde crear una matriz con los días de cada mes y recuperar el elemento correspondiente a la posición, utilizar un select case...

De cualquier forma que uses vas a encontrarte con la cuestión de febrero y los bisiestos, a sí que si no quieres perder tiempo con operaciones, deja que datediff haga el trabajo por ti.

Chao.

juravi:
:comp:
Hola Brroz, Gracias de nuevo.
 :hola:

Navegación

[0] Índice de Mensajes