NICEFORM | Kalenderwoche über VB-script

Dieses Forum ist für alle NiceLabel Fragen für die deutschen Benutzer.

Moderators: Georges, milos, RobertK, tb, rom, NiceLabel Support Team

Post Reply
C.C.
Enthusiast
Posts: 11
Joined: Fri Oct 13, 2006 8:58 am
Location: Germany / Berlin

NICEFORM | Kalenderwoche über VB-script

Post by C.C. » Wed Nov 15, 2006 2:48 pm

Ich möchte in einer Form die Kalenderwoche über das Systemdatum im VB-Script herausbekommen.
Aber die Funktion FormatDateTime ist da sehr begrenzt.
Gibt es da noch eine andere Lösung ?

NICELABEL 4.1 PRO
Mit freundlichen Grüßen / Best Regards
C.C.

C.C.
Enthusiast
Posts: 11
Joined: Fri Oct 13, 2006 8:58 am
Location: Germany / Berlin

Post by C.C. » Thu Nov 16, 2006 8:26 am

das hier funktioniert, dat muß dann aber mit now aufgerufen werden und nicht mit date, also z.B.
msgbox Function kw_calc(now)

Function kw_calc(dat)
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
((WeekDay(DateSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
a = kw_calc(DateSerial(Year(dat) - 1, 12, 31))
ElseIf a = 53 And (WeekDay(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
a = 1
End If
kw_calc = a
End Function
Mit freundlichen Grüßen / Best Regards
C.C.

Post Reply