<< ขออนุญาต คัดลอกมานำเสนอ >> การกำหนดเวลาที่เครื่อง Client ให้เท่ากับเวลาที่เครื่อง Server ------------------------------------------------------------------------ หากคุณใช้ NT Server แล้วเขียนโปรแกรมเกี่ยวกับวันเวลา หากไม่สามารถดึงเวลาปัจจุบัน จาก Database ได้แล้วหละก็ API funtion นี้ช่วยคุณได้มากทีเดียว ประกาศคำสั้ง API ไว้ใน Form หรือใน Module ก่อนเรียกใช้ Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long การเรียกใช้งานโดย function จะถูกเรียกทุกครั้งเมื่อ Form Load ให้เปลี่ยน \\Komkrich เป็นชื่อ Server ของคุณเองเช่น \\Internet เป็นต้น Private Sub Form_Load() Call ShellExecute(0&, "Open", "NET", "TIME " & "\\KOMKRICH" & " /SET /YES", 0&, 0) End Sub * ข้อควรระวัง การใช้คำสั่ง Windows API ควรจะมีการประกาศค่าตัวแปรให้ตรงกับ ตัวแปรที่ Funtion ต้องการผ่านค่าให้ และควรจะประกาศตัวแปรให้ครบถ้วนไม่เช่นนั้นแล้วอาจจะทำให้เครื่องแฮงค์ได้ทันที อ้างอิง : http://web.domaindlx.com/devforum/

ขอบพระคุณครับ อ. แล้ว อ.Badman ปกติจะ set เวลาของProgram อย่างไรครับ

เป็นโค้ดที่สั้นแต่ว่าใช้ได้ผลครับ สั้นกว่าตัวที่ผมเคยแนะนำไว้เยอะ ผมลองทดสอบแล้ว Works ครับ มันจะเปลี่ยนทั้งวันที่ และเวลา ให้พร้อมกันเลย

ผมยังไม่เคยทำเกี่ยวกับเรื่องนี้เลยครับ ..โดยเฉพาะโปรแกรมที่วิ่งบน LAN

ไม่ต้องเป็นเครื่อง Server ก็ทำได้ครับ ถ้ามีเครื่องคอมฯ อยู่ใน LAN ก็สามารถใช้โค้ดข้างต้นได้เลย

วันนี้ผมไปอ่านกระทู้ต่างประเทศที่
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=visualbasic&Number=192744&page=0&view=&sb=&o=&fpart=&vc=1&PHPSESSID=

เขาต้องการเปลี่ยนเวลาของเครื่องฯ

ผมเลยตอบเขาไปดังนี้

Check Date statement and Time statement in Access Help out.
ให้อ่าน Date และ Time statement ใน Help
Or try the function below.
หรือลองฟังก์ชันข้างล่างดู

Function SetDateTime(NewDate As Date, NewTime As String) As Date

Date = NewDate
Time = NewTime
SetDateTime = Now

End Function

Here's how to call the function.
วิธีการใช้งาน


Change current machine time to 13:30:00.
เปลี่ยนเวลาปัจจุบันให้เป็น 13:30:00
? SetDateTime(Date,"13:32:00")

Change current machine date to 3 March 2003.
เปลี่ยนวันที่ปัจจุบันให้เป็น 3 March 2003
? SetDateTime(#3/3/2003#,Now)

ขอบพระคุณครับ อ. ผมจะทดลองดูแล้วจะแจ้งให้ทราบครับ อ.