ต้องขอข้อมูลเพิ่มอีกนิดหนึ่งครับว่าปีนี้ตรงกับปีไทยอะไรครับ แล้วค่อยใช้ Array() หรือสูตรเทียบได้ครับ

อ.สุภาพ ครับ ปีนี้เป็นปี มะเมียครับ รบกวน อาจาร์ย ด้วยครับ ขอบพระคุณมากๆ ครับ Suchat ชลบุรี

ลองฟังก์ชันนี้ดูครับ Function GetThaiYr(intYear As Integer) As String Dim I As Integer, J As Integer Dim ThaiYr As Variant, Yr As Variant J = Abs(intYear - 2503) Mod 12 Yr = Array("ชวด", "ฉลู", "ขาล", "เถาะ", "มะเร็ง", "มะเส็ง", "มะเมีย", "มะแม", "วอ", "ระกา", "จอ", "กุน") ThaiYr = Yr(J) GetThaiYr = ThaiYr End Function จะต้องใส่ค่าลงไปเป็น พ.ศ. นะครับ เช่น ? GetThaiYr(2545) มะเมีย ผมเลือกเอาปี 2503 เป็นปีแรกที่เป็นปีชวด จะเปลี่ยนเป็นปีอื่นๆ ที่ตรงกับปีชวดก็ได้ครับ ลองดูว่าผมใส่ปีไทยถูกทุกอันหรือเปล่าไม่รู้

อ.สุภาพ ครับ จากที่ผมลองดู Funtion ที่ อ.สุภาพ แนะนำมาสามารถคำนวณออกมาได้ถูกต้องครับ ที่ Funtion นี้ เราสามารถอ้างอิงชื่อ Control ได้ หรือไม่ครับ เนื่องจาก Text Box (Txt1) ที่ผมนำมาโชว์ ผม Format เป็น yyyy ซึ่งอ้างอิงจาก Calendar 9.0 ทีนี้เมื่อผม เลือกจาก วัน เดือน ปี ใน Carlendar ที่ Text Box (Txt1) ก็จะโชว์ 2545 และเมื่อผมเพิ่ม Text Box (Txt2) อีกอันหนึ่ง ขึ้นมาเพื่อใส่ Funtion ดังนี้ =GetThaiYr([ชื่อ Control ของ Text Box ที่มี Format yyyy]) จะได้ผลลัพท์ เป็น error รบกวน อ.สุภาพ แนะนำด้วยครับ ขอบพระคุณมากๆ ครับ Suchat

ผมใช้อย่างงี้ครับ Private Sub Calendar_Click() Me.Text1 = GetThaiYr(DatePart("yyyy", Me.Calendar)) End Sub

อ.สุภาพ ครับ จาก Funtion ของ อาจาร์ย ที่แนะนำมา ผมลองแก้ไขเป็น Dim I As Integer, J As Integer Dim ThaiYr As Variant, Yr As Variant J = Abs(intYear - 2499) Mod 12 Yr = Array("กุน", "จอ", "ระกา", "วอก", "มะแม", "มะเมีย", "มะเส็ง", "มะโรง", "เถาะ", "ขาล", "ฉลู", "ชวด") ThaiYr = Yr(J) GetThaiYr = ThaiYr End Function แล้วลอง Test ดู ก็สามารถคำนวณ ได้ถูกต้องแล้วครับ ขอบพระคุณ อาจาร์ย มากๆ ครับ Suchat ชลบุรี

คุณสุชาติ ครับ มีวิธีเขียนโค๊ดอย่างไร มีหลักไหม น่าจะสอนเป็นคอลัมภ์นะ เห็นเขียนโต้ตอบกับอาจารย์สุภาพเก่งจังครับ

คุณวิโรจน์ ครับ ผมเขียน Code ไม่เป็นนะครับ เขียนได้แบบพื้นๆ เท่านั้น ส่วนใหญ่ ผมได้ อ.สุภาพ ครับ ที่ช่วยแนะนำ ในยามผมมีปัญหา ท่านเก่งมากๆ ครับ ผมยอมรับในฝีมือเลย ในเรื่องการเขียน Code ถ้าผมเก่ง ประมาณ 10-20% จากของท่าน ผมก็พอแล้วครับ คุณวิโรจน์ ลองศึกษาจากที่นี่แหละครับ แล้วจะกระจ่าง ขอบพระคุณ อ.สุภาพ อีกครั้งครับ สำหรับความกรุณาตลอดมา ขอบพระคุณ ครับ Suchat ชลบุรี อ้อ อ.สุภาพ ครับ Project Program ดูดวง ผมเสร็จแล้วครับ ขอบพระคุณครับ