如何讀取萬年曆後一次傳回一年份的星期幾(編號:8049)

如題,一個是要讀取系統的萬年曆,之後可以手動選擇該年的休假日(如星期六或星期日);另一種是必須自己寫萬年曆之後,再做上述的第二要求,均需要輸出到Access,格式為日期與假日名稱,使用VB6.0