ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã...
áØÇáãÇ ÚÇäÊ ÈÚÖ ÇáÈÑÇãÌ ááÊÍæíá ÈíÊ ÇáÊÞæíãíä Çáì ãÔÇßá ÚÏíÏÉ æÐáß ÈÓÈÈ ÇáÌåá Ýí ÍÓÇÈÇÊ ÇáÊÞæíãíä ÇáãíáÇÏí æÇáåÌÑí áÐß æÈØáÈ ãä ÇáÃÎ ÛÓÇä ÞãÊ ÈÈÑãÌÉ ÈÑäÇãÌíä ááÊÍæíá Èíä ÇáÊÞæíãíä æßÇäÊ äÊÇÆÌåãÇ ÑÇÆÚÉ...
ÊÊáÎÕ ØÑíÞÉ ÇáÊÍæíá ÈÃä äÍæá ÇáÊÇÑíÎ ÇáãÚØì Çáì ÇíÇã æãä Ëã äÚÇáÌå ÈÝÑÞ ÇáÊÞæíãíä æåæ 227015 íæã æãä Ëã äÚæÏ áÊÍæíáå Çáì ÇáÊÞæíã ÇáãØáæÈ...
æÝí ÇáÂÊí ÇáÈÑäÇãÌíä ÈáÛÉ ßæíß-ÈíÓß...
ÚáÇæí...

ÛíÑ ãÈÑíÁ ÇáÐãå äÞá ÇáãæÖæÚ Ãæ ãÖãæäå ÈÏæä ÐßÑ ÇáãÕÏÑ: ãäÊÏíÇÊ ÇáÔÇãá áÚáæã ÇáÝáß æÇáÊäÌíã - ãä ÞÓã: ÞÓã ÇáÏæÇá æÇáãÚÇÏáÇÊ ÇáÑíÇÖíÉ ÇáÝáßíÉ æÇáÊäÌíãíÉ

ÇáÈÑäÇãÌ ÇáÃæá ÊÍæíá ãíáÇÏí -> åÌÑí

CLS
REM Converts Christian Date to Islamic Date
INPUT "Year:"; Y
INPUT "Month:"; M
INPUT "Day:"; D
M = M + 1
IF M < 4 THEN M = M + 12: Y = Y - 1
DD = INT(365.25 * Y) + INT(30.6 * M) + D - 429
IF DD > 577736 THEN DD = DD - INT(Y / 100) + INT(Y / 400) + 2
DD = DD - 227015
Y = INT((DD + 1773) * 30 / 10631) - 4
T = DD - INT((Y + 4) * 10631 / 30) + 1771
M = INT(T / 29.5) + 1
D = T - INT(M * 29.5 - 29) + 1
PRINT "Date:"; Y ; M ; D
END

ÚáÇæí...

ÇáÈÑäÇãÌ ÇáËÇäí ÊÍæíá åÌÑí -> ãíáÇÏí

CLS
REM Converts Islamic Date to Christian Date
INPUT "Year:"; Y
INPUT "Month:"; M
INPUT "Day:"; D
DD = D + INT(M * 29.5 - 29) + INT((Y + 4) * 10631 / 30) - 1772
I = DD + 227015
IF I > 577736 THEN A = INT((I + 305) / 36524.25): I = I + A - INT(A / 4) - 2
Y = INT((I + 306) / 365.25)
C = I - INT(Y * 365.25) + 429
M = INT(C / 30.6)
D = C - INT(M * 30.6)
M = M - 1
IF M > 12 THEN M = M - 12: Y = Y + 1
PRINT "Date:"; Y; M; D;
END

ÚáÇæí...

ÔßÑÇ áß ÕÏíÞí ÇáÚáÇæí ÇáÝáßí
æÈÇáÝÚá åÐÇ ãÇ äÍä äÍÊÇÌå ãÚÇÏáÇÊ ÏÞíÞÉ Ýí ÇáÇÓÊÎÑÇÌ

ÌÒÇß Çááå ÎíÑÇ

ÔßÑÇ ÌÒíáÇ Úáì ÇáÈÑÇãÌ

áÇ ÇËÞ ÈÇáÊÍæíá Åáì åÌÑí áÇäå áíÓ Ýáßí æÇäãÇ ÑÄíÉ Ýí ÇÛáÈ ÇáÏæá

ÔßÑÇ ÌÒíáÇ

ÈæÑßÊ

ÔßÑÇ áß ÇáÚÖæ ÇáÚÒíÒ...ÔßÑ ÕÇÍÈ ÇáãæÖæÚ ááÌåÏ ÇáÐí íÞæã Èå áÎÏãÉ Çåá ÇáÚáã íÔÌÚå áÅÚØÇÁ ÚØÇÁ ÃßÈÑ . ÖÚ ÑÏ áÑÄíÉ ÇáÑÇÈØ..