تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف تغير التاريخ
#1
كيف تغير التاريخ فى الكمبيوتر
الرد }}}}
تم الشكر بواسطة:
#2
كود :
#Region "Set the date and time"
    Public Structure SYSTEMTIME
        Dim wYear As UInt16
        Dim wMonth As UInt16
        Dim wDayOfWeek As UInt16
        Dim wDay As UInt16
        Dim wHour As UInt16
        Dim wMinute As UInt16
        Dim wSecond As UInt16
        Dim wMilliseconds As UInt16
    End Structure
    Declare Function GetSystemTime Lib "Kernel32.dll" _
     (ByRef lpSystemTime As SYSTEMTIME) As UInt32

    Declare Function SetSystemTime Lib "Kernel32.dll" _
     (ByRef lpSystemTime As SYSTEMTIME) As UInt32

    Public Sub SetTime(ByVal d As Date)
        'التعديل على توقيت جرينتش

        Dim st As New SYSTEMTIME
        GetSystemTime(st)


        st.wDay = d.Day ' اليوم
        st.wMonth = d.Month ' الشهر
        st.wYear = d.Year ' السنة
        st.wHour = d.Hour ' الساعة24
        st.wMinute = d.Minute ' الدقائق
        'st.wSecond = d.Second ' الثواني
        SetSystemTime(st)

    End Sub
#End Region

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        SetTime(Date.UtcNow.AddHours(+1))
    End Sub
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب كود تغير الصورة من داخل البرنامج MOSTAFA.KAMEL 3 98 22-03-17, 03:48 PM
آخر رد: Adrees
  زيادة السنين في أداة التاريخ DateTimePicker أسامة السالمي 5 298 21-03-17, 04:36 AM
آخر رد: hamode
Rainbow [كود] اضافه للمشروع التاريخ الميلادي والهجري محمد مسافر 11 366 04-03-17, 06:54 PM
آخر رد: محمد مسافر
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 189 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  البحث بجزء من التاريخ أسامة السالمي 6 159 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] هل يوجد طريقة للتنبيه قبل انتهاء التاريخ بيومين Marwan9990 22 835 08-02-17, 02:48 AM
آخر رد: أسامة السالمي
  اريد كود تنسيق التاريخ bidaya 10 311 06-02-17, 03:08 AM
آخر رد: bidaya
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 318 02-02-17, 06:12 PM
آخر رد: Marwan9990
  منع تغير التاريخ و الوقت noway 5 179 25-01-17, 03:00 PM
آخر رد: مساعدة
  كيفية تغير رسائل الخطأ؟ noway 4 265 12-01-17, 02:05 AM
آخر رد: يسرى7

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم