[sendbad100]

(21-12-16, 02:52 AM)عمور2016 كتب :

(20-12-16, 03:54 PM)sendbad100 كتب : هل تقصد

من  12/12/2017  الى رقم  12122017   يعني ازالة /  وتحويلة الى رقمي  ام ماذا

سؤال ممتاز ممكن الاجابة يا اخ sendbad100   تحويلة الى رقمي

تفضل اخي الكريم

كود :

Dim n As Long, d As Date
 d = Date
 n = Val(Mid(Format(d, "dd/MM/yyyy"), 1, 2) & Mid(Format(d, "dd/MM/yyyy"), 4, 2) & Mid(Format(d, "dd/MM/yyyy"), 7, 4))
MsgBox n