Scripts

På denne siden vil du finne diverse snutter jeg har vært nødt til å mekke i tidens løp. Bruk dem så mye du vil, det er helt gratis.

JavaScript: weeknum
VBScript/VBA: weeknumber

JavaScript

Ukenummerfunksjonen under fant jeg ikke noe sted, så da måtte jeg lage den selv.

function weeknum(aDate) {
/*	This function returns the week number for a given date.
	If no date is given, the current date is used.
	The function uses Norwegian rules for week numbering:
	Week no 1 is the first week with 4 or more days.
	Also note that Monday is the first day of the week.
	This function has been testet and verified using IE 4.01 SP1 and Netscape 4.02.
	Written by Sverre Beisland, 1999

	The rule goes like this:
	1. Calculate number of days from Jan 1 until today.
	2. Divide by 7 to get number of weeks.
	3. If first day of year is between monday and thursday, add 1.
	4. If dayname of today is "less than" dayname of Jan 1, add 1.
*/

// Get the date
if (aDate == "") {
	var today = new Date();
} else {
	var today = new Date(aDate);
}

// Get first day of year (January = 0)
var jan1 = new Date(today.getFullYear(), 0, 1);

// Calculate the number of weeks
count = Math.floor((today.getTime()-jan1.getTime())/1000);
Weeks = Math.floor(count/(60*60*24*7));

// Adjust according to weekday
if ((jan1.getDay() < 5) && (jan1.getDay() != 0)) {
	Weeks = Weeks + 1;
}

if ( ( today.getDay() < jan1.getDay() ) && (today.getDay() != 0) ) {
	Weeks = Weeks + 1;
}

if (Weeks < 10) { Weeks = '0' + Weeks; }
return Weeks;
}

VBScript/VBA

Ukenummerfunksjonen nedenfor måtte jeg lage fordi weeknum-funksjonen i Excel 97 beregner feil ukenummer for 1999.

Function weeknumber(aDate)
' This function returns the week number for a given date. If no date is given, the current date is used.
' The function uses Norwegian rules for week numbering: Week no 1 is the first week with 4 or more days.
' Also note that Monday is the first day of the week.
' The function is testet using english Excel 97.
' Written by Sverre Beisland, 1999

' The rule goes like this:
' 1. Calculate number of days from Jan 1 until today.
' 2. Divide by 7 to get number of weeks.
' 3. If first day of year is between monday and thursday, add 1.
' 4. If dayname of today is "less than" dayname of Jan 1, add 1.

Dim today, jan1, aCount, Weeks

' Get the date
If (aDate = "") Then
	today = Date
Else
	today = aDate
End If
' Get first day of year
jan1 = DateSerial(Year(today), 1, 1)
NextJan1 = DateSerial(Year(today) + 1, 1, 1)

' Calculate the number of weeks
Weeks = DateDiff("ww", jan1, today, vbMonday, vbFirstFourDays)

' Adjust according to weekday
If (WeekDay(jan1, vbSunday) < vbFriday) And (WeekDay(jan1, vbSunday) <> vbSunday) Then
	Weeks = Weeks + 1
End If
If Weeks = 53 Then
	If (WeekDay(NextJan1, vbSunday) < vbFriday) And (WeekDay(NextJan1, vbSunday) <> vbSunday) Then
		Weeks = 1
	End If
End If

weeknumber = Weeks
End Function

Sist oppdatert: 08.01.02 08:17

Nyttige notater

Scripts