طلب كود تحويل التاريخ الهجري إلى ميلادي والعكس

[ياسر خليل أبو البراء]

السلام عليكم إخواني الأحباب

أسعد الله كل أوقاتكم...ودمتم على طاعة الله

---------------------------------------------------

أريد كود تحويل التاريخ الميلادي إلى هجري والعكس

عاشق الإكسيل

[احمدزمان]

و عليكم السلام

في المرفق

اكتب التاريخ في الخلايا الصفراء و سوف يظهر الناتج امامة

Book1.rar

[ياسر خليل أبو البراء]

أستاذ أحمد أشكرك على المرور الذي يشير إلى أنك مشغول أو مستعجل

بارك الله فيك

الملف المرفق لم يفي بالغرض المطلوب!!

أنا أريد الكود الذي يكتب في VBE إذا كان ذلك بوسعك

ثم إن المعادلة في B2 أعطت الخطأ Value

ياريت أشوف ردك مرة تانية بس بشرط متكونش مستعجل المرة دي

متسني على أحر من الجمر ، فياريت بسرعة وعلى مهلك خالص ...

عاشق الإكسيل

[احمدزمان]

السلام عليكم

فياريت بسرعة وعلى مهلك خالص ...

على السريع

لاأعرف انه في الفيجوال يوجد كود لهذا الطلب

ودمت بخير دائما

[ياسر خليل أبو البراء]

أخي أحمد

عمت مساءاً يا صاحبي

عثرت على ملف به الكود لكن يلزم أن يكون لديك برنامج الفجوال بيسك أو ما شابه ذلك

فمن لديه خبرة في هذه اللغة فليتقدم ويحمل الملف المرفق ويفيدنا ...

قد يفيد هذا الملف في التوصل إلى الكود المناسب

عاشق الإكسيل

[ياسر خليل أبو البراء]

إليكم الملف المرفق

convert_date_program.zip

[احمدزمان]

Private Sub Command1_Click()

If Option1.Value = True Then

Text2.Text = ConvertDateString(Text1.Text, 1, 0, "dd/mm/yyyy")

Else

Text2.Text = ConvertDateString(Text1.Text, 0, 1, "dd/mm/yyyy")

End If

End Sub



Function ConvertDateString( _

ByRef StringIn As String, _

ByRef OldCalendar As Integer, _

ByVal NewCalendar As Integer, _

ByRef NewFormat As String) As String



Dim SavedCal As Integer

Dim d As Date

Dim s As String



'// Save VBA Calendar setting to restore when finished

SavedCal = Calendar



'// Convert date to new calendar and format

Calendar = OldCalendar ' Change to StringIn calendar

d = CDate(StringIn) ' Convert from String to Date

Calendar = NewCalendar ' Change to calendar of new string

s = CStr(d) ' Convert to short format String

ConvertDateString = Format(s, NewFormat)



'// Restore VBA Calendar setting

Calendar = SavedCal

End Function

Private Sub Command2_Click()

End

End Sub



Private Sub Form_Load()

If VBA.Calendar = vbCalGreg Then

Option2.Value = True

Else

Option1.Value = True

End If

Text1.Text = Date

End Sub

[احمدزمان]

عمت مساء

اعتقد انها من زمن ابو جهل

احذر

انها من المكروهات

[ياسر خليل أبو البراء]

السلام عليكم أخي أحمد

أسعد الله مساءك ( هكذا لا تكون من المكروهات)

كيف حالك اليوم؟؟

لو سمحت مزيد من التوضيح للكود ، إزاي وفين أكتبه ؟؟معلش أصل أنا لسه بليد في موضوع الأكواد

بليد قوي

عاشق الإكسيل

[احمدزمان]

واسعد الله كل ايامك

وانا تراني ابلد منك

ولكن سوف اعمل محاولة غدا ان شاء الله

حان وقت النوم

و بـ E

good night

لمدرسين الإنجليزي فقط

ههههههههههههههههههههه

[ياسر خليل أبو البراء]

لمدرسين الإنجليزي فقط

خطأ في اللغة العربية!!

لمدرسي الانجليزي وليس لمدرسين الانجليزي

تصبح على خير وطاعة وأمان سلام

Until we meet again. Goodbye

عاشق الإكسيل

[احمدزمان]

خطأ في اللغة العربية!!

لمدرسي الانجليزي وليس لمدرسين الانجليزي

خطأ

لمدرسي اللغة الإنجليزية

===========

اخي الحبيب الغالي ياسر

كما وعدتك as i promes you

حاولت و الحمد النتيجة كما تشاهدها في المرفق

ConvertDate_H_M.rar

[احمدزمان]

طبعا لا ننسا الشكر و الدعاء لصاحب الكود

جزاه الله كل خير

- -- - - - - - - - -

هنا اضفنا عملية حفظ النتائج في نفس الورقة

طيب لية

من شان اذا اردنا نسخها الى اي ملف او خلية اخرى يمكننا ذلك

ConvertDate_H_M.rar

[ياسر خليل أبو البراء]

as i promes you

السلام عليكم أخي أحمد

أسعد الله صباحك

يبدو أنك تريد دروس في اللغة الإنجليزية أيضاً

As I promise you

بارك الله فيك على الملف ، سأعطيك رأيي لأني مشغول الآن

عاشق الإكسيل

[ياسر خليل أبو البراء]

أخي وحبيبي أحمد بك يعقوب

الملف رائع جميل ممتاز

ألا تساعدني في بناء Function بحيث تكون الدالة موجودة في الشيت وليس من خلال فورم

أرجو ألا أكون (ثقيل) مع إن وزني ثقيل ...

تقبل تحياتي العطرة لأحب الأعضاء إلى قلبي

:fff: :fff: :fff:

لو طولت أديك بوكيه ورد مش 7 وردات

عاشق الإكسيل

تم تعديل مايو 23, 2009 بواسطه YasserKhalil

[احمدزمان]

يبدو أنك تريد دروس في اللغة الإنجليزية أيضاً

و الله ياريت

و لكن

التعليم في الكبر كـ النقش على الحجر

at eny way

why

ليه تبغة تحط كوود في الورقة اذاكان التحويل ممكن بدون كود

يعني

عمو اكسل ماقصر

شوف الموضوع الرفق و طبقة و جرب

_________.rar

[سالم شباني]

أنا هنا يا ياسر

العمل الذي أنجزه الأخ أحمد يفي بالغرض

لاتكن أنانيا

سلامي الحار

[ياسر خليل أبو البراء]

لاتكن أنانيا

أحب أن أكون ذلك الشخص الذي تتحدث عنه في السعي وراء المعرفة

سلامي الحار

دا على أساس إن درجة الحرارة عندكم في الجزائر مرتفعة النهاردة

ربنا يخليك على طاعته يا أخ سالم ، وتعيش سالم وتموت سالم وتبعث سالم..آمين

الأخ أحمد يعقوب

بارك الله فيك ، معلش تعبتك معايا

أنا مستعد أعطيك دروس E بالمجان ( 50 جنيه للحصة الواحدة ، وبكدا أكون أكرمتك لإنك حترفض طبعاً عشان توفر فلوسك (My honey!Save your money)

عاشق الإكسيل

[احمدزمان]

أنا مستعد أعطيك دروس E بالمجان ( 50 جنيه للحصة الواحدة ، وبكدا أكون أكرمتك لإنك حترفض طبعاً عشان توفر فلوسك (My honey!Save your money)

طيب ليه الغلط ده - يعني قد كدة شايفني بخيل و لا اية

ياعمو انته تستاهل 1000الف جنية و اكثر كمان عنينا ليك ياباشا

دنته حبيب وغالي

ممكن ما اتقابلناش لا كن المحبة في الله

[ياسر خليل أبو البراء]

طيب ليه الغلط ده - يعني قد كدة شايفني بخيل و لا اية

والله مش قصدي أغلط كل الحكاية إني حبيت أنصحك

:') :') :')

سامحني يا غالي

مش حكررها تاني

-----

إني أحبك في الله حقاً ، وأشعر أن رابط قو ي يربط بيني وبينك ، اللهم أدم حبنا فيك واجمعنا في جنتك.آمين

-----

عاشق الإكسيل

[احمدزمان]

السلام عليكم

لا لا لا

ياعمو انا ما زعلت بس بهظر معاك (اهظر بمعنى دعابة)

المهم

اول درس في اللغة الإنجليزية

ابي تترجملي المهنة التالية

((مشغل خلاطة اسفلت))

مشغل Operator

و الباقي عليك

بجد محتاجها

[ياسر خليل أبو البراء]

ابي تترجملي المهنة التالية

((مشغل خلاطة اسفلت))

مشغل Operator

أخي أحمد يعقوب

آسف إني تأخرت عليك في الرد

الإجابة هي :

ASPHALT MIXTURE OPERATOR

حنعتبر الحصة دي مجاني لأغلى الحبايب

------------------------

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

عاشق الإكسيل