تاريخ عشوائي بشرط

[salimhebboul]

تاريخ عشوائي  بشرط  

 

103.xlsx

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

جرب هذا الماكرو

Option Explicit
Option Base 1

Sub rand_date()
Dim my_date
Dim t
Dim arr
arr = Array("الأحد", "الإثنين", "الثلاثاء", _
"الأربعاء", "الخميس", "الجمعة", "السّبت")
1:
my_date = Application.Min([d3], [d5]) - 400 _
+ Int(Rnd() * 400) + 1
 t = Weekday(my_date)
 If t > 5 Then
 GoTo 1
 End If
  Range("f3") = my_date
  Range("g3") = arr(t)
  Erase arr
End Sub

الملف

 

 

103_سليم.xlsm

[Ali Mohamed Ali]

جزاك الله كل خير استاذ سليم كود رائع

[أحمد يوسف]

بارك الله فيك استاذى الكريم 

ولكنى اعتقد ان الأخ صاحب المشاركة يريد توليد تاريخ عشوائى بشرط الا يقل عن التاريخ الأول والثانى ولا يزيد او يتجاوز تاريخ اليوم

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

 

[salimhebboul]

التاريخ  هنا  في  2017 و انا اريد ان يكون بعد اقرب تاريخ 

تم تعديل ديسمبر 24, 2018 بواسطه salimhebboul

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

تم معالجة الامر في هذا الملف الجديد (يوجد معادلة ايضاً)

Option Explicit
Option Base 1

Sub random_date()
Dim my_date
Dim t
Dim arr
Dim val%
arr = Array("الأحد", "الإثنين", "الثلاثاء", _
"الأربعاء", "الخميس", "الجمعة", "السّبت")
1:
val = Application.Max([d3], [d5]) - Application.Min([d3], [d5])
my_date = Application.Max([d3], [d5]) - Int(Rnd() * val + 1)
 t = Weekday(my_date)
 If t > 5 Then
 GoTo 1
 End If
  Range("f3") = my_date
  Range("g3") = arr(t)
  Erase arr
End Sub

 

 

103_ salim .xlsm

[salimhebboul]

التاريخ  هنا تجاوز التاريخ الثاني 

يجب ان يكون بين اقرب تاريخ وتاريخ اليوم 

 

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

 من المعروف   ان اقرب تاريخ من تاريخ اليوم هو  التاريخ الثاتي

[salimhebboul]

نعم هو اقرب تاريخ  20/09/2018  و الكود قام باستخراج تاريخ  قبله  22/05/2018

 

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

12 دقائق مضت, salimhebboul said:

نعم هو اقرب تاريخ  20/09/2018  و الكود قام باستخراج تاريخ  قبله  22/05/2018

 

و ما الفائدة من هذا 

ادرح فوراً التاريخ الثاني وانتهى الامر