Weekday - Revision history

Doomie: typos.. changed "," to "."

2006-03-13T08:08:56Z

typos.. changed "," to "."

← Older revision		Revision as of 08:08, 13 March 2006
Line 2:		Line 2:


	; format: $day2 or $day2(day,month,year) or $day2(day.month,year)		; format: $day2 or $day2(day,month,year) or $day2(day.month.year)
	[[alias]] day2 {		[[alias]] day2 {
	; if there are no parameter, just return the name of the current day		; if there are no parameter, just return the name of the current day

Doomie: added day.month.year support

2005-11-27T21:06:30Z

added day.month.year support

← Older revision		Revision as of 21:06, 27 November 2005
Line 2:		Line 2:


	; format: $day2 or $day2(day,month,year)		; format: $day2 or $day2(day,month,year) or $day2(day.month,year)
	[[alias]] day2 {		[[alias]] day2 {
	; if there are no parameter, just return the name of the current day		; if there are no parameter, just return the name of the current day
Line 8:		Line 8:
	; we get parameters		; we get parameters
	else {		else {
			; lets check if we get $day2(day.month.year), then tokenize it
			if (($1) && (!$2) && ($numtok($1,46) == 3)) { [[tokenize]] 46 $1 }
	; lets first check if we got 3 correct ones		; lets first check if we got 3 correct ones
	if (($1 !isnum 1-31) \|\| ($2 !isnum 1-12) \|\| (!$3)) { return $false }		if (($1 !isnum 1-31) \|\| ($2 !isnum 1-12) \|\| (!$3)) { return $false }

Doomie: added link to $floor

2005-11-27T20:59:25Z

added link to $floor

← Older revision		Revision as of 20:59, 27 November 2005
Line 31:		Line 31:
	if (($calc($3 % 4) == 0) && ($2 < 3)) { [[dec]] %leapyears }		if (($calc($3 % 4) == 0) && ($2 < 3)) { [[dec]] %leapyears }
	if ($3 >= 1600) {		if ($3 >= 1600) {
	%leapyears = $calc(%leapyears - $floor($calc(($3 - 1600) / 100)))		%leapyears = $calc(%leapyears - [[$floor]]($calc(($3 - 1600) / 100)))
	%leapyears = $calc(%leapyears + $floor($calc(($3 - 1600) / 400)))		%leapyears = $calc(%leapyears + $floor($calc(($3 - 1600) / 400)))
	if (($calc($3 % 100) == 0) && ($2 < 3)) {		if (($calc($3 % 100) == 0) && ($2 < 3)) {

Doomie: $day2 not $day..

2005-11-27T20:58:48Z

$day2 not $day..

← Older revision		Revision as of 20:58, 27 November 2005
Line 2:		Line 2:


	; format: $~~day~~ or $~~day~~(day,month,year)		; format: $day2 or $day2(day,month,year)
	[[alias]] day2 {		[[alias]] day2 {
	; if there are no parameter, just return the name of the current day		; if there are no parameter, just return the name of the current day

Doomie at 19:37, 26 November 2005

2005-11-26T19:37:15Z

New page

The following alias returns the name of a date you have specified. Only after 01.01.0001. If no date is specified, it returns the name of the current day.

; format: $day or $day(day,month,year)
[[alias]] day2 {
; if there are no parameter, just return the name of the current day
[[if]] (!$1) { [[return]] $day }
; we get parameters
else {
; lets first check if we got 3 correct ones
if (($1 !isnum 1-31) || ($2 !isnum 1-12) || (!$3)) { return $false }
; there are no 5.10.1582 -> 14.10.1582 due to the change of calendar
if (($3 == 1582) && ($2 == 10) && ($1 > 4) && ($1 < 15)) { return $false }
; we need the days of months
[[var]] %month = 31,28,31,30,31,30,31,31,30,31,30,31
; lets calc all days of all complete years and days in the current month
var %days = [[$calc]]((($3 - 1)*365) + ($1 - 1))
; now lets include all complete month in the current year (we need to loop through all)
var %i = 0
[[while]] (%i < $calc($2 - 1)) {
%days = $calc(%days + [[$gettok]](%month,$calc(%i + 1),44))
[[inc]] %i
}
; decrease days by ten due to change of calendar
if (($3 > 1582) || (($3 == 1582) && (($2 > 10) || (($2 == 10) && ($1 > 4))))) {
%days = $calc(%days - 10)
}
; leapyears til 1599: all years divided by 4
; after 1600: all years divided by 4 but not at full centurys, only if they are dividable by 400
var %leapyears = $floor($calc($3 / 4))
if (($calc($3 % 4) == 0) && ($2 < 3)) { [[dec]] %leapyears }
if ($3 >= 1600) {
%leapyears = $calc(%leapyears - $floor($calc(($3 - 1600) / 100)))
%leapyears = $calc(%leapyears + $floor($calc(($3 - 1600) / 400)))
if (($calc($3 % 100) == 0) && ($2 < 3)) {
inc %leapyears
if ($calc($3 % 400) == 0) { dec %leapyears }
}
}
%days = $calc(%days + %leapyears)
; lets show the result
var %week = Saturday,Sunday,Monday,Tuesday,Wednesday,Thursday,Friday
var %erg = $gettok(%week,$calc((%days % 7) + 1),44)
return %erg
}
}

[[Category:Script Archive]]