以下是代码片段：

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