'اسم الوظيفة: GetMyTimeNumber()
'الوظيفة: توليد عدد صحيح من الوقت
'المعلمة: lx ---- نوع العدد الصحيح للوقت
' lx=0 إلى الدقيقة lx=1 إلى الساعة lx=2 إلى اليوم lx=3 إلى الشهر
'قيمة الإرجاع: القيمة الصحيحة لوقت الإنشاء (الحد الأدنى إلى الدقائق)
'مثال:
'********************************************************************************************************************************************************************************* *
الوظيفة العامة GetMyTimeNumber(lx)
إذا lx=0 ثم GetMyTimeNumber=Year(Date)*12*30*24*60+Month(Date)*30*24*60+Day(Date)*24*60+Hour(Time)*60+Minute(Time) )
إذا lx=1 ثم GetMyTimeNumber=Year(Date)*12*30*24+Month(Date)*30*24+Day(Date)*24+Hour(Time)
إذا lx=2 ثم GetMyTimeNumber=Year(Date)*12*30+Month(Date)*30+Day(Date)
إذا lx=3 ثم GetMyTimeNumber=Year(Date)*12+Month(Date)
وظيفة النهاية