19.07.2012, 14:12
Bisher hat dieses Script hier immer gute Dienste geleistet:
Code:
Dim KW As Integer = 0
Dim Jahr As Integer = System.DateTime.Now.Year 'oder das Jahr angeben
Dim Monat As Integer = System.DateTime.Now.Month 'Oder den Monat angeben
Dim Tag As Integer = System.DateTime.Now.Day'oder den Tag angeben
Dim DT0 As New System.DateTime(Jahr, Monat, Tag)
Dim TagImJahr As Integer = DT0.DayOfYear
Dim dt1 As New System.DateTime(Jahr, 1, 1)
Dim TagderWocheAnfangJahr As Integer = dt1.DayOfWeek
KW = Cint((((TagderWocheAnfangJahr + 2) Mod 7) + 3 + TagImJahr) \ 7)
If KW = 0 Then
'letztes Jahr ausrechnen
Dim dt2 As New System.DateTime(Jahr - 1, 12, 31)
Dim TagderWocheEndeJahrVorher As Integer = dt2.DayOfWeek
Dim TageLetztesJahr As Integer = dt2.DayOfYear
KW = Cint((((TagderWocheEndeJahrVorher + 2) Mod 7) + 3 + TageLetztesJahr) \ 7)
End If
vdf.writeint 0,0,kw 'wegschreiben des Wertes ins VDF