معادلة التاريخ الهجري

تقوم الفكرة علي حساب ايام التاريخ الميلادي منذ 1/1/1 هـ وحتي يومنا هذا ولا تنسى ايام السنة الكبيسة ثم تحويلها الى سنوات واشهر وايام هجري.

وهذا برنامج كنت كتبته في قديم الزمان بالبيسك ارجو ان يوصلك الى نتيجة

والخطا بهذا البرنامج يكون + - يوم عن التاريخ الفعلي.

D$(1) = "SATARDAY "
D$(2) = "SUNDAY   "
D$(3) = "MONDAY   "
D$(4) = "TUESDAY  "
D$(5) = "WEDENSDAY"
D$(6) = "THURSDAY "
D$(7) = "FRIDAY   "
SCREEN 12
        CLS
PAINT (320, 100), 3
        PRINTSIZE = 3
        LARGELIN = 1
        LARGECOL = 3
        BACKSHADOW = 1
        LARGECOLOR = 14
        MESSAGE$ = "HIGRY EVALUATION"
        GOSUB SUPERPRINT
        LARGECOLOR = 1
        PRINTSIZE = 2
        LARGELIN = 6
        LARGECOL = 4
        MESSAGE$ = "hamdyghanem"
        GOSUB SUPERPRINT
DO
RESTORE
'1-1-1H = 15 OR 16-7-622
        COLOR 3
'PRINT
'PRINT
        DIM GMDAYS(12)
        DATA 31,28,31,30,31,30,31,31,30,31,30,31
        FOR I = 1 TO 12
                READ GMDAYS(I)
        NEXT

'        HYDAYS = 354.3763 FOR 15,07,622
        HYDAYS = 354.3749


        'GDAY = 16: GMOUNTH = 7: GYEAR = 622
        'GDAY = 20: GMOUNTH = 3: GYEAR = 1917
        'GDAY = 13: GMOUNTH = 4: GYEAR = 1983
        'GDAY = 14: GMOUNTH = 5: GYEAR = 1992
        'GDAY = 30: GMOUNTH = 6: GYEAR = 1995
        COLOR 6
        LOCATE 10, 10: INPUT " DAY    :"; GDAY$
        LOCATE 11, 10: INPUT " MOUNTH :"; GMOUNTH$
        LOCATE 12, 10: INPUT " YEAR   :"; GYEAR$
        GDAY = VAL(GDAY$)
        GMOUNTH = VAL(GMOUNTH$)
        GYEAR = VAL(GYEAR$)
        GOSUB DAYSUT
        D1 = totalgdays
        D# = D1 - INT(D1 / 7) * 7 + 1
        LOCATE 12, 34
        PRINT D$(D#)
        GD = GDAY: GM = GMOUNTH: GY = GYEAR
        GDAY = 16: GMOUNTH = 7: GYEAR = 622
        GOSUB DAYSUT
        D2 = totalgdays

        HDAYS = D1 - D2
        'PRINT D1, D2'HDAYS
        GOSUB SHOWHIGRA
        LOCATE 10, 20: PRINT "                                  "
        LOCATE 11, 20: PRINT "                                  "
        LOCATE 12, 20: PRINT "                                  "
        S$ = SPACE$(80)
        LOCATE 28, 1: PRINT S$
        'CLS
        'PAINT (320, 100), 3
        LOOP
        END




DAYSUT: 'GYEAR,GMOUNTH,GDAY MUST BE SPECIFIED   RESULT IS IN GDAYS
        A = (GYEAR - 1) * 365
        B = INT((GYEAR - 1) / 4)
        D = 0
        L = 0
        IF GMOUNTH > 1 THEN
                FOR C = 1 TO GMOUNTH - 1
                D = D + GMDAYS©
                NEXT
        END IF
        IF GMOUNTH > 2 THEN 'OR (GMOUNTH = 2 AND GDAY = 29) THEN
                L = INT(GYEAR / 4) - B
        END IF
        totalgdays = A + B + D + L + GDAY
        'PRINT "TOTAL GREGORIAN DAYS ="; totalgdays
        RETURN
SHOWHIGRA:
        HMDAYS = HYDAYS / 12
        HYEAR = INT(HDAYS / HYDAYS)
        'IF HYEAR = 0 THEN HYEAR = 1
        HMOUNTH = INT((HDAYS - (HYEAR) * HYDAYS) / HMDAYS)
        'IF HMOUNTH = 0 THEN HMOUNTH = 1
        TD = (HDAYS - (HYEAR) * HYDAYS - (HMOUNTH) * HMDAYS)
        'PRINT TD
        HDAY = INT(TD + .2)
        IF HDAY = 0 THEN HDAY = 1
        LOCATE 15, 10
        'LOCATE 15, 25
        PRINT " GREGORIAN "; GD; "/"; GM; "/"; GY; "=";
        PRINT HDAY; "/"; HMOUNTH + 1; "/"; HYEAR + 1; "HIGRY               ";
        LOCATE 28, 1
        PRINT "PRESS ANY KEY TO CONTINUE                               Esc to Exit            "
        DO: A$ = INKEY$: LOOP WHILE A$ = ""
        IF A$ = CHR$(27) THEN END
        RETURN
' $STATIC $INCLUDE: 'SUPRPRNT.BAS'

كان فى موضوع انا عامله كنت عامل dll للتحويل بين التاريخ الهجرى والميلادى ابحث فى المنتدى

هاهو الرابط /index.ph...37444&st=15&hl=

CultureInfo cf =new CultureInfo( "ar-SA", false );

System.Console.WriteLine(DateTime.Now.ToString(cf.DateTimeFormat) );