تقييم الموضوع :
  • 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تغير اسم ملف محمد اسماعيل 6 0 16-02-18, 09:35 PM
آخر رد: محمد اسماعيل
  [Solved] - تغير أسماء الأعمدة عند استخراج البيانات الى excel Rabeea Qbaha 10 1 02-02-18, 12:49 AM
آخر رد: طالب برمجة
  [VB.NET] اسناد التاريخ الي الداتا تيم من الداتا جريد محمد اسماعيل 8 78 19-01-18, 09:42 PM
آخر رد: محمد اسماعيل
  تغير خط التقرير باستخدام الكود أثناء التشغيل [email protected] 1 61 11-01-18, 04:38 PM
آخر رد: عبدالله الدوسري
  كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 nooralcown 4 149 08-01-18, 01:47 PM
آخر رد: nooralcown
  [سؤال] لو سمحتوا كيف اضيف أيام على التاريخ المُدخل؟ Nedaa 2 73 02-01-18, 03:44 PM
آخر رد: Nedaa
  التحكم في اداة التاريخ DateTimePicker1 aftfm 1 86 01-01-18, 11:37 PM
آخر رد: طالب برمجة
  [VB.NET] مساعدة لمنع تكرار البيانات او تجميعها علي حسب التاريخ englishman210 15 326 13-12-17, 11:00 AM
آخر رد: englishman210
  تغير مكان ال panel ديناميكيا حسب مكان ال button. Rabeea Qbaha 4 105 12-12-17, 08:20 PM
آخر رد: Rabeea Qbaha
  بخصوص حفظ التاريخ aftfm 5 137 10-12-17, 12:05 AM
آخر رد: aftfm

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


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