Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Kalender Woche (KW) bestimmen
#2
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
Antworten


Nachrichten in diesem Thema
RE: Kalender Woche (KW) bestimmen - von S.Rings - 19.07.2012, 14:12
RE: Kalender Woche (KW) bestimmen - von crash0 - 05.10.2012, 13:29
RE: Kalender Woche (KW) bestimmen - von S.Rings - 08.10.2012, 15:53

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste