Hallo Leute
jaja ich weiss, bugfix hat schon eine funktion gemacht, aber ich wollte mal selber eine realisieren (leider geht sie aber nicht.. )
[autoit]
#include <Date.au3>
$ostern = _ostern(2009)
MsgBox(0,"",$ostern)
;~ $findDiv = _div(5,3.3)
;~ MsgBox(0,"", $findDiv)
Func _ostern($year)
$d0 = Mod ($year, 19)
$d1 = Mod ($year, 4)
$d2 = Mod ($year, 7)
$d3 = _div(((_div($year, 100) * + 13), 25-2)
$d4 = (_div($year, 100)) - (_div($year, 400)) - 2
$d5 = Mod((15 + $d4 - $d3), 30)
$d6 = Mod((6 + $d4), 7)
$d7 = Mod((19 * $d0 + $d5), 30)
$d8 = $d7
If $d7 = 29 Then $d8 = 28
If $d7 = 28 And $d0 > 10 Then $d8 = 27
$d9 = Mod((( 2 * $d1) + (4 * $d2) + (6 * $d8) + $d6), 7)
$ostern = $d8 + $d9 + 22
$march = String($year & "/" & 03 & "/" & 01)
$calc = _DateAdd('D', $ostern, $march)
Return $calc
EndFunc
Func _div($c, $d)
$div = $c / $d
$roundDiv = Round($div, 1)
$stringRight = StringRight($roundDiv, 1)
If $stringRight >= "5" Then
$roundedDiv = Round($roundDiv - 1, 0)
Else
$roundedDiv = Round($roundDiv, 0 )
EndIf
Return $roundedDiv
EndFunc
Habe dafür Gauss formel benutzt : http://www.serve.com/jb/ostern.htm
kann mir jemand erklären wo der fehler liegt??
grüsse