Kalenderwoche in VBA

Forumthread: Kalenderwoche in VBA

14.10.2004 13:48:07

Ron Andres

Hallo,
kann ich in VBA die Kalenderwochen-Funktion benutzen. Wenn ja, wie?
Gruß Ron

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kalenderwoche in VBA

14.10.2004 14:05:32

Werner
AW: Kalenderwoche in VBA

14.10.2004 14:09:56

Ron Andres
AW: Kalenderwoche in VBA

14.10.2004 14:20:29

Uduuh
AW: Kalenderwoche in VBA

14.10.2004 15:16:19

andre

AW: Kalenderwoche in VBA

14.10.2004 14:05:32

Werner

Hallo Ron,


Sub Kalenderwoche()
Dim KW
KW = Format(Now, "ww", vbMonday)
MsgBox KW
End Sub

Werner

AW: Kalenderwoche in VBA

14.10.2004 14:09:56

Ron Andres

Danke, funktioniert!

AW: Kalenderwoche in VBA

14.10.2004 14:20:29

Uduuh

Hallo,
dann hast du allerdings eine Amerikanische Woche und nicht die KW nach DIN.


Function DINKW(Datum)
' Kalenderwoche nach DIN
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function

Gruß aus'm Pott
Udo

AW: Kalenderwoche in VBA

14.10.2004 15:16:19

andre

Hallo Werner,
nehmt bei Format die vbFirstFourDays noch mit dazu. Ich weiß nicht genau, was Standard ist - sicher ist sicher ...

Forumthread: Kalenderwoche in VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread