Julian Date
กระทู้เก่าบอร์ด อ.Yeadram

 5,860   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

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01468
ฟังก์ชั่นนี้ไว้ทำอะไรครับ
ดูแล้วมันจะคืนค่าออกมาเป็นข้อความ ซึ่งประกอบไปด้วยสามส่วน
- เลขหลักแรก นำหน้าด้วยเลข 1 : "1"
- สองหลักต่อมา เอาเลขปี 2 หลัก : format(MyDate,"yy")
- สามหลักสุดท้ายหาว่าวันนี้เป็นวันที่เท่าไหร่ของปีนี้ : อันนี้ยาวไปนะครับ
เอาสั้นๆ ก็จะได้ว่า          format(datepart("y",MyDate),"000")

แต่ยังไม่รู้อยู่ดีว่า ฟังก์ชั่นนี้ไว้ทำอะไร อิอิ
2 @R01470
เป็นฟังก์ชั่นแปลงวันที่ ให้อยู่ในฟอร์แมทของ Julian date ครับ
อย่างเช่นวันที่
   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

ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3566s