abdullh307

في 04 نوفمبر, 2015 at 10:04, أبو أمين said:

هذه الصورة مرفقة بعد تعديل الكود حيب ما شرحه الأخ جعفر الطريبق .

فقط قفت بتعديل بسيط هنا في السطر الثالث

Private Sub UserForm_Initialize()
   Label11.Caption = Label11.Caption & " " & DayNameArabic(Now())
    Label2.Caption = DayNameArabic(Now())
    Label3.Caption = Format(Now(), "dd")
    Label4.Caption = Format(Now(), "mm")
    Label5.Caption = Format(Now(), "yyyy")
    Label6.Caption = Format(DHijri(Now()), "dd")
    Label7.Caption = HijriMonth(Format(DHijri(Now), "mm"))
    Label8.Caption = Format(DHijri(Now()), "yyyy")

End Sub

لست املك في الأخير سوى الإعجاب بكل هذه القدرات وأسأل الله سبحانه أن يوفقنا حميعا إلى ما يحب و يرضى .

سأقوم في المرة القادمة بشرح برنامجي الذي أنا بصدد إتمامه والذي أدعو الله أن ينفع به مسلمي فرنسا .