I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Public Shared Function WeekNumber(year As Integer, mon As Integer, day As Integer) As Integer Dim a,y,m,JD,d4,L,d1 As Integer a = (14 - mon) \ 12 y = year + 4800 - a m = mon + 12*a - 3 JD = day + (153 * m + 2)\5 + 365*y + y\4 - y\100 + y\400 - 32045 d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461 L = d4 \ 1460 d1 = ((d4 - L) Mod 365) + L WeekNumber = d1 \ 7 + 1 End Function
Så brug arne_v eksempel! Det kan næsten ikke være mere ligetil!
Så smider du funktionen ind i din kode:
Public Shared Function WeekNumber(year As Integer, mon As Integer, day As Integer) As Integer Dim a,y,m,JD,d4,L,d1 As Integer a = (14 - mon) \ 12 y = year + 4800 - a m = mon + 12*a - 3 JD = day + (153 * m + 2)\5 + 365*y + y\4 - y\100 + y\400 - 32045 d4 = (((JD + 31741 - JD Mod 7) Mod 146097) Mod 36524) Mod 1461 L = d4 \ 1460 d1 = ((d4 - L) Mod 365) + L WeekNumber = d1 \ 7 + 1 End Function
Og så kalder du den med: lblDato.Text = WeekNumber(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day)
using System.Globalization; public static int GetWeekNumber(DateTime inDate) { GregorianCalendar gCalendar = new GregorianCalendar(); return gCalendar.GetWeekOfYear( inDate,CalendarWeekRule.FirstFourDayWeek,DayOfWeek.Monday ); }
Synes godt om
Ny brugerNybegynder
Din løsning...
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.