[ مُجاب ] تاريخ الميلاد كاملاً بالأحرف

[نصرالدين]

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

أبحث عن الكود بلغة وينداف (نسخة 25)
هل من معين بعد الله؟

شكرًا​

 

[MinaMina is verified member.]

السلام عليكم اخي
وضح لي ماتحتاجه بالضبط جزاك الله خيرا

 

[MinaMina is verified member.]

السلام عليكم اخي
وضح لي ماتحتاجه بالضبط جزاك الله خيرا

اذا فهمت بشكل صحيح عندك date data محتاج تعرضها ك string
هنا عندي champ de saise نوعه date هذا مايقوم بعرضه بعد ان ادخلت لكود التالي

يقوم بعرض التاريخ بشكل عادي

اعداداته :

اذا اردت النتيجة :

قم بضبط الاعدادات كالاتي :

 

[نصرالدين]

السلام عليكم اخي
وضح لي ماتحتاجه بالضبط جزاك الله خيرا

السلام عليكم
أدخل تاريخ 02/08/2024 وأرغب في عرضه على هذا الشكل deux aout deux mille vingt quatre أي التاريخ يكون كاملا بالأحرف
شكرا جزيلا

 

[MinaMina is verified member.]

السلام عليكم
أدخل تاريخ 02/08/2024 وأرغب في عرضه على هذا الشكل deux aout deux mille vingt quatre أي التاريخ يكون كاملا بالأحرف
شكرا جزيلا

نعم اخي هي لا توجد built-in function بس تستطيع استعمال function الموجودة تفضل

MaDate est une Date = DateSys()
JOURS est un entier = MaDate..Jour
Années est un entier = MaDate..Année

JourEnText est une chaîne = NombreEnLettres(JOURS)
AnnéeEnText est une chaîne =  NombreEnLettres(Années)

MoiMême = DateVersJourEnLettre(MaDate) + " " + JourEnText + ...
" " + DateVersMoisEnLettre(MaDate) +" " + AnnéeEnText

بالتوفيق يارب

 

[نصرالدين]

اذا فهمت بشكل صحيح عندك date data محتاج تعرضها ك string
هنا عندي champ de saise نوعه date هذا مايقوم بعرضه بعد ان ادخلت لكود التالي مشاهدة المرفق 12124
يقوم بعرض التاريخ بشكل عادي
مشاهدة المرفق 12125
اعداداته :

مشاهدة المرفق 12127
اذا اردت النتيجة :
مشاهدة المرفق 12128
قم بضبط الاعدادات كالاتي :
مشاهدة المرفق 12129

السلام عليكم
في مثالك الشهر وحده يعرض بالأحرف لكن اليوم والسنة يبقى كما هو، كيف أستطيع كتابة التاريخ كاملا بالأحرف٠
شكرا جزيلا

 

[MinaMina is verified member.]

السلام عليكم
في مثالك الشهر وحده يعرض بالأحرف لكن اليوم والسنة يبقى كما هو، كيف أستطيع كتابة التاريخ كاملا بالأحرف٠
شكرا جزيلا

نعم اخي شوف الاجابة الاخيرةتجد فيها الحل

نعم اخي هي لا توجد built-in function بس تستطيع استعمال function الموجودة تفضل

مشاهدة المرفق 12170
مشاهدة المرفق 12171

MaDate est une Date = DateSys()
JOURS est un entier = MaDate..Jour
Années est un entier = MaDate..Année

JourEnText est une chaîne = NombreEnLettres(JOURS)
AnnéeEnText est une chaîne =  NombreEnLettres(Années)

MoiMême = DateVersJourEnLettre(MaDate) + " " + JourEnText + ...
" " + DateVersMoisEnLettre(MaDate) +" " + AnnéeEnText

بالتوفيق يارب

 

[نصرالدين]

نعم اخي هي لا توجد built-in function بس تستطيع استعمال function الموجودة تفضل

مشاهدة المرفق 12170
مشاهدة المرفق 12171

MaDate est une Date = DateSys()
JOURS est un entier = MaDate..Jour
Années est un entier = MaDate..Année

JourEnText est une chaîne = NombreEnLettres(JOURS)
AnnéeEnText est une chaîne =  NombreEnLettres(Années)

MoiMême = DateVersJourEnLettre(MaDate) + " " + JourEnText + ...
" " + DateVersMoisEnLettre(MaDate) +" " + AnnéeEnText

بالتوفيق يارب

جزاك الله كل خير،الكود يعمل،هذا هو الحل الذي كنت أبحث عنه، مشكور أخي الفاضل.

 

[نصرالدين]

السلام عليكم
أواجه مشكل أخر، كيف لي أن أتعامل مع التاريخ المفترض فمثلا إذا أدخلت التاريخ بهذا الشكل 00/00/1963 كيف يمكنني عرضره بهذه الصفة"مفترض في 1963" هل التاريخ يجب أن يكون على شكل string مثلا ؟
شكرا أخي الفاضل

 

[MinaMina is verified member.]

السلام عليكم
أواجه مشكل أخر، كيف لي أن أتعامل مع التاريخ المفترض فمثلا إذا أدخلت التاريخ بهذا الشكل 00/00/1963 كيف يمكنني عرضره بهذه الصفة"مفترض في 1963" هل التاريخ يجب أن يكون على شكل string مثلا ؟
شكرا أخي الفاضل

وعليكم السلام ورحمة الله تعالى وبركاته
اولا محتاجة اعطيك بعض الملاحظات :
اذا كنت ستسعمل نفس function المرة الاخيرة فانت محتاج الى champs de saise de type texte اذا كنت تسعمله de type date لن يقبل اي string وهذا يترتب عليه بعض الاشياء
منها :
اذا كان ادخال التواريخ بشكل يديوي اي انك لا تسعمل calendar او حتى champs de type date فانت لت تستتفيد من constroles الموجودة كادخال تاريخ غير صالح (الشهر يتجاوز 12 او اليوم يتجاوز 31... وغيره ) وبذلك ستحتاج ان تقوم بنفسك بكل controles من المفروض ان تقام على date والا سينتج عليه ادخال تواريخ مغلوطة بشكل كبير

وهذا الكود الذي تحتاجه بالنسبة للتاريخ المفترض :

MaDate        est une Date    =ChaîneVersDate(SAI_Date)
JOURS        est un entier    = MaDate..Jour
Mois        est entier      = MaDate..Mois
Années        est un entier    = MaDate..Année
JourEnText    est une chaîne    = NombreEnLettres(JOURS)
AnnéeEnText    est une chaîne    =  NombreEnLettres(Années)

//AnnéePresumer est une chaîne

SI JOURS <> 0 ET Mois <> 0 ALORS
   
    MoiMême = DateVersJourEnLettre(MaDate) + " " +  JourEnText + ...
    " " + DateVersMoisEnLettre(MaDate) +" " + AnnéeEnText

SINON
   
      // année en lettre = AnnéePresumer = NombreEnLettres(Droite(SAI_Date,4))
      MoiMême = "présumer en " + Droite(SAI_Date,4)
         
FIN

عند ادخال التاريخ:

سيعطيك :

اما اذا كنت تريد السنة بالحروف قم باستبدال الكومنت الاخير الذي وضعته لك فقط