vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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: Manfred X
Datum: 05.02.20 00:05

Irgend so etwas vielleicht ....

   Public Function Datumschleife(ByVal Datum_1 As Date, Datum_2 As Date,
       Optional ByVal WTage As String = "") As 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
 
        ' 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.yyyy") 
                      '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
        Next y
        Return strTage.Remove(strTage.Length - 1, 1).ToString
 
    End Function
Anwendung:
 Dim Datum1 As Date = CDate("13.08.2001")
 Dim Datum2 As Date = CDate("29.08.2001")
 
 Dim dt As String = Datumschleife(Datum1, Datum2, "Mo")


Beitrag wurde zuletzt am 05.02.20 um 00:32:25 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 304: Alle Tage zweier Datumswerte ermitteln151manuelhasi04.02.20 21:01
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln68Manfred X05.02.20 00:05
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln40manuelhasi05.02.20 08:51
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln38manuelhasi05.02.20 09:37
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln40HenryV05.02.20 09:54
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln43manuelhasi05.02.20 11:53
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln37Manfred X05.02.20 20:12
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln42Manfred X05.02.20 20:44
Re: Tipp 304: Alle Tage zweier Datumswerte ermitteln26HenryV07.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