กระทู้เก่าบอร์ด อ.Yeadram
5,857 3
URL.หัวข้อ /
URL
Julian Date
เห็นคุณ yeadram บอกว่าบอร์ดดูเงียบๆ ไป...
เผื่อจะมีประโยชน์กับใครบ้าง
Function CDate2Julian(MyDate As Date) As String
CDate2Julian = "1" & Format(MyDate, "yy") & Format(MyDate - DateSerial(Year(MyDate) - 1, 12, _
31), "000")
End Function
เผื่อจะมีประโยชน์กับใครบ้าง
Function CDate2Julian(MyDate As Date) As String
CDate2Julian = "1" & Format(MyDate, "yy") & Format(MyDate - DateSerial(Year(MyDate) - 1, 12, _
31), "000")
End Function
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01470
เป็นฟังก์ชั่นแปลงวันที่ ให้อยู่ในฟอร์แมทของ Julian date ครับ
อย่างเช่นวันที่
12/02/2009 ในรูปของ Julian date = 109043
15/02/2009 ในรูปของ Julian date = 109046
1 หมายถึง ปีคริสต์ศักราช 2000
09 คือปี 2009
043 คือวันที่ 43 ของปี (คือนับตั้งแต่วันที่ 1 มกราคม)
ผมเคยเขียนโปรแกรมอิมพอร์ทข้อมูลเข้า Access จากโปรแกรมฐานข้อมูลอื่น
เลยรู้จักกับวันที่ในรูปแบบฟอร์แมทนี้ เห็นว่าบางครั้งถ้าเราแปลงให้อยู่ในรูปแบบ
นี้ ก็นำไปคำนวณ เรื่องวันที่ง่ายดีครับ
อย่างเช่นวันที่
12/02/2009 ในรูปของ Julian date = 109043
15/02/2009 ในรูปของ Julian date = 109046
1 หมายถึง ปีคริสต์ศักราช 2000
09 คือปี 2009
043 คือวันที่ 43 ของปี (คือนับตั้งแต่วันที่ 1 มกราคม)
ผมเคยเขียนโปรแกรมอิมพอร์ทข้อมูลเข้า Access จากโปรแกรมฐานข้อมูลอื่น
เลยรู้จักกับวันที่ในรูปแบบฟอร์แมทนี้ เห็นว่าบางครั้งถ้าเราแปลงให้อยู่ในรูปแบบ
นี้ ก็นำไปคำนวณ เรื่องวันที่ง่ายดีครับ
3 @R08567
รบกวนช่วยแปล Julian date 250311 ให้ด้วยครับ
เมล์ paruth@csloxinfo.com
ขอบคุณครับ
เมล์ paruth@csloxinfo.com
ขอบคุณครับ
Time: 0.3241s
ดูแล้วมันจะคืนค่าออกมาเป็นข้อความ ซึ่งประกอบไปด้วยสามส่วน
- เลขหลักแรก นำหน้าด้วยเลข 1 : "1"
- สองหลักต่อมา เอาเลขปี 2 หลัก : format(MyDate,"yy")
- สามหลักสุดท้ายหาว่าวันนี้เป็นวันที่เท่าไหร่ของปีนี้ : อันนี้ยาวไปนะครับ
เอาสั้นๆ ก็จะได้ว่า format(datepart("y",MyDate),"000")
แต่ยังไม่รู้อยู่ดีว่า ฟังก์ชั่นนี้ไว้ทำอะไร อิอิ