% Function TranslateMonth(MyDate) Select Case MyDate Case 1 : TranslateMonth = "Jan" Case 2 : TranslateMonth = "Feb" Case 3 : TranslateMonth = "Mar" Case 4 : TranslateMonth = "Apr" Case 5 : TranslateMonth = "May" Case 6 : TranslateMonth = "Jun" Case 7 : TranslateMonth = "Jul" Case 8 : TranslateMonth = "Aug" Case 9 : TranslateMonth = "Sep" Case 10 : TranslateMonth = "Oct" Case 11 : TranslateMonth = "Nov" Case 12 : TranslateMonth = "Dec" End Select End Function Function TranslateWeekday(MyDate) Select Case MyDate Case 1 : TranslateWeekday = "Sunday" Case 2 : TranslateWeekday = "Monday" Case 3 : TranslateWeekday = "Tuesday" Case 4 : TranslateWeekday = "Wednesday" Case 5 : TranslateWeekday = "Thursday" Case 6 : TranslateWeekday = "Friday" Case 7 : TranslateWeekday = "Saturday" End Select End Function %>
|