/ / วันที่และเวลา Excel VBA

Excel VBA วันที่และเวลา

ปีเดือนวันที่วันที่ | DateAdd | วันที่และเวลาปัจจุบัน | ชั่วโมงนาทีวินาที | TimeValue

เรียนรู้วิธีการทำงานด้วย วันที่และเวลา ใน Excel VBA.

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

ปีเดือนวันที่วันที่

มาโครต่อไปนี้เป็นปีของวันที่ เมื่อต้องการประกาศวันที่ให้ใช้คำสั่ง Dim เมื่อต้องการเริ่มต้นวันที่ให้ใช้ฟังก์ชัน DateValue

รหัส:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

ผล:

ปีของวันที่ใน Excel VBA

หมายเหตุ: ใช้เดือนและวันเพื่อรับเดือนและวันที่ของวันที่

DateAdd

หากต้องการเพิ่มจำนวนวันเป็นวันที่ให้ใช้ปุ่มฟังก์ชัน DateAdd ฟังก์ชัน DateAdd มีอาร์กิวเมนต์สามตัว กรอก "d" สำหรับอาร์กิวเมนต์แรกที่เพิ่มวัน กรอกข้อมูล 3 สำหรับอาร์กิวเมนต์ที่สองเพื่อเพิ่ม 3 วัน อาร์กิวเมนต์ที่สามหมายถึงวันที่จะเพิ่มจำนวนวัน

รหัส:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

ผล:

DateAdd

บันทึก: เปลี่ยน "d" เป็น "m" เพื่อเพิ่มจำนวนเดือนเป็นวันที่ วางเคอร์เซอร์ไว้ที่ DateAdd ใน Visual Basic Editor และคลิก F1 เพื่อขอความช่วยเหลือเกี่ยวกับตัวระบุช่วงอื่น ๆ วันที่อยู่ในรูปแบบ US เดือนแรกวันที่สอง รูปแบบนี้ขึ้นอยู่กับการตั้งค่าระดับภูมิภาคของ windows

วันที่และเวลาปัจจุบัน

หากต้องการรับวันที่และเวลาปัจจุบันให้ใช้ฟังก์ชัน Now

รหัส:

MsgBox Now

ผล:

วันที่และเวลาปัจจุบัน

ชั่วโมงนาทีวินาที

ใช้เวลาในชั่วโมงโดยใช้ฟังก์ชันชั่วโมง

รหัส:

MsgBox Hour(Now)

ผล:

ชั่วโมงของเวลาปัจจุบัน

หมายเหตุ: ใช้นาทีและวินาทีเพื่อดูนาทีและวินาทีของเวลา

TimeValue

ฟังก์ชัน TimeValue แปลงสตริงเป็นหมายเลขอนุกรมเวลา หมายเลขซีเรียลของเวลาคือตัวเลขระหว่าง 0 ถึง 1 ตัวอย่างเช่นเที่ยง (ครึ่งทางระหว่างวัน) จะแสดงเป็น 0.5

รหัส:

MsgBox TimeValue("9:20:01 am")

ผล:

TimeValue

ตอนนี้ให้เห็นอย่างชัดเจนว่า Excel จัดการกับเวลาภายในเป็นตัวเลขระหว่าง 0 ถึง 1 เพิ่มบรรทัดรหัสต่อไปนี้:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

ผล:

หมายเลข Serial เวลา

อ่านเพิ่มเติมได้ที่: