Hallo Harald,
versuch's mal hiermit:
Public Function KW(Optional opvarDatum As Variant) As Integer
Dim intKW As Integer
If IsMissing(opvarDatum) Then
opvarDatum = Date()
End If
intKW = Int((opvarDatum _
- DateSerial(Year(opvarDatum), 1, 1) _
+ ((Weekday(DateSerial(Year(opvarDatum), 1, 1), _
vbSunday) + 1) _
Mod 7) _
- 3) _
/ 7) _
+ 1
If intKW = 0 Then
intKW = KW(DateSerial(Year(opvarDatum) - 1, 12, 31))
ElseIf intKW = 53 And _
(Weekday(DateSerial(Year(opvarDatum), 12, 31), _
vbUseSystemDayOfWeek) - 1) Mod 7 <= 3 Then
intKW = 1
End If
KW = intKW
End Function
mfG - D. L�tje
---
\\|||// //|||\\
| | (� �)
(.) (.) "
==============oOO==(_)==OOo=============��O===�==O��==============
Dieter L�tje, Kernkraftwerk Kr�mmel, Elbuferstr. 82, D-21502 Geesthacht.
Tel.: +49 (0)4152 - 15 27 86, Fax: +49 (0)152 - 15 25 17.
eMail: [EMAIL PROTECTED]
PGP-Key at: idap://certserver.pgp.com or
PGP-Fingerprint: C52A 5AEC 91B1 7F84 3BCA F406 43AE 8845 27CC 09BA
> -----Urspr�ngliche Nachricht-----
> Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Gesendet: Donnerstag, 13. September 2001 13:23
> An: [EMAIL PROTECTED]
> Betreff: [aspdebeginners] Kalenderwoche
>
>
> Hi Liste!
>
> Wie kann ich mir aus dem aktuellen Datum die Kalenderwoche berechnen??
>
> Danke!
> Harald Angel
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
