Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示
改成
Chart.AxisX.SetValueLabel(i, cdate(lst(i)).Day) '指定字符表示