تعديل وقت وتاريخ الجهاز

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default تعديل وقت وتاريخ الجهاز

مُساهمة من طرف Admin في الثلاثاء أكتوبر 24, 2006 2:37 am

Public Sub SetDate(NewDate As Variant)
On Error Resume Next
DateTime.Date = NewDate
End Sub
Public Sub SetTime(NewTime As Variant)
On Error Resume Next
DateTime.Time = NewTime
End Sub
Private Sub Command1_Click()
SetDate ("August 1 2000")
SetDate ("01/08/2000")
SetTime (#1:00:00 PM#)
End Sub

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى