Function GetTDWidth_Date(DateType) Select Case DateType Case 0 '不显示 GetTDWidth_Date = 0 Case 1 '2006-09-11 GetTDWidth_Date = 60 Case 2 '9月11日 GetTDWidth_Date = 50 Case 3 '09-11 GetTDWidth_Date = 40 Case 4 '2006年9月11日 GetTDWidth_Date = 80 Case 5 '2006-9-11 10:20:30 GetTDWidth_Date = 120 End Select End Function