تابع تغییر ساعت یا تاریخ سیستم در VB

[ghoghnuse]

سلام دوستان

من یک فرم دارم که ساعت و دقیقه و ثانیه را از طریق سه TEXT BOX بطور مجزا از کاربر دریافت می کنه . حالا می خوام ببینم آیا تابعی هست که ساعت سیستم را بر اساس این اطلاعات تغییر بده ؟؟ یعنی با کلیک بر روی دکمه ایجاد شده ساعت سیستم در قسمت DATE / TIME بر اساس اعداد ورودی تغییر کنه ؟؟ با تشکر فراوان

بدرود .

 

[m3hrz4d]

با استفاده از ای پی آی های GetLocalTime و SetLocalTime. اول تاریخ و زمان جاری رو میگیریم . هرچی رو میخواییم تغییر میدیم و تاریخ جدید رو set میکنیم :

Option Explicit
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 Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Declare Function SetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Dim SysTime As SYSTEMTIME

Private Sub Command1_Click()
    Call GetLocalTime(SysTime)
    SysTime.wHour = 3
    SysTime.wMinute = 40
    SysTime.wSecond = 1
    Call SetLocalTime(SysTime)
End Sub

عدد هایی که من توی کد گذشتم رو میتونی از TextBox یا ... بگیری.

 

[ghoghnuse]

برادر بسیار متشکرم .

سوال دیگه اینکه میشه در یک TEXTBOX دیگه AM?PM بودن را هم مشخص کرد ؟؟ مثلا کاربر در تکست باکس ها به ترتیب وارد کنه :
ساعت : 3
دقیقه : 26
ثانیه 55
صبح/ظهر : PM
و بعد از کلیک بر روی دکمه ساعت 15:26:55 را ببینه ؟؟

ممنون از لطف شما
موفق باشین .
بدرود .

 

[saeedsmk]

برادر بسیار متشکرم .

سوال دیگه اینکه میشه در یک TEXTBOX دیگه AM?PM بودن را هم مشخص کرد ؟؟ مثلا کاربر در تکست باکس ها به ترتیب وارد کنه :
ساعت : 3
دقیقه : 26
ثانیه 55
صبح/ظهر : PM
و بعد از کلیک بر روی دکمه ساعت 15:26:55 را ببینه ؟؟

ممنون از لطف شما
موفق باشین .
بدرود .

سلام
خوب هستيد تا انجايي كه من ميدانم متغيير wHour As Integer بين 0 تا 23 قابل ست كردن است . لذا براي اينكه بتونيد pm و يا am ساعت رو ست كنيد بايد يك كوچلو برنامه نويسي كنيد يعني اگر pm انتخاب شده بود به مقدار تكس باكسي كه مقدار ساعت رو ميگيره 12 تا اضافه بشه به شرط اينكه مقدار تكس باكس مخالف 12 باشه و هنگامي كه مقدار am انتخاب شده بود و ساعت برابر 12 انتخاب شده باشد اين مقدار را برابر صفر قرار دهد و بعد از اين تغييرات از روشي كه پلاس خان گفتند استفاده كنيد .
راستي تكس باكسي كه مقدار ساعت رو ميگيره نبايد مقدارش بيشتر از 12 بشه
اميدوارم كمك كنه
به اميد ديدار