Level:
Region:
SoloQ Division:
Best Role:
wutAllen's Slave wrote:Dim currentDate As New DateTime(2013, 11, 1)
Dim dateToAdd As New DateTime
While True
currentDate = currentDate.AddDays(1)
If currentDate.Day = 15 Or currentDate.Day = Date.DaysInMonth(currentDate.Year, currentDate.Month) Then
dateToAdd = currentDate
While dateToAdd.DayOfWeek = 0 Or dateToAdd.DayOfWeek = 6
dateToAdd = dateToAdd.AddDays(-1)
End While
ComboBox1.Items.Add(dateToAdd.ToShortDateString)
If currentDate.Day > 15 Then
If Not currentDate.Month = 12 Then
currentDate = New DateTime(currentDate.Year, currentDate.Month + 1, 1)
Else
currentDate = New DateTime(currentDate.Year + 1, 1, 1)
End If
End If
If dateToAdd.CompareTo(Today.Date) > 0 Then ComboBox1.SelectedText = dateToAdd.ToShortDateString : Exit Sub
End If
End While
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim test = Today.Date
While True
End While
Vb 6?Allen's Slave wrote:Dim currentDate As New DateTime(2013, 11, 1)
Dim dateToAdd As New DateTime
While True
currentDate = currentDate.AddDays(1)
If currentDate.Day = 15 Or currentDate.Day = Date.DaysInMonth(currentDate.Year, currentDate.Month) Then
dateToAdd = currentDate
While dateToAdd.DayOfWeek = 0 Or dateToAdd.DayOfWeek = 6
dateToAdd = dateToAdd.AddDays(-1)
End While
ComboBox1.Items.Add(dateToAdd.ToShortDateString)
If currentDate.Day > 15 Then
If Not currentDate.Month = 12 Then
currentDate = New DateTime(currentDate.Year, currentDate.Month + 1, 1)
Else
currentDate = New DateTime(currentDate.Year + 1, 1, 1)
End If
End If
If dateToAdd.CompareTo(Today.Date) > 0 Then ComboBox1.SelectedText = dateToAdd.ToShortDateString : Exit Sub
End If
End While
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim test = Today.Date
While True
End While
|
|