calcular días y fechas entre rangos con DateTimePicker?

[ouji_sama]

Estimados!

 

He probado varias maneras pero hasta el momento no he podido lograr lo siguiente.

 

Estoy programando en Visual Basic 2005

 

Tengo dos DataTimePicker(fecha desde y fecha hasta)

 

necesito que al seleccionar esas dos fechas me devuelva cuantos lunes, martes, miercoles, jueves, viernes, sabados y domingos hay entre esas dos fechas. Además necesito que me de las fechas(en numeros) de esos dias por ejemplo

 

desde: 01 de junio de 2012

hasta: 30 de junio de 2012

 

4 lunes (lunes 4, lunes 11, lunes 18 y lunes 25)

 

alguien sabría como lograr esto??? seria de enorme ayuda para lo que estoy desarrollando

 

de antemano muchas gracias por la ayuda!

[Leoxz]

lo tienes que hacer obligadamente con VB?, pienso que a lo mejor hay una forma de hacerlo con MySQL

[susodicho]

Este código hace algo parecido a lo que necesitas, así que no deberías tener problemas para modificarlo:

 

Public Class Form1
   Private dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       Dim fecha As Date
       Dim cont As Integer = 0

       If DateTimePicker1.Value < DateTimePicker2.Value Then
           fecha = DateTimePicker1.Value
           While fecha < DateTimePicker2.Value
               ListBox1.Items.Add(fecha.ToShortDateString())
               fecha = fecha.AddDays(7)
               cont = cont + 1
           End While
           MessageBox.Show(String.Format("Hay {0} días que caen {1}", cont, dias(fecha.DayOfWeek)))
       End If
   End Sub
End Class

 

El ejemplo toma la fecha inicial y le va sumando una semana hasta llegar a la fecha más próxima a la final.

 

Edited June 9, 2012 by susodicho

[ouji_sama]

Este código hace algo parecido a lo que necesitas, así que no deberías tener problemas para modificarlo:

 

Public Class Form1
Private dias() As String = {"Domingo", "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado"}

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
	Dim fecha As Date
	Dim cont As Integer = 0

	If DateTimePicker1.Value < DateTimePicker2.Value Then
		fecha = DateTimePicker1.Value
		While fecha < DateTimePicker2.Value
			ListBox1.Items.Add(fecha.ToShortDateString())
			fecha = fecha.AddDays(7)
			cont = cont + 1
		End While
		MessageBox.Show(String.Format("Hay {0} días que caen {1}", cont, dias(fecha.DayOfWeek)))
	End If
End Sub
End Class

 

El ejemplo toma la fecha inicial y le va sumando una semana hasta llegar a la fecha más próxima a la final.

 

 

Amigo es exactamente lo que necesito!!

 

apenas llegue a mi casa lo probare!!

 

te pasaste!!! :salto: :salto: :salto: :salto: :salto: :salto: :salto: :salto:

 

 

EDITO:

 

muchas gracias funciona perfecto!! con esto puedo modificarlo a lo que necesito!

 

te pasaste!!!!

Edited June 10, 2012 by ouji_sama