ฟังก์ชัน fillzero: หากวันที่สองเดือนและวันเป็นเลขคี่ ให้เติม 0 ข้างหน้า ตัวอย่างเช่น รูปแบบทั่วไปของวันที่ 3 มีนาคม 2011 คือ 2011-3-3 จะถูกแปลงเป็นรูปแบบ เช่น 2011-03-03 ผ่านทางฟังก์ชัน คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่นสาธารณะ fillzero (l1)
ถ้า len(l1)=1 แล้ว
fillzero=0&l1
อื่น
เติมศูนย์=l1
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
ตัวอย่างการใช้งาน:
คัดลอกรหัสรหัสดังต่อไปนี้:
ปีที่ตอบกลับ(ตอนนี้)&เดือน(ตอนนี้)&วัน(ตอนนี้) ผลลัพธ์:201116
ปีที่ตอบสนอง(ตอนนี้)&fillzero(เดือน(ตอนนี้))&fillzero(วัน(ตอนนี้)) ผลลัพธ์การแสดงผล:20110106
วิธีควบคุมการแสดงรูปแบบวันที่แบบยาวและรูปแบบวันที่แบบสั้น:
วันที่แบบสั้น:FORMATDATETIME(DATE,vbShortDate)
วันที่แบบยาว:FORMATDATETIME(DATE,vbLongDate)
เมื่อแสดงวันที่ตามตำแหน่งที่ตั้งของสหราชอาณาจักร (US) วันที่จะแสดงในรูปแบบต่อไปนี้:
วันที่สั้น:7/9/97
วันที่แบบยาว:วันพุธที่ 09 กรกฎาคม พ.ศ.2540
หมายเหตุ: รูปแบบวันที่แบบสั้นจะปรากฏเหมือนกับไม่มีการจัดรูปแบบใดๆ ทุกประการ ตามค่าเริ่มต้น วันที่จะแสดงในรูปแบบวันที่แบบสั้น
วิธีใช้ฟังก์ชัน FORMATDATETIME() เพื่อจัดการเวลา:
เวลาอันสั้น:FORMATDATETIME(TIME,vbShortTime)
เวลานาน: FORMATDATETIME (TIME, vbLongTime)
เมื่อแสดงเวลาในสหราชอาณาจักร (สหรัฐอเมริกา) เวลาจะถูกจัดรูปแบบดังนี้:
ระยะเวลาอันสั้น:03:20
ยาว:3:20:08 AM
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชัน FillZero(str)
tt=str
ถ้า len(str)=1 แล้ว
tt=0&str
สิ้นสุดถ้า
FillZero=ttt
ฟังก์ชั่นสิ้นสุด
'วันที่แปลง เพิ่มศูนย์เป็นหนึ่งหลัก 2003-1-2 --> 2003-01-02
ฟังก์ชั่น ConvertDate (tDate)
tt=tวันที่
ถ้า isdate(tDate) แล้ว
ttt=ปี(tDate) & - & FillZero(เดือน(tDate)) & - & FillZero(วัน(tDate))
สิ้นสุดถ้า
แปลงวันที่=ttt
ฟังก์ชั่นสิ้นสุด
'ป้อนสตริงวันที่และเวลา แปลงเป็นตัวเลขผู้ใหญ่สี่หลัก และอีกสองหลักเป็นสตริงวันที่และเวลาใหม่
ฟังก์ชั่น ConvertDateTime (tDateTime)
tt=tวันที่และเวลา
ถ้า isdate(tDateTime) แล้ว
ttt=ปี(tDateTime) & - & FillZero(เดือน(tDateTime)) & - & FillZero(วัน(tDateTime)) & & FillZero(cstr(ชั่วโมง(tDateTime))) & : & FillZero(cstr(นาที(tDateTime)) ) & : & FillZero(cstr(วินาที(tDateTime)))
สิ้นสุดถ้า
แปลงDateTime=ttt
ฟังก์ชั่นสิ้นสุด
-