8.2
การอ่านค่าวันเวลาปัจจุบันจากระบบ
ชุดคำสั่งที่ทำหน้าที่ในการอ่านค่าวันเวลาปัจจุบันจากระบบคอมพิวเตอร์ของภาษา
OpenOffice
/ LibreOffice Basic จะมีอยู่ด้วยกัน
3
ชุดคำสั่งด้วยกัน
ได้แก่
- คำสั่ง Date ทำหน้าที่ อ่านค่าวันเดือนปีปัจจุบันจากระบบ หรือใช้สำหรับกำหนดวันเดือนปีให้กับระบบ
- คำสั่ง Time ทำหน้าที่ อ่านค่าเวลาปัจจุบันจากระบบ โดยจะให้ค่าออกมาเป็นข้อความซึ่งอยู่ในรูป "HH:MM:SS"
- คำสั่ง Now ทำหน้าที่ อ่านค่าวันเวลาปัจจุบันจากระบบ คำสั่ง Now ให้ผลเป็นข้อมูลแบบ Date ซึ่งการนำไปใช้งานจะกระทำได้ดังในตัวอย่าง 8-02 ในข้างต้น
8.3
การแยกส่วนข้อมูลวันเวลา
จากข้อมูลแบบ
Date
ชุดหนึ่งๆ
เราสามารถแยกส่วนประกอบเป็นวัน,
เดือน,
ปี,
ชั่วโมง,
นาที
หรือวินาทีได้ โดยในภาษา
OpenOffice
/ LibreOffice Basic จะมีคำสั่งสำหรับแยกส่วนข้อมูลแบบ
Date
ออกเป็นส่วน
ๆ ได้แก่คำสั่ง Day(),
คำสั่ง
Month(),
คำสั่ง
Year(),
คำสั่ง
WeekDay(),
คำสั่ง
Hour(),
คำสั่ง
Minute(),
คำสั่ง
Second()
(คำอธิบายของชุดคำสั่งดังกล่าวแสดงอยู่ในตารางที่
8-01
ในข้างต้น)
สำหรับตัวอย่างที่
8-03
เป็นตัวอย่างของการอ่านค่าวันเวลาปัจจุบันจากระบบด้วยคำสั่ง
Now
แล้วนำมาเก็บไว้ในตัวแปรแบบ
Date
จากนั้นจึงทำการแยกส่วนข้อมูลวันเวลาด้วยชุดคำสั่งต่างๆ
ในข้างต้น
ตัวอย่างที่
8-03
: การแยกส่วนวันเวลาจากข้อมูลแบบ
Date
SUB
subExample08_03
Dim
dTest As Date
dTest
= Now 'อ่านค่าวันเวลาปัจจุบันจากระบบ
'แสดงผลการทำงานของคำสั่งต่างๆ
บนจอภาพ
MsgBox
"กำหนด
dTest
= Now" + Chr(13) + _
"ค่าที่เก็บในตัวแปร
dTest
คือ
"+
dTest + Chr(13) + Chr(13) + _
"ผลของคำสั่ง
Day(dTest)
คือ
"
+ Day(dTest) + Chr(13) + _
"ผลของคำสั่ง
Month(dTest)
คือ
"
+ Month(dTest) + Chr(13) + _
"ผลของคำสั่ง
Year(dTest)
คือ
"
+ Year(dTest) + Chr(13) + _
"ผลของคำสั่ง
Weekday(dTest)
คือ
"
+ _
Weekday(dTest)
+ Chr(13) + _
"ผลของคำสั่ง
Hour(dTest)
คือ
"
+ Hour(dTest) + Chr(13) + _
"ผลของคำสั่ง
Minute(dTest)
คือ
"
+ Minute(dTest) + Chr(13) + _
"ผลของคำสั่ง
Second(dTest)
คือ
"
+ Second(dTest)
END
SUB
|
![]() |
รูปที่
8-3
ผลการทำงานของ
subExample08_03
|
ในตารางที่
8-01
เป็นรายการชุดคำสั่งที่เกี่ยวกับการจัดข้อมูลวันและเวลาของภาษา
OpenOffice
/ LibreOffice Basic
ชุดคำสั่ง
|
รายละเอียด
|
CDate() |
ทำหน้าที่
แปลงข้อความหรือตัวเลขเป็นข้อมูลแบบ
Date
|
CDateFromIso() |
ทำหน้าที่
แปลงข้อความวันเดือนปีแบบ
ISO
เป็นข้อมูลแบบ
Date
|
CDateToIso() |
ทำหน้าที่
แปลงข้อมูลแบบ Date
เป็นวันเดือนปีแบบ
ISO
(ข้อความ)
|
Date |
ทำหน้าที่
อ่านค่าวันเดือนปีของระบบ
|
Date = ข้อความ |
ทำหน้าที่
เปลี่ยนเป็นค่าวันเดือนปีของระบบเป็นวันเดือนปีที่ระบุในข้อความ
|
DateSerial() |
ทำหน้าที่
หาค่าข้อมูลแบบ Date
จากเลข
ปี,
เดือน
และวันที่กำหนด
|
DateValue() |
ทำหน้าที่
หาค่าเลขของวันเดือนปีที่กำหนด
โดยค่าที่ได้จะเป็นลำดับวันที่
ซึ่งอยู่ในช่วงวันที่ 1
ธันวาคม
ค.ศ.
1582 ถึง
31
ธันวาคม
ค.ศ.
9999
|
Month() |
ทำหน้าที่
หาเลขเดือนจากข้อมูลแบบ
Date
ที่ได้จากการทำงานของคำสั่ง
DateSerial()
หรือคำสั่ง
DateValue()
|
GetSystemTicks() |
ทำหน้าที่
อ่านค่าสัญญาณนาฬิกาของระบบ
|
Hour() |
ทำหน้าที่
หาเลขชั่วโมงจากข้อมูลเวลาที่ได้จากการทำงานของคำสั่ง
TimeSerial()
หรือคำสั่ง
TimeValue()
|
Minute() |
ทำหน้าที่
หาเลขนาทีจากข้อมูลเวลาที่ได้จากการทำงานของคำสั่ง
TimeSerial()
หรือคำสั่ง
TimeValue()
|
Now |
ทำหน้าที่
อ่านค่าวันและเวลาของระบบในขณะปัจจุบันในรูปของข้อมูลแบบ
Date
|
Second() |
ทำหน้าที่
หาเลขวินาทีจากข้อมูลเวลาที่ได้จากการทำงานของคำสั่ง
TimeSerial()
หรือคำสั่ง
TimeValue()
|
Time |
ทำหน้าที่
อ่านค่าเวลาของระบบ
|
Timer |
ทำหน้าที่
หาค่าเลขเวลา
(กรณีที่กำหนดตัวแปรรับค่าเป็น
Long)
หรือค่าข้อมูลแบบ
Date
นับตั้งแต่เที่ยงคืน
|
TimeSerial() |
ทำหน้าที่
หาค่าข้อมูลแบบ Date
จากเลขชั่วโมง,
นาที
และวินาที ที่กำหนด
|
TimeValue() |
ทำหน้าที่
หาค่าข้อมูลแบบ Date
จากข้อความที่อยู่ในรูปของเวลา
|
Wait ระยะเวลา |
ทำหน้าที่
หยุดการทำงานชั่วคราวตามระยะเวลาที่กำหนด
|
WeekDay() |
ทำหน้าที่
หาเลขวันในสัปดาห์จากข้อมูลวันเดือนปีที่กำหนด
|
Year() |
ทำหน้าที่
หาเลขปีจากข้อมูลแบบ Date
ที่ได้จากการทำงานของคำสั่ง
DateSerial()
หรือคำสั่ง
DateValue()
|
เวลา
|
เหตุการณ์
|
|||
06:00 น. | ตื่นนอน | |||
06:30 น. |
งานของกิจกรรมอาชีพ
กสิกรรมธรรมชาติ บ้านแม่ทำ
สีทา (3/2557) : ตัดหญ้าเตรียมพื้นที่ปลูกข้าวโพด
|
|||
09:30 น. |
|
|||
11:00 น. |
งานของกิจกรรมอาชีพ
กสิกรรมธรรมชาติ บ้านแม่ทำ
สีทา (3/2557) : สูบน้ำรดต้นไม้ด้วยปั้มชักพลังงานโซลาร์เซลล์
|
|||
12:00 น. | เอาอีเอ็มขยายผสมน้ำราดพื้นใต้ถุนบ้าน | |||
12:45 น. |
|
|||
13:45 น. | อาบน้ำ ทำบันทึกประจำวันของวันก่อน | |||
14:45 น. |
งานของกิจกรรมอาชีพ
งานอินเตอร์เน็ต
(16/2557) : ทำต้นฉบับบทความเรื่องใหม่
|
|||
15:00 น. | เย็บเล่มเอกสารนำเสนอโครงการชีวิถึเพื่อการพัฒนาอย่างยั่งยืนของปีที่ผ่านมาก | |||
16:00 น. | ||||
20:00 น. | เข้านอน |