Wat is er mis met deze code ?
Het is de bedoeling om in txtDayOfWeek de dag te plaatsen, bvb maandag, dinsdag ....
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click
Dim dt As Date = CDate(mtbDate.Text) >>>Masked Text Box Mask is Short Date
Dim fullDate As String = dt.ToString("D")
Dim position As Integer = fullDate.IndexOf(",")
Dim dayOfWeek As String = fullDate.Substring(0, position) <<< Foutbericht: Lengte kan niet minder dan nul zijn.
txtDayOfWeek.Text = dayOfWeek
End Sub
Ik geraak er niet wijs uit, wie kan dit probleem verhelpen ?
Het is de bedoeling om in txtDayOfWeek de dag te plaatsen, bvb maandag, dinsdag ....
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click
Dim dt As Date = CDate(mtbDate.Text) >>>Masked Text Box Mask is Short Date
Dim fullDate As String = dt.ToString("D")
Dim position As Integer = fullDate.IndexOf(",")
Dim dayOfWeek As String = fullDate.Substring(0, position) <<< Foutbericht: Lengte kan niet minder dan nul zijn.
txtDayOfWeek.Text = dayOfWeek
End Sub
Ik geraak er niet wijs uit, wie kan dit probleem verhelpen ?
Laatst bewerkt:
