21-02-20, 08:03 PM
(آخر تعديل لهذه المشاركة : 21-02-20, 08:11 PM {2} بواسطة alsalamoni.)
(21-02-20, 07:32 PM)العيدروس كتب : بارك الله فيك على المعلومات المفيدة و جزاك خير الجزاء
العفو اخي
(21-02-20, 07:57 PM)سعود كتب : صدق من قال ان العلم بحر.
كود من ابسط مايكون لم اعرفه الا اليوم!
ابسط كود يمكن استخدامه لتسمية الملفات باسماء لا تتكرر على ما اظن.
بارك الله فيكم جميعا.
العفو اخي
هو بالفعل لا يتكرر لانه يحسب التاريخ مع الوقت بدقة 1000/ثانية
جرب هذا الكود وانظر ما يظهر في عنوان الفورم
كود :
Do
Me.Text = Now.Ticks
Application.DoEvents()
Loopلو اطلعت على DataTypes فستجد ان حجم Date وDateTime هو 8 بايت، وهو بنفس حجم Long
Data Type Summary
ولو اردته لاسماء الملفات بطول اقل حوله الى Hex مثل
كود :
Dim d As Long = Hex(Now.Ticks)