Foros del Web » Programación para mayores de 30 ;) » .NET »

Saber dias de el mes restantes

Estas en el tema de Saber dias de el mes restantes en el foro de .NET en Foros del Web. hola, tengo un problema, lo que necesito saber es cuantos sabados en el mes faltan para que el mes termine dependiendo de que dia del ...
  #1 (permalink)  
Antiguo 10/03/2010, 07:15
(Desactivado)
 
Fecha de Ingreso: julio-2009
Mensajes: 33
Antigüedad: 14 años, 10 meses
Puntos: 0
Saber dias de el mes restantes

hola, tengo un problema, lo que necesito saber es cuantos sabados en el mes faltan para que el mes termine dependiendo de que dia del mes me encuentre, no se si existira alguna funcion estoy en vb.net, se le agradeceria mucho la respuesta....
  #2 (permalink)  
Antiguo 10/03/2010, 07:23
(Desactivado)
 
Fecha de Ingreso: julio-2009
Mensajes: 33
Antigüedad: 14 años, 10 meses
Puntos: 0
Respuesta: Saber dias de el mes restantes

que diga algo asi como cuantos dias sabados quedan en el mes, dependiendo de el dia del mes que este parado, por ejemplo estoy parado en el dia 11 de febrero de 2010(fecha real) y quiero saber que faltan 3 sabados para que termine el mes.
  #3 (permalink)  
Antiguo 10/03/2010, 07:37
(Desactivado)
 
Fecha de Ingreso: julio-2009
Mensajes: 33
Antigüedad: 14 años, 10 meses
Puntos: 0
Respuesta: Saber dias de el mes restantes

encontre la respuesta:

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim dia As Integer = Today.Day
Dim dias_mes As Integer = DateTime.DaysInMonth(Now.Year, Now.Month)
Dim semana As Integer = getNumeroSemana(Date.Today)
Dim restan As Integer = (dias_mes - dia)
Dim n As Integer
For i As Integer = 1 To restan
If Weekday(New DateTime(Date.Today.Year, Date.Today.Month, i), FirstDayOfWeek.System) = FirstDayOfWeek.Saturday Then
n += 1
End If
Next
MessageBox.Show(n, "", MessageBoxButtons.OK)
End Sub
Function getNumeroSemana(ByVal fecha As Date) As Integer
Dim sFecha As String
sFecha = "01/" & Month(fecha) & "/" & Year(fecha)
getNumeroSemana = DatePart("ww", fecha) - DatePart("ww", DateValue(sFecha)) + 1
End Function

Etiquetas: dias
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:24.