'Month Transformation to Chinese Function Monthtoch (THEMONTH) DIM MM mm = Split ("1, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve", ",") if ISNUMERIC (TheMonth) THEN MONTHTOCH = mm (THEMONTH-1) & "Month" Else Monthtoch = "Month" End IFEND FUNCTION
'Months Transfer to Chinese Function Monthtolongen (Themonth) DIM mm mm = split ("January, February, March, April, May, June, July, August, September, October, November, December", ",") IF ISNUMERIC THEMONTH) THEENTHTOLONGEN = mm (THEMONTH-1) else monthtolongen = "" End IFEND Function
'Month Transformation to Short English Function Monthtoshorten (Themonth) DIM mm mm = Split ("Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, DEC", ",") IF isnumeric THEMONTHTOSHORTEN = mm (THEMONTH-1) else monthtoshorten = "" "End IFEND FUNCTION
