:-), 9 lines of code, date transformation Chinese characters shortest version, seems to be short
Function D (x)
IF Int (Split (x, ") (2) / 10) = 0 THEN D = D & F (split (x," - ") (2)) ELSE _
IF split (x, "-") (2) MOD 10 = 0 THEN D = D & f (INT (split (x, "-") (2) / 10)) & "10" ELSE _
D = D & f (INT (Split (x, "-") (2) / 10)) & "10" & f (split (x, "-") (2) MOD 10)
D = f (split (x, "-") (0)) & "year" & monthname (split (x, "-") (1), true) & replace (D, "10", "ten" ) & "Day"
END FUNCTION
Function f (x)
For i = 1 to len (x)
IF MID (X, I, 1) = "0" THEN F = F & "Zero" ELSE F = F & Left (Monthname (MID (X, I, 1), True, 1)
NEXT
END FUNCTION
MSGBOX D (DATE)
Script>