طلب معادلة تاريخ

[ابو اياد ( الاسيوطى )]

السلام عليكم

جميع اعضاء المنتدى

 

لى طلب صغير 

 

هل توجد معادلة للتاريخ الفعلى يمكن ان يصل اليها اكسل ويقارنها بتاريخ جهاز الكمبيوتر

 

مع العلم ان تكون غير 

TODAY=

 

فهى تأتى بتاريخ جهاز الكمبيوتر وهى الجانب الاخر من وجه المقارنة

 

لتحقيق اكسل من ان التاريخ الفعلى هو تاريخ جهاز الكمبيوتر من عدمة

تم تعديل يونيو 12, 2013 بواسطه assail_hawk

[ابو اياد ( الاسيوطى )]

إليكم مرفق حتى يتضح المطلوب

 

يمكن ان يكون الحل بكود vba

project acc gf.rar

[طارق عبد الحكيم]

السلام عليكم 

 

يمكنك استعمال دالة    =NOW()  إذا أردت

[ابو اياد ( الاسيوطى )]

الاخ طارق هى لا تفى بالغرض

[ابو اياد ( الاسيوطى )]

ان كان ليس لها حل او لم توجد معادلة او كود ارجو الرد من اى عضو بعدم الافادة فى الموضوع

ولكم جزيل الشكر

[طارق محمود]

أخي العزيز

 

يوجد حل مضبوط ولكنه طويل نسبيا كالتالي

 

لابد أن يكون الجهاز متصل بالنت (أو علي الأقل وقتما تريد تحديث التاريخ)

1. خصص ورقة في الملف بعيدا عن ورقات عملك (في آخر الملف مثلا)
2. من خارج الإكسل ابحث (بالجوجول مثلا) عن أي موقع يكون به تاريخ / وقت متجدد
3. أنا وجدت لك مثلا هذا الرابط للتاريخ والوقت في مصر : http://www.timeanddate.com/worldclock/city.html?n=53
4. وتستطيع من نفس الرابط السابق ضبط البلد التي تريد بها التوقيت وسيتغير في الرابط فقط الرقم الأخير 53 
5. المهم تحفظ / تنسخ هذا الرابط الذي تريده
6. وفي الإكسل في تلك الورقة التي خصصتها لذلك ، قف علي الخلية A1 مثلا
7. من قائمة بيانات (Data) إختر Get External Data >> From Web
8. ستظهر لك قائمة بأعلاها العنوان Address الذي تريد ربط الإكسل به
9. إعمل لصق Paste للعنوان الذي حفظناه في الخطوة (5)
10. حسب سرعة النت لديك ستظهر الصفحة بالنت التي تخص العنوان وسيظهر معها أسهم صفراء
11. كليك علي سهم البيانات التي تريد إستيرادها من النت
12. كليك علي Import أسفل القائمة
13. بعد ثولني ستجد اللبيانات التي كانت بصفحة النت ، عندك بورقة الإكسل
14. إذا كنت بدأت العملية  من الخلية A1 (الخطوة 6) فستجد الوقت والتاريخ بالخلية B5
15. يمكنك ربط أو مقارنة ماتريد في باقي الملف بتلك الخلية B5
16. للتحديث في أي وقت بعد ذلك (لابد أن تكون متصل بالنت) ثم كليك بيمين الماوس علي الخلية A1 وإختر آخر خيار بالأسفل Refresh

 

مرفق ملف وبه الوقت/التاريخ بعد عمل الخطوات السابقة

الوقت_التاريخ.rar

[ابو اياد ( الاسيوطى )]

واخيرا وليس آخرا 

أ / طارق محمود مرحبا بك انتظرك كثيرا للرد فى مشاركات اخرى سابقة 

مرحبا بك وان طال انتظارى لك ؟

 

الاخ الكبير أ / طارق

 

هذا اقتراح جميل اول مرة أراه صراحة لكن الاجهزة التى سيعمل عليها الملف غير متصلة بالنت

 

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

ومرة اخرى مرحبا بك

[طارق محمود]

أخي الكريم

إسأل نفسك أولا: ماهو المرجع الذي تريد الرجوع إليه؟

مثلا في الحل الذي يعتمد علي النت يوجد صفحات علي النت بها تاريخ ووقت متجددين

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

أم عندك ملف (ولو غير إكسل) علي الجهاز به التاريخ مضبوط

 

لابد أن تحدد المرجع أولا

ثم يأتي الحل إن شاء الله

[ابو اياد ( الاسيوطى )]

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

اجتهاد منى ليس إلا هو ان عند تنصيب نسخة ويندوز يقوم الجهاز بضبط التاريخ والوقت معا من تلقاء نفسة بناء على تحديد مكان الاقامة

فهل يرتقى عمل الكود ليصل الى مكان الاقامة وبالتالى يعرف الكود الوقت والتاريخ الفعليين (التاريخ الحقيقى والوقت )
يتم تحديد مكان الاقامة مثلا مصر القاهرة سوف يتم تحديد الوقت والتاريخ اتوماتيكيا

