تحويل التاريخ ليوم

[جوزيف55]

عايز امعادله لتحويل التاريخ ليوم

 

27-9-2014

 

المعادله تظهر السبت

[محمد الريفى]

تفضل اخى الكريم

او تابع هذا الموضوع ربما تجد مايفيدك

 

 http://www.officena.net/ib/index.php?showtopic=55650

aaa.rar

[جوزيف55]

شكرا

 

بس انا عايز اسم اليوم مثل السبت او الاحد الخ....

[محمد الريفى]

تفضل اخى الكريم

aaa.rar

[شوقي ربيع]

السلام عليكم

الشكر موصول للاخ محمد الريفي

لاكن هذا الحل لا ينفع في نسخ الويندو و الاوفيس الفرنسية

لذى برمجة لكم هته الدالة لجلب يوم تاريخ بالعربي

Option Explicit

Function NameJour(MyDate As Date)
Dim NamDay As String
Dim MyWeekDay As Byte, MyDaye As Byte
MyDaye = Day(MyDate)
MyWeekDay = Weekday(MyDate - 1 + MyDaye)

Select Case MyWeekDay
    Case 1: NamDay = "الاحد"
    Case 2: NamDay = "الاثنين"
    Case 3: NamDay = "الثلاثاء"
    Case 4: NamDay = "الاربعاء"
    Case 5: NamDay = "الخميس"
    Case 6: NamDay = "الجمعة"
    Case 7: NamDay = "السبت"
End Select
NameJour = NamDay
End Function

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

اسم الدالة يكون NameJour

تحياتي

Nom de Jour.rar

[سليم حاصبيا]

السلام عليكم

عسى ان ينال اعجابك

عذراً استاذ شوقي لم ارَ مشاركتك الا بعد تحميل خاصتي

ايام بالعربي.rar

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

ماذا عن هذه المعادلة ؟؟ ألا تؤدي الغرض أخي الحبيب

=TEXT(A1;"dddd")