للأخ مبرمج 2001 كيف اضبط الوقت من برنامجي

ولا يهمك

ان كنت تقصد إعداد تاريخ ووقت الجهاز من برنامجك فإليك هذا الكود

Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
    Dim lpSystemTime As SYSTEMTIME
    lpSystemTime.wYear = 2002
    lpSystemTime.wMonth = 1
    lpSystemTime.wDayOfWeek = -1
    lpSystemTime.wDay = 13
    lpSystemTime.wHour = 5
    lpSystemTime.wMinute = 55
    lpSystemTime.wSecond = 0
    lpSystemTime.wMilliseconds = 0
    'ÖÈØ ÇáÊÇÑíÎ æÇáæÞÊ ÇáÌÏíÏ
    SetSystemTime lpSystemTime
End Sub

ايضا يمكن ذلك دون اللجوء إلى API

Date = #1/4/2002#
Time = #5:05:05 PM#

شكرا لك اخي Read Only

أكوادك قوية وسهلة أرجو ان لا تحرمنا من ردودك

تحياتي لك (f)