วิธีใช้ฟังก์ชัน datevalue ใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน DateValue ใน VBA เพื่อส่งกลับค่าวันที่จากสตริงที่กำหนด

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

มาโครนี้จะแยกค่าวันที่ออกจากวันที่และเวลาในช่วง A2:A7 และส่งกลับค่าวันที่นั้นในช่วงที่สอดคล้องกันของ B2:B7

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีใช้ฟังก์ชัน DateValue ใน VBA

สมมติว่าเรามีคอลัมน์วันที่/เวลาต่อไปนี้ใน Excel:

สมมติว่าเราต้องการแยกวันที่ออกจากแต่ละวันที่และเวลาในคอลัมน์ A และแสดงในคอลัมน์ B

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B จะแสดงค่าวันที่สำหรับแต่ละวันที่และเวลาในคอลัมน์ A

ตัวอย่างเช่น:

• ฟังก์ชัน DateValue ส่งกลับ 01/01/2023 ตั้งแต่วันที่ 01/01/2023 10:15:34 น.
• ฟังก์ชัน DateValue ส่งคืน วันที่ 01/03/2023 ตั้งแต่วันที่ 01/03/2023 เวลา 12:34:18 น.
• ฟังก์ชัน DateValue ส่งกลับวัน ที่ 01/05/2023 ตั้งแต่วันที่ 01/05/2023 เวลา 8:23:00 น.

และอื่นๆ

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับสมบูรณ์ของฟังก์ชัน DateValue ใน VBA ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีเปรียบเทียบวันที่
VBA: วิธีรับชื่อเดือนจากวันที่
VBA: ตัวเลขที่มากกว่าวันที่