وحتى اذا تحايل المستخدم بتغير الوقت والتاريخ ليدخل ضمن فترة الصلاحية مرة اخرى

وبهذا نكون قد وصلنا الى تحديد المرجع

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

لك من افضل تحية وتقبل سلامى

تم تعديل يونيو 17, 2013 بواسطه الاب الروحى

[طارق محمود]

عند تنصيب نسخة ويندوز يقوم الجهاز بضبط التاريخ والوقت معا من تلقاء نفسة بناء على تحديد مكان الاقامة

 

حتي هذه لابد أن تكون متصل بالنت

وإلا كيف سيحدد الجهاز الوقت؟

[ابو اياد ( الاسيوطى )]

 

عند تنصيب نسخة ويندوز يقوم الجهاز بضبط التاريخ والوقت معا من تلقاء نفسة بناء على تحديد مكان الاقامة

 

حتي هذه لابد أن تكون متصل بالنت

وإلا كيف سيحدد الجهاز الوقت؟

 

 

الاستاذ الفاضل / طارق

لا يشترط ان يكون الجهاز متصل بالنت لتحديد الوقت والتاريخ فى تنصيب الويندوز فهو يعتمد اعتماد كلى على المكان فقط دون مرجع اخر

[طارق محمود]

هذا غير ممكن ياأخي العزيز

 

منذ فترة بسيطة قام الـ IT في الشركة بتنصيب الويندوز لجهاز كان قديم ومركون ووجدنا التاريخ فيه 1980 أو شيء من هذا القبيل

 

عند شراء جهاز جديد ، يكون حصل له (مسبقا لدي البائع - الذي غالبا يكون الموزع بنفس البلد)  تنصيب مبدئي للأساسيات (قبل الويندوز) ومنها التاريخ

وإذا ظل مغلق لفترة طويلة فتفرغ البطارية الصغيرة الموجودة داخل كل جهاز والتي تحتفظ بهذا التنصيب

 

ومن حيل الـ IT إذا كان علي الجهاز باسوورد ، بيرفعوا هذه البطارية ويفتحوا الجهاز ثم يعيدوا تركيبها

[ابو اياد ( الاسيوطى )]

وما الحل بارك الله فيك ؟

 

هل يمكن اغلاق الملف اذا كان تاريخ جهاز الكمبيوتر غير الفعلى ( الحقيقى )

 

بمعنى ان المستخدم لاحظ ان فترة الصلاحية انتهت فقرر التحايل على الملف بتأخير تاريخ جهاز الكمبيوتر

 

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

 

اما اذا كان التاريخ مضبط فهو فى فترة انتهاء الصلاحية

 

ولك منى جزيل الشكر والعرفان

 

أ / طارق

تم تعديل يونيو 17, 2013 بواسطه الاب الروحى

[ابو اياد ( الاسيوطى )]

اقترح حل اخر هل يمكن تشغيل خاصية mark as final بعد تاريخ معين ايضا اذا اكتشف المستخدم هذا سوف يأخر تاريخ الكمبيوتر

وعلية يقوم ملف أكسل بالتنبية علية مراجعه اعدادات ضبط التاريخ لأن الملف لن يفتح إلا اذا كانت منضبطة ( التاريخ الفعلى الحقيقى = تاريخ جهاز الكمبيوتر )

 

انا عارف ان طلب صعب والاخ عبد الله المجرب تعب معايا برضوا ولكن دائما هناك بصيص امل !!!!!!!!!!!!

لازلنا نبحث عن حل والله الموفق

 

كيف الحال بالنسبة للبرامج التى لا تعمل إلا اذا كانت اعدادات التاريخ منضبطة حتى بعد مضى المدة تكون منتهية ( البرامج التجريبية بمدة )

 

ارجو ان لا اكون اثقلت عليك استاذنا الفاضل / طارق محمود

بارك الله فيك

[عبدالله المجرب]

 

 

كيف الحال بالنسبة للبرامج التى لا تعمل إلا اذا كانت اعدادات التاريخ منضبطة حتى بعد مضى المدة تكون منتهية ( البرامج التجريبية بمدة )

 

يمكن عمل هذا اذا تم وضع تاريخ بداية العد (تاريخ اصدار البرنامج) داخل الكود يتم اعتباره انه التاريخ الحقيقي للملف وليس لجهاز 

لان طرق الحصوص على تاريخ واقعي يمثل اليوم الذي انت به لا بد من وجود شبكة ويمكن التغلب عليها بفصل النت (مع انه ممكن جعل الكود يفحص الشبكة) لكن بدل ان تدخل في متاهات كثيرة اجعل تاريخ الملف داخل الكود واعط فترة صلاحية للملف كما تم عمله مع طلبك السابق 

والله اعلم

[ابو اياد ( الاسيوطى )]

الاخ عبد الله المجرب مرحبا

اخى مجرب نعم معك ان الملف السابق نجح فى تنفيذ الفكرة 

ولكن كان من السهل على المستخدم كسرة بتأخير تاريخ الكمبيوتر

 

المطلوب ان يكون التاريخ دخل الكود اوك

لابد ان يكون هناك مرجع محدد كما ذكر استاذ / طارق

