no.love
Member
سلام.
به یک اسکریپت که تاریخ میلادی رو به شمسی تبدیل کنه نیاز دارم.
یکی پیدا کردم ولی کار نمیکنه کسی میتونه کمک کنه ؟
به یک اسکریپت که تاریخ میلادی رو به شمسی تبدیل کنه نیاز دارم.
یکی پیدا کردم ولی کار نمیکنه کسی میتونه کمک کنه ؟
کد:
[FONT=monospace][URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Func[/URL] _miladi2shamsi($Dm, $Mm, $Ym)
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Dim[/URL] $d, $p, $w, $mon, $u, $v, $rp, $x, $i, $Ys, $Ms, $P1, $D1, $Ds, $DateShamsi
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Local[/URL] $d[12] = [20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Local[/URL] $p[12] = [11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10]
$u = 0
$rp = 0
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]($Ym, 4) = 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $u = 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]($Ym, 100) = 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]($Ym, 400) <> 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $u = 0
$Ys = $Ym - 622
$x = $Ys - 22
$x = [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]($x, 33)
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]($x, 4) = 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $x <> 32 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $rp = 1
$i = [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Not[/URL] ($rp - 2) + [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Not[/URL] ($u - 2) * 2
$x = 0
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Mm = 3 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $x = 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $i = 3
$Ms = [URL="http://www.autoitscript.com/autoit3/docs/functions/Mod.htm"]Mod[/URL]((9 + $Mm), 13)
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $Ms < 10 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $Ms = $Ms + 1
$D1 = $d[$Mm - 1]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 1 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Mm > 2 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $D1 = $D1 - 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 2 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Mm < 3 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $D1 = $D1 - 1
$P1 = $p[$Mm - 1]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 1 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Mm > 2 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $P1 = $P1 + 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $i = 1 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Mm < 4 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $P1 = $P1 + 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $Dm > 0 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $Dm <= $D1 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL]
$Ds = $P1 + $Dm + $x - 1
$x = 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Else[/URL]
$Ds = $Dm - $D1
$Ms = $Ms + 1
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] $Ms = 13 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $Ms = 1
$x = 2
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]EndIf[/URL]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]If[/URL] (($Mm = 3 [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]And[/URL] $x = 2) [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Or[/URL] $Mm > 3) [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]Then[/URL] $Ys = $Ys + 1
[URL="http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm"]MsgBox[/URL](0,'',$Ys&'/'&$Ms&'/'&$Ds)
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm"]EndFunc[/URL][/FONT]