vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Datumberechnung Zeitspanne 
Autor: Manfred X
Datum: 16.12.18 23:34

Hallo!

Irgend sowas .....

Private Function MonthsInTimespan(intervalstart As Date, 
                                  intervalend As Date) As String()
 
        If intervalstart.Ticks > intervalend.Ticks Then
            Throw New ArgumentException("No Timespan")
        End If
 
        Dim months As New List(Of String)
        If intervalstart.Year = intervalend.Year Then
            'Beide Datumsangaben im gleichen Jahr ... 
            For i As Integer = intervalstart.Month To intervalend.Month
                months.Add(DateAndTime.MonthName(i))
            Next i
        ElseIf intervalstart.Year + 1 = intervalend.Year Then
            'Zwischen den Datumsangaben liegt ein Jahreswechsel
            For i As Integer = intervalstart.Month To 12
                months.Add(DateAndTime.MonthName(i))
            Next i
            For i As Integer = 1 To intervalend.Month
                months.Add(DateAndTime.MonthName(i))
            Next i
        Else
            Throw New ArgumentException("Not implemented")
        End If
        Return months.ToArray
End Function
Aufrufbeispiel:
Dim m() = MonthsInTimespan(CDate("15.1.18"), CDate("15.9.19"))
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datumberechnung Zeitspanne650manuelhasi16.12.18 16:36
Re: Datumberechnung Zeitspanne332manuelhasi16.12.18 19:03
Re: Datumberechnung Zeitspanne329Manfred X16.12.18 23:41
Re: Datumberechnung Zeitspanne370Manfred X16.12.18 23:34
Re: Datumberechnung Zeitspanne334manuelhasi17.12.18 20:49

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel