الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل التاريخ لا يعمل ! .. لماذا ؟

مغلق
بدأه شبه جسم في 28 نوفمبر 2006 · 3 رد · 606 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

يا أخوان عندي كود بسيط ، لكن ما أدري ليش ما يشتغل !!!!

Private Sub Form_Load()
Text1 = Format(Date, "dd / mm / yyyy")
End Sub

Private Sub Command1_Click()
Calendar = vbCalHijri
Text2 = Format(Text1, "dd/mm/yyyy")
End Sub

ليش ما يتحول التاريخ ميلادي في Text1 إلى تاريخ هجري ؟

ممكن تفهموني السبب ؟

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#2 
Private Sub Command1_Click()
Calendar = vbCalHijri
Text2 = Format(Date, "dd/mm/yyyy")
End Sub
#3

ألف شكر أخوي على ردك الطيب

لكن الكود إللي أرفقته يغير تاريخ اليوم ، في حين أنني أريد تغيير التاريخ الموجود في Text1

هذي هي المشكلة !

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#4

اخي لازم يكون النص داخل متغير من نوع تاريخ وهذا مثال :

dim TheDate as Date

TheDate = Text1.Text

Calendar = vbCalHijri

Text2 = TheDate

هذا الموضوع مغلق.

مواضيع مشابهة