vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 
zurück
Rubrik: Datum/Zeit und Timer · Datums- und Zeitfunktionen   |   VB-Versionen: VB4, VB5, VB625.03.02
KW2Datum

Eine Funktion, die den Wochenanfang/-Ende zu einer bestimmten Kalenderwoche eines bestimmten Jahres ermittelt.

Autor:   Jürgen LöwelBewertung:     [ Jetzt bewerten ]Views:  14.090 
ohne HomepageSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Wann war doch gleich die KW 17 - keinen Kalender mit Wochenangabe zur Hand, dann hätte ich eine Tip...

Die VB Boardmittel bietet zwar die Möglichkeit, zu einem Datum die entsprechende Kalenderwoche zu ermitteln, der umgekehrte Weg wurde anscheinend nicht berücksichtigt.

Der Aufruf erfolgt über Woche(Kalenderwoche, Jahr, ggf. noch der Definition des ersten Wochetages, und/oder der Definition der ersten Kalenderwoche).

Über die beiden Variablen von und bis gibts dann als Datum Anfang und Ende der gesuchten Woche zurück.

Den nachfolgenden Code bitte in ein Modul einfügen (da als "Pubic" deklariert)

Public Type Week
  von As Date
  bis As Date
End Type
Public Function Woche(ByVal KW As Integer, _
  ByVal Jahr As Integer, _
  Optional FirstDayOfWeek As VbDayOfWeek = vbMonday, _
  Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstFourDays _
  ) As Week
 
  Dim Datum As Date
 
  ' Datum auf den 7. Januar setzen, dem größtmöglichen
  ' Wert für den Beginn der ersten Kalenderwoche
  Datum = "07.01." & Jahr
 
  ' Wochenbeginn der ersten Kalenderwoche ermitteln
  While (Format(Datum, "WW", FirstDayOfWeek, FirstWeekOfYear) <> 1) Or _
    (Weekday(Datum, FirstDayOfWeek) <> 1)
    Datum = Datum - 1
  Wend
 
  ' Wochenbeginn der gesuchten KW ermitteln
  Datum = Datum + 7 * (KW - 1)
  Woche.von = Datum
  Woche.bis = Datum + 6
End Function

Beispiel

Dim iKW As Integer
Dim iJahr As Integer
Dim tWoche As Week
 
iKW = 15      ' Kalenderwoche
iJahr = 2002  ' Kalenderjahr
 
tWoche = Woche(iKW, iJahr)
MsgBox "Kalenderwoche " & CStr(iKW) & ":" & vbCrLf & _
  Woche.Von & " - " & Woche.Bis

Dieser Tipp wurde bereits 14.090 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen [email protected]  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren [email protected]!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2022 [email protected] 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