SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: juravi en Viernes 10 de Diciembre de 2004, 16:59

Título: Date In Vb6
Publicado por: juravi en Viernes 10 de Diciembre de 2004, 16:59

: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.

Título: Re: Date In Vb6
Publicado por: Brroz en Miércoles 15 de Diciembre de 2004, 09:59

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

1.  
2. MsgBox DateDiff("d", Format("1/2/2004", "dd/mm/yyyy"), Format("1/3/2004", "dd/mm/yyyy"))
3.  
4.  

Para saber el número de días de este año:

Código: Text

1.  
2. MsgBox DateDiff("d", Format("1/1/2004", "dd/mm/yyyy"), Format("1/1/2005", "dd/mm/yyyy"))
3.  
4.  

Chao.

Título: Re: Date In Vb6
Publicado por: juravi en Miércoles 15 de Diciembre de 2004, 19:09

: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

Título: Re: Date In Vb6
Publicado por: Brroz en Jueves 16 de Diciembre de 2004, 14:57

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.

Título: Re: Date In Vb6
Publicado por: juravi en Martes 21 de Diciembre de 2004, 14:11

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