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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل التاريخ من اليمين لليسار في الكريستال ريبورت جيولوجي مبتدئ 1 49 13-11-18, 01:05 AM
آخر رد: عبد العزيز البسكري
Exclamation سؤال حول استخدام التاريخ ahmadpal 10 190 09-11-18, 10:47 PM
آخر رد: ahmadpal
  [سؤال] تغير شكل المشروع الجاهز vb.net seotarek 4 93 08-11-18, 06:05 PM
آخر رد: sads
  أريد حل سريع في مشكلة كتابة كود لإدخال التاريخ في جملة Insert abo.alaa315 3 105 31-10-18, 10:44 PM
آخر رد: elgokr
  حفظ بحقل التاريخ اذا كان فارغ محمد خيري 13 251 15-10-18, 03:27 AM
آخر رد: asemshahen5
  [VB.NET] اريد تغير بسيط ع الكود ... e-coder 3 151 29-09-18, 04:09 PM
آخر رد: عبد الرؤوف
  كيفية عرض التاريخ الهجري المتألق9 14 383 18-09-18, 01:38 PM
آخر رد: المتألق9
  كتابة التاريخ بالحروف العيدروس 4 198 16-09-18, 02:55 AM
آخر رد: 911
  كود تغيير التاريخ vb آسير بلآ قيود 1 168 08-09-18, 08:07 AM
آخر رد: elgokr
  مشكلة في تسجيل التاريخ بأداة DateTimePicker Hazem1 15 579 30-08-18, 10:32 PM
آخر رد: elgokr

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


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