منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
(UnixDate To date And date To Unix Date) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : (UnixDate To date And date To Unix Date) (/showthread.php?tid=25486)

(UnixDate To date And date To Unix Date) - سعود - 23-06-18

السلام عليكم ورحمة الله وبركاته

وجدت الحل
Date to unixdate
PHP كود :
   Public Function ToTimeStamp(ByVal target As DateTime) As Integer
        Dim [date] As New DateTime(1970, 1, 1, 0, 0, 0, target.Kind)
        Dim hubspotTimestamp As Integer = System.Convert.ToInt64((target - [date]).TotalSeconds)
        Return hubspotTimestamp '* 1000
    End Function 
UnixDate to date
PHP كود :
Public Function UnixToDateTime(ByVal strUnixTime As String) As DateTime
        Dim nTimestamp As Double = strUnixTime
        Dim nDateTime As System.DateTime = New System.DateTime(1970, 1, 1, 0, 0, 0, 0)
        nDateTime = nDateTime.AddSeconds(nTimestamp)
        Return nDateTime
    End Function 
 وهذه كما اضافها الاخ Done بارك الله فيه وفي جميع الاخوة
كود :
Private Function TimeToNumber(ByVal dt As DateTime) As Long
       Return dt.Subtract(New Date(1970, 1, 1)).Ticks
End Function

Private Function LongToTime(ByVal L As Long) As DateTime
Return New Date(L).AddTicks(New Date(1970, 1, 1).Ticks)
End Function


RE: (UnixDate To date And date To Unix Date) - Done - 27-07-18

PHP كود :
REM تحويل الوقت الى رقم
Dim myTimeStamp As Long = Date.UtcNow.Subtract(New Date(1970, 1, 1)).Ticks

REM REM تحويل الرقم الى وقت
Dim myDateTime As Date = New Date(myTimeStamp).AddTicks(New Date(1970, 1, 1).Ticks) 


RE: (UnixDate To date And date To Unix Date) - سعود - 27-07-18

بارك الله فيك
ممكن معنى  REM

RE: (UnixDate To date And date To Unix Date) - حريف برمجة - 27-07-18

(27-07-18, 01:36 AM)سعود كتب : بارك الله فيك
ممكن معنى  REM

Rem = '

عند كتابة كلام او شرح ممكن تجعلة باللون الأخضر بإضافة ' او كلمة Rem

RE: (UnixDate To date And date To Unix Date) - Abou Eman - 27-07-18

بيعمل ايه الكود ده مش فاهم

RE: (UnixDate To date And date To Unix Date) - elgokr - 27-07-18

(27-07-18, 01:36 AM)سعود كتب : بارك الله فيك
ممكن معنى  REM

بخصوص الكلمة هى لجعل السطر عبارة عن وصف كما هو موضح بالتالى
كود :
' هنا وصف الكود

REM هنا وصف الكود


(27-07-18, 03:57 AM)%Eman% كتب : بيعمل ايه الكود ده مش فاهم


بخصوص الكود الذى وضحع الاخ سعود و الاخ Done


هو عبارة عن تحويل التاريخ والوقت الى رقم
بحيث يمكن الاستخدام كا توليد ارقام بدون تكرار
حيث حيث ان الارقام عبارة عن اجزاء من الثانية
حيث ان الثانية الواحدة = 10000000
وهذا العدد يبداء من بداية ما عرف الوقت والتاريخ
من يوم 1-1-1970 من الدقيقة 0 لبداية اليوم..

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

وذلك حتى لا تسبب عدد الارقام الكبيرة مشكلة عند المدخلات فى قاعدة البيانات
من حيث المساحة اولاً ومن حيث كود عدد الارقام 

وبالنهاية سيتم توليد الارقام بالثانية ويمكن جعلها توليد كل نص ثانية بالقسمة على 5 مليون
فتخيل الفارق بين الارقم بين هذا (3065311600) وهذا (15326558311467893)

ويمكن ذلك من خلال عمل كود مثل التالى
كود :
Math.Round(myTimeStamp / 5000000)

وهنا تم القسمة على 5 مليون ليتم توليد رقم كل نص ثانية

تحياتى للجميع
وتمنياتى لكم التوفيق