以下是代碼片段：

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