ส่งกลับตัว แปร (วันที่)
ไวยากรณ์
DateValue(date)
โดยปกติ อาร์กิวเมนต์วันที่ที่จําเป็นคือนิพจน์สตริงที่แสดงวันที่ตั้งแต่ 1 มกราคม 100 จนถึง 31 ธันวาคม 9999 อย่างไรก็ตาม วันที่ ยังอาจเป็นนิพจน์ที่แสดงแทนวันที่ เวลา หรือทั้งสองอย่าง ในช่วง
ข้อสังเกต
ถ้า วันที่ เป็นสตริงที่มีเฉพาะตัวเลขที่คั่นด้วยตัวคั่นวันที่ที่ถูกต้อง DateValue จะรู้ลําดับของเดือน วัน และปีตามรูปแบบวันที่แบบสั้นที่คุณระบุไว้สําหรับระบบของคุณ นอกจากนี้ DateValue ยังรู้จักวันที่ที่ไม่ชัดเจนซึ่งมีชื่อเดือน ไม่ว่าจะเป็นแบบยาวหรือแบบย่อ ตัวอย่างเช่น นอกเหนือจากการรับรู้ 30/12/1991 และ 30/12/91 DateValue ยังรับรู้ 30 ธันวาคม 1991 และ 30 ธ.ค. 1991 อีกด้วย
ถ้าละส่วนปีของ วันที่DateValue จะใช้ ปีปัจจุบันจากวันที่ของระบบของคอมพิวเตอร์ของคุณ
ถ้าอาร์กิวเมนต์ วันที่ มีข้อมูลเวลา DateValue จะไม่ส่งกลับข้อมูลนั้น อย่างไรก็ตาม ถ้า วันที่ มีข้อมูลเวลาที่ไม่ถูกต้อง (เช่น "89:98") ข้อผิดพลาดจะเกิดขึ้น
หมายเหตุ
สําหรับวันที่ ถ้าการตั้งค่าคุณสมบัติ Calendar เป็นแบบคริสต์ศักราช วันที่ที่ระบุจะต้องเป็นแบบคริสต์ศักราช ถ้าปฏิทินเป็นเทศกาลฮิจเราะห์ วันที่ที่ระบุจะต้องเป็นเทศกาลฮิจเราะห์ ถ้าวันที่ที่ระบุเป็นฮิจเราะห์ วันที่ ของ อาร์กิวเมนต์จะเป็นส ตริง ที่แสดงวันที่ตั้งแต่ 1/1/100 (เกรโกเรียน 2 ส.ค. 718) ถึง 4/3/9666 (เกรโกเรียน 31 ธ.ค. 9999)
ตัวอย่างคิวรี
| นิพจน์ | ผลลัพธ์ |
|---|---|
| SELECT DateValue([DateTime]) AS Expr1 FROM ProductSales; | ส่งกลับค่าวันที่ของเขตข้อมูล "วันที่และเวลา" ในรูปแบบวันที่แบบสั้นโดยไม่มีข้อมูลเวลา |
| SELECT DateValue([DateTime]) AS NewDate, Count(ProductSales.DateTime) AS CountOfDateTime FROM ProductSales GROUP BY DateValue([DateTime]); | ส่งกลับค่าวันที่ของเขตข้อมูล "วันที่และเวลา" ในรูปแบบวันที่แบบสั้นโดยไม่มีข้อมูลเวลา |
ตัวอย่าง VBA
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงนักพัฒนาในรายการ ดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน DateValue ในการแปลงสตริงเป็นวันที่ คุณยังสามารถใช้สัญพจน์วันที่เพื่อกําหนดวันที่ให้กับ ตัวแปรหรือ ตัวแปร วันที่ โดยตรง ตัวอย่างเช่น MyDate = #2/12/69#
Dim MyDate
MyDate = DateValue("February 12, 1969") ' Return a date.