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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كود يعطل تغير الوقت والتاريخ في النظام اللورد محمود 2 63 أمس, 02:11 AM
آخر رد: اللورد محمود
  [كود] أريد حل مشكلة في إدخال الوقت و التاريخ lolo queen 17 6,120 15-02-19, 03:01 AM
آخر رد: اسامه الهرماوي
  تغير اسم زر عند فتح صفحه ما soloxocf1 1 81 30-01-19, 03:59 PM
آخر رد: soloxocf1
  [سؤال] طباعة التاريخ في الوورد dell 5 112 21-01-19, 05:55 PM
آخر رد: elgokr
  [سؤال] اريد تجزئة حقل التاريخ عاشق الرسول 5 274 11-01-19, 11:03 AM
آخر رد: larbihamri
  إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. أبووسم 8 269 10-01-19, 01:48 PM
آخر رد: أبووسم
  بخصوص التاريخ salah mansour 4 215 18-12-18, 03:28 AM
آخر رد: elgokr
  [VB.NET] تغير تنسيق الملفات في مجلد RandomUser 1 111 17-12-18, 08:50 PM
آخر رد: elgokr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 185 08-12-18, 08:36 PM
آخر رد: masry4u
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 182 18-11-18, 02:17 AM
آخر رد: allo5_800

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


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