@VaporiZed
Ups.. da war mein Test weg....
Hab das nun so umgeändert.
Spoiler anzeigen
Ups.. da war mein Test weg....
Hab das nun so umgeändert.
VB.NET-Quellcode
- Private Sub CheckMonth()
- ' Prüfen ob der gewählte Monat schon existiert
- Dim dtWeather = DsWeather.dtWeather
- Dim targetMonth As Integer = _dateService.CurrentMonth
- Dim monthExists As Boolean = False
- For Each row As DataRow In dtWeather.Rows
- Dim month As Integer = CInt(row("Monat"))
- If month = targetMonth Then
- monthExists = True
- Exit For
- End If
- Next
- If Not monthExists Then
- CreateNewTable(_dateService.CurrentYear, _dateService.CurrentMonth)
- End If
- End Sub
- Private Sub CreateNewTable(year As Integer, month As Integer)
- ' Hinzufügen des neuen Sheet für jeden Tag des Monats
- Debug.WriteLine("CreateNewTable wurde aufgerufen. Jahr: " & year & ", Monat: " & month.ToString())
- Dim dtWeather = DsWeather.dtWeather
- Dim daysInMonth As Integer = DateTime.DaysInMonth(year, month)
- For day As Integer = 1 To daysInMonth
- Dim sDay As String = $"{day:00}-{month:00}-{year}"
- dtWeather.AdddtWeatherRow(year, month, sDay, "", "", 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0)
- Next
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.