كود إظهار التاريخ الهجري

السلام عليكم

الموضوع بسيط جدا يا اخي الساكت

Calendar = vbCalHijri

text1.text=Date

هنا التاريخ سيكون هجري في جميع الأحوال وليس له اي علاقة بتاريخ الجهاز اللي انت شغال عليه.

Calendar = vbCalGreg

text1.text=Date

اما التاريخ هنا فحيكون ميلادي بغض النظر عن تاريخ الجهاز اللي انت شغال علية كمان يعني نفس الشئ.

وياريت لو في أي سؤال تاني ما تتأخر على نفسك ولا تخجل ولا تظن إني أضايق من كثرة الأسئله، لأننا هنا هدفنا واحد هو إننا نتعلم من بعض وننفع بعض .....وشكرا.

أخي العزيز freebird

السلام عليكم ورحمة الله وبركاته وبعد:

جزاك الله خيرا على ردك ومعلوماتك ممتازة.

ولكن كيف أضيف كلمة(هجري) أو( ميلادي) بعد التاريخ الذي يظهر. أم لابد من وضعه في عنوان خارجي بجانب التاريخ الذي يظهر.

أرجو أن يكون التوضيح بمثال. وجزاك الله خيرا وجعله في موازين حسناتك يوم القيامة.

شكرا لمن أهتم برسالتي وجاوبني عليها بقدر معرفته.

ولقد وجدت الطريقة لإظهار المطلوب:

وقد أفادني بها أبو عيـــد جزاه الله خيرا ,انقلها هنا لتعم المفائد.

وإليكموها:

Label1.RightToLeft = True

Label1.Width = 3000

Label1.Height = 3000

VBA.Calendar = vbCalHijri

Label1.Caption = Format(Date, "yyyy/mm/dd") & "هـ" & Chr(13)

Label1.Caption = Label1.Caption & Format(Date, "dd/mmmm/yyyy") & "هـ" & Chr(13)

Label1.Caption = Label1.Caption & Format(Date, "dddd/mmmm/yyyy") & "هـ" & Chr(13)

End Sub

مع ملاحظة وضعها في التايمر أو في أمر كموندر على كيفكم.

السلام عليكم

أخي الساكت الحمد لله إني استطعت إجابتك وإفادتك بقدر العلم البسط اللي عندي وأشكرك شكر خاص لإطرائك لي بأنه امتلك معلومات ممتازة لأنك في الحقيقة أخجلت تواضعي .

المهم انت الله يسامحك ما قلت إنك تبغى تظهر هجري أو ميلادي بعد التاريخ ولو إنك قلت أو اشرت للموضوع كان أعطيتك المعلومه من البدايه على العموم أنا اشكرك إنك نشرت المعلومه بهذا الشكل علشان تعم الفايدة على الجميع والله يكتر من أمثالك إن شاء الله وانا تشرفني إنك تكتر من الأسئله لأنه اسئلتك مهمه جدا .......وشكرا