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

[ابوخليل]

انتظر النتيجة اتمنى تكون صحيحة

[Foksh]

10 دقائق مضت, ابوخليل said:

جرب هذه

 

[ابو البشر]

السلام عليكم ورحمة الله وبركاته
مرحبا بالجميع
الاوفيس 2016-32Bit
النسخة المستخدمة هي tshfeerAB

النتيجة ::::::::::::::::::::::::::::::

 

[ابوخليل]

 

شكرا ابا البشر .. بشرك الله بما يسرك

 

ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة 

استاذ فادي قد تكون المشكلة لديك من دالة التاريخ المصنوعة

لأني صنعتها من اجل اختلاف تنسيقات التاريخ في الاجهزة ص / م  أو   am pm

فجعلت الساعات بنظام الـــ  24

انا اتعامل مع حقل نصي ثم احوله لتاريخ

تفضل هذه هي الفكرة جرب احتمال 99% تعمل عندك ما لم يتم التحزيم

القاء نظرة على المرفق فقد تجدون لي شيئا افضل

Database1.accdb

[Foksh]

57 دقائق مضت, ابوخليل said:

ولكن مع الاستاذ @Foksh ما زالت المعركة قائمة 

اعتذر عن التأخر بالرد ، ولكن بسبب المباراة انشغلت مع بعض الزبائن في المحل 

على العموم ، أخشى أن اعطي نفسي كرت أصفر من التجارب حالياً ، لأن النتيجة غير سارة 😅 .. انظر

 

[Foksh]

بعد الاطلاع على الملف المرفق المفتوح ، اعتقد أن اعتماد التاريخ والوقت كقيمة نصية هو ما يسبب هذه المشكلة ..

فعند تعديل الدالة في المديول بهذا الشكل للتجربة ..

Public Function vNow() As Date
    Dim currentTime As Date, currentdate As Date
    currentTime = Time()
    currentdate = Date

    vNow = currentdate + TimeValue(Format(currentTime, "hh:nn:ss"))
End Function

 

كانت النتيجة في النموذج :-

 

السبب هو أن هذا الناتج سيكون عبارة عن نص كقيمة = 

12/01/2025 14:33:20

 

 

اقصد انه ناتج عن الجزء التالي :-

i = Format(currentTime, "HH:mm:ss")
ii = Format(currentdate, "dd/mm/yyyy")
vNow = ii & " " & i

 

[ابوخليل]

طيب ما يهم العرض يكون نص او تاريخ .. جرب اعرضه مباشرة كنص .. تاريخ طويل  .. لا مشكلة

وانظر هل ستظهر الايام المتبقية ؟