vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

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

VB.NET - Ein- und Umsteiger
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln 
Autor: manuelhasi
Datum: 05.02.20 11:53

Danke

für den Ursprungstipp von Manfred siehts dann so aus

 Public Function Datumschleife(ByVal Datum_1 As Date, Datum_2 As Date, Optional _
   ByVal WTage As String = "") As List(Of String)
 
        Dim anzahltage As Long
        Dim starttag As Date
        Dim ergebnis As String
        Dim einzeldatum As Date
        Dim y As Long
        Dim strTage As New System.Text.StringBuilder
        Datumschleife = New List(Of String)
 
        ' wenn keine zu zählenden Wochentage angegeben wurden
        ' alle Wochentage berücksichtigen
        If WTage = "" Then WTage = "Mo;Di;Mi;Do;Fr;Sa;So"
 
        ' Anzahl Tage zwischen Datum1 und Datum2 ermitteln
        anzahltage = Microsoft.VisualBasic.DateDiff("D", Datum_1, Datum_2)
 
        ' Beginnen mit Datum1
        starttag = Datum_1
        For y = 0 To anzahltage
            einzeldatum = Microsoft.VisualBasic.DateAdd("d", y, starttag)
            ergebnis = Strings.Left(Strings.Format(einzeldatum, "dddd"), 2) & "" & _
              " " & Strings.Format(einzeldatum, "dd.MM.yy")
            'Beachte MM
 
            ' Prüfen, ob ermittelter Wochentag berücksichtigt
            ' werden soll
            If InStr(WTage, Strings.Left$(ergebnis, 2)) > 0 Then
                strTage.Append(ergebnis & " ")
            End If
            Datumschleife.Add(ergebnis)
        Next y
        Return Datumschleife
    End Function
Aufruf
Dim l As List(Of String) = Datumschleife("10.02.20", "20.02.20", "")
For Each d As String In l
ListViewTerminübersicht.Items.Add(d)
Next
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 304: Alle Tage zweier Datumswerte ermitteln150manuelhasi04.02.20 21:01
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln66Manfred X05.02.20 00:05
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln38manuelhasi05.02.20 08:51
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln36manuelhasi05.02.20 09:37
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln38HenryV05.02.20 09:54
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln42manuelhasi05.02.20 11:53
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln36Manfred X05.02.20 20:12
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln41Manfred X05.02.20 20:44
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln25HenryV07.02.20 08:41

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-2020 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