منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : (UnixDate To date And date To Unix Date)
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

وجدت الحل
Date to unixdate
PHP كود :
   Public Function ToTimeStamp(ByVal target As DateTime) As Integer
        Dim 
[date] As New DateTime(197011000target.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(1970110000)
 
       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
PHP كود :
REM تحويل الوقت الى رقم
Dim myTimeStamp 
As Long Date.UtcNow.Subtract(New Date(197011)).Ticks

REM REM تحويل الرقم الى وقت
Dim myDateTime 
As Date = New Date(myTimeStamp).AddTicks(New Date(197011).Ticks
بارك الله فيك
ممكن معنى  REM
(27-07-18, 01:36 AM)سعود كتب : [ -> ]بارك الله فيك
ممكن معنى  REM

Rem = '

عند كتابة كلام او شرح ممكن تجعلة باللون الأخضر بإضافة ' او كلمة Rem
بيعمل ايه الكود ده مش فاهم
(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 مليون ليتم توليد رقم كل نص ثانية

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