Dim year As Integer = Now.Year
        Dim month As Integer = Now.Month
        For k As Integer = 1 To DateTime.DaysInMonth(year, month)
            datum = New DateTime(year, month, k, 12, 0, 0)
            Dim time As TimeSpan
            time = Sonne.Wann_A(175, datum)
            datumende = New DateTime(year, month, k, time.Hours, time.Minutes, _
              time.Seconds, time.Milliseconds)
            time  = Sonne.Wann_A(-175, datum)
            datum = New DateTime(year, month, k, time.Hours, time.Minutes, _
              time.Seconds, time.Milliseconds)
            '....

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist