Dim cal As System.Globalization.Calendar Dim rul As System.Globalization.CalendarWeekRule Dim w As Integer
'Jeg mener bestemt vi i Dk kører med 4-dages ugenumre... cal = System.Globalization.CultureInfo.CurrentCulture.Calendar rul = System.Globalization.CalendarWeekRule.FirstFourDayWeek
w = cal.GetWeekOfYear(dt, run, System.DayOfWeek.Monday)
MessageBox.Show(w.ToString()) 'Udskriver: 50
Og det er altsammen korrekt (Jeg burde vide det, da 10. dec er min fødselsdag...)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.