تاریخ شمسی

[amirlol]

سلام نشستم یه تاریخ شمسی نوشتم
گذاشتم گفتم شاید لازمتون بشه

نامردی نکنید فقط

<%
':::			This script is Copyright © 2005 by amirElahi
':::				eLol Programming & Designing Studio
':::						ALL RIGHT RESERVED
':::
':::			--------------------------------------------
':::							WwW.eLol.Ir
':::					AmirElahi[ at ]gmail[ dot ]com

			'10/15/06   m/d/yy
	datex = date()
		X = Datepart("y",datex)
		Y = Datepart("yyyy",datex)
		M = Datepart("m",datex)
		D = Datepart("d",datex)

	IF Y MOD 100 = "0" AND Y MOD 400 = "0" OR Y MOD 4 = "0" THEN
		RESPONSE.WRITE ("Kbiseh  ")
		NM = "K"
	END IF
	L = X - 79
	IF X > 79 THEN
		IF L < 186 THEN
			IF L MOD  31 = "0" THEN
				Y1 =  Y - 621
				M1 = L \ 31
				D1 = "31"
			ELSEIF NOT L MOD  31 = "0" THEN
				Y1 =  Y - 621
				M1 = (L \ 31) + 1
				D1 = L MOD 31
			END IF
		ELSEIF L > 186 THEN
			Q = L - 186
			B = Q \ 30
				IF Q MOD 30 = "0" THEN
					Y1= Y - 621
					M1= B + 6
					D1 = "30"
			 	ELSEIF NOT Q MOD 30 = "0" THEN
	 		 		Y1= Y - 621
					M1= B + 7
					D1 = (L - 186) MOD 30
				END IF
		END IF
	ELSEIF  X <= 79 THEN
		IF NM = "K" THEN
			EKH = "11"
		ELSEIF NOT NM = "K" THEN
			EKH = "10"
		END IF
			GH = X + EKH
			GHT = GH MOD 30
		IF GHT = "0" THEN
			Y1 = Y - 622
			M1 = (GH \ 30) + 9
			D1 = "30"
		ELSEIF NOT GHT = "0" THEN
			Y1 = Y - 622
			M1 = (GH \ 30) + 10
			D1 = GH MOD 30
		END IF
	END IF
		RESPONSE.WRITE Y1 &"/"& M1 &"/"& D1

%>

راستی کل کارم مال خودمه