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

هل يوجد أداة تعرض التاريخ مثل MonthView ولكن بالعر

بدأه aburhmah في 27 سبتمبر 2004 · 5 رد · 983 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل يوجد أداة تعرض التاريخ مثل MonthView ولكن بالعربي

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

فهل يمكن جعلها تعرض التاريخ بالهجري.

وإذا لم يمكن ذلك فهل هناك أداة أخرى تحل المشكلة

وشكراً

#2

ويمكنك تحميل الملف من هنا

Hijri Date

أو دخول الموقع من هنا

My Webpage

وتفضل هذه هي إجراءات التحويل

function GregToHijri(Date: TDateTime): String;
function HijriToGreg(Date: String): TDateTime;
function ReverseHijri(Date: String): String;

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#3

اخ HnHn ماهذا الكود :) هل يمكنك شرحه لي من فضلك .

تحياتي لك

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#4

اشكرك أخي HnHn على تفاعلك مع الموضوع ولكن للأسف. الأداة التي أقصدها موجودة في الفيجوال بيسك 6 وليس في لغة الدلفي.

فإن كان هناك حل في هذا الوضوع فأرجو من الأخوة إن لا يبخلوا علينا.

#5

طبعا اخي prof_1982 هذا الكود

function GregToHijri(Date: TDateTime): String;
function HijriToGreg(Date: String): TDateTime;
function ReverseHijri(Date: String): String;

هو عبارة عن الضيغة العام للكود الذي أدرجته الآن وهو

Calendar = 1
Text.Text = Day(Now) & "/" & Month(Now) & "/" & Year(Now)

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

طبعاً

Calendar = 1 للعربية

Calendar = 0 للأنجليزية

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6
HnHn كتب:
ويمكنك تحميل الملف من هنا

Hijri Date

أو دخول الموقع من هنا

My Webpage

وتفضل هذه هي إجراءات التحويل

function GregToHijri(Date: TDateTime): String;
  function HijriToGreg(Date: String): TDateTime;
  function ReverseHijri(Date: String): String;

please re upload :(   :wacko:

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…