'2004-6-11 => June 11, 2004 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 (tent (split (x, "-") (2) / 10) & "10" Else _ D = D & F (INT (Split (x, "-") (2) / 10)) & "Ten" & f (split (x, "-") (2) MOD 10) D = F (split (x, "-") (0)) & "year" & monthname (split (x, "-") (1), true) & report (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) Nextend Function
MSGBOX D (DATE)
