ได้แล้วครับ พอด?ไปเจอ ที่นี่

Public Function showday(ByVal olddate As Date) As String
    Select Case Weekday(Now())
        Case 1
        showday = "Sunday"
        Case 2
        showday = "Monday"
        Case 7
        showday = "Saturday"
        Case Else
        showday = "เติมเอาเองครับ"
    End Select
End Function
ปล. ต้องใส่ปี ค.ศ. เท่านั้น

ข้างขึ้นข้างแรม มันเกี่ยวอะไรกับฟังก์ชั่น Weekday( ) ครับ ช่วยอธิบายที

ผมเข้าใจว่า ถามว่า เมื่อ 50 ปีก่อน เป็นวันอะไร สุริยะคติ ครับ เลยเขียนแบบนั้น ถ้าหมายถึง จันทรคติ ไม่ทราบครับ