وهذا المرجع هو الفيصل فى انهاء فترة الصلاحية نريدة ان يكون داخل الكود

 

ولايتأثر اذا تغير تاريخ الكمبيوتر على يد المستخدم

 

رجائى الوحيد هو ان اذا تعدى الملف تاريخ الصلاحية 

 

1- اما ان تكون الخلايا كلها ريد اونلى ولا يمكن للمستخدم ان يرجع الى فترة الصلاحية بتأخير تاريخ جهاز الكمبيوتر

2- او اذا كان التاريخ غير منضبط ( ليس فعلى اى ليس حقيقى ) يتم التنبية على المستخدم بضبط التاريخ لدية واعلامة ان الملف لن يعمل إلا بعد هذا الضبط ثم يغلق الملف

 

ولكم منى جزيل الشكر

[ابو اياد ( الاسيوطى )]

الاخوة الاعضاء مطلوبى قريب جدا من هذا الموضوع 
قرأت النشرة الدورية رأيت هذا الموضوع فوجدتة تقريبا ما أحتاجة

مع فارق بسيط بدل معادلة NOW يتم استخدام معادلة TODAY

تجميد تاريخ المعادلة تجميد نهائى اى لا يتغير مرة اخرى بعد تعدية لتاريخ فى الخلية الاخرى

http://www.officena....showtopic=41226

[ابو اياد ( الاسيوطى )]

الاستاذ عبد الله المجرب ارجو ان يكون التنفيذ على الملف المرفق فى المثال المرفق

بالموضوع طلب معادلة تاريخ

[عبدالله المجرب]

السلام عليكم 

جرب المرفق 

لو أخرت تاريخ الكمبيوتر (لن يعمل الملف) 

تاريخ إنتهاء الملف 28/6/2013

وضعت فترت العد من 1-3 أيام بسبب أيام الإجازات (اي ان الملف لو بقي يومين مغلق وفتح سيتم تعديل تاريخ المرجع الى التاريخ الجديد ولكن لو أكثر من ثلاثة أيام سيتم إعتبار الملف منتهي 

 

salary finished.rar

[ابو اياد ( الاسيوطى )]

اخ عبد الله المجرب

 

لا تزال المشكلة عالقة لم يتم تجميد التاريخ بعد تعدية لفترة الصلاحية

اليك مرفق ملف من اعداد ا / طارق محمود كان هو حل فى احدى الموضوعات

وفية خليتين احداها معدلة now و الاخرى اذا تم ملئها تجمد تاريخ معادلة now 

 

وانا اريد فقط تبديل المعدلة لتصبح today بدلا من now 

 

ويتغير الشرط من ملىء الخلية الى تعدية تاريخ الخلية التى بها تاريخ انتهاء فترة الصلاحية

 

فبعد تعدى تاريخ المعادلة لتاريخ الصلاحية يتم تجميد عمل المعادلة

 

اى لن تعمل حتى لو تم تغير تاريخ الكمبيوتر

 

ولك جزيل الشكر على مجهودك ومثابرتك معى

 

واليك المرفق وعنوان الموضوع وارجو ان يكون التنفيذ على مرفق فى بداية موضوعى طلب معادلة تاريخ

 

واليك ايضا مشاركة أ / طارق محمود + الكود

 

طارق محمود

تاريخ المشاركة 21 مارس 2012 - 12:00 م

السلام عليكم

أخي العزيز

في المرفق ، الخلية A1 بها الدالة now
والخلية الصفراء B2 إذا عند ملئها سيتحول قيمة ، الخلية A1 إلي قيمة فقط
وإذا حذفت محتويات الخلية الصفراء B2 ، تعود الدالة now للخلية A1

الكود هو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
[A1].Value = [A1]
If [B2] = "" Then [A1].FormulaR1C1 = "=NOW()"
End Sub

 

تجميد الوقت.rar

الملف الذى اريد التنفيذ علية.rar

تم تعديل يونيو 19, 2013 بواسطه الاب الروحى

[عبدالله المجرب]

في ملف الأستاذ طارق 

جرب أن تمسح البيانات من الخلية الصفراء ولاحظ النتيجة

[ابو اياد ( الاسيوطى )]

جربت مسح البيانات من الخلية الصفراء ووجدت ان معادلة الوقت عادت الى العمل مرة اخرى

 

وهذا ما اريدة بالظبط

 

فمسح بيانات الخلية الصفراء يقابلة فى ملفى ان تاريخ الصلاحية اكبر من تاريخ اليوم

فأذا تعدى تاريخ اليوم تاريخ الصلاحية تم تجميد المعادلة تاريخ اليوم

 

حتى  اذا قام المستخدم بتغير تاريخ الكمبيوتر

 

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

 

بارك الله فيك اخى عبد الله فأنا ارى ان كود أ/ طارق بسيط

 

وانا اريد تعديل بسيط علية ليعمل بمعادلة تاريخ بدل الوقت

 

ووفقنا الله الى ما فية الخير

 

ومشكور اخى عبد الله على مجهودك وصبرك الكبير عليا