Saber dias de el mes restantes

[kail521]

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

[kail521]

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.

[kail521]

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