Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Danke hat sich erledigt !
Autor: Michael
Datum: 21.08.02 16:44
Danke, habe es selber herrausgefunden ! Für Interessierte : Private Function KalenderWoche(Datum As Date) As Integer Dim tmp As Double tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1) KalenderWoche = (Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7) 7 + 1 End Function Private Function Datum_aus_Woche(Jahr As Integer, Woche As Integer) Dim intTag As Integer, intWoche As Integer If Jahr = 0 Then Datum_aus_Woche = 0 Exit Function End If intTag = 1 intWoche = KalenderWoche(DateSerial(Jahr, 1, 1)) If intWoche <> 1 Then Do Until KalenderWoche(DateSerial(Jahr, 1, intTag)) = 1 intTag = intTag + 1 Loop Else Do Until KalenderWoche(DateSerial(Jahr, 1, intTag)) <> 1 intTag = intTag - 1 Loop intTag = intTag + 1 End If Datum_aus_Woche = DateSerial(Jahr, 1, intTag) + (Woche - 1) * 7 End Function Private Sub Form_Load() Dim Datum As Date Datum = Format(Now, "dd.mm.yyyy") Text1.Text = "Wir haben Kalenderwoche : " & KalenderWoche(Datum) Dim KW As Integer Dim Jahr As Integer KW = KalenderWoche(Format(Now, "dd.mm.yyyy")) Jahr = Format(Now, "yyyy") Text2.Text = "Die Woche " & KW & " im Jahre " & Jahr & _ " beginnt am: " & Datum_aus_Woche(Jahr, KW) End Sub

Kalenderwochen anzeigen	61	Michael	21.08.02 16:21
Danke hat sich erledigt !	47	Michael	21.08.02 16:44

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übersicht

Suchen