A
avkokin
How to deduce date in words in Word? For example: July 10, 2007 should
be as "Tenth of July two thousand seventh year"
be as "Tenth of July two thousand seventh year"
D
Dav
Hi Avtokin
Try this in your document using Ctrl+F9
{DATE \@ "dd" \* CARDTEXT} {DATE \@ "MMMM"} {DATE \@ "yyyy" \* CARDTEXT}
Should be ok like this.
Let us know
Greetings from France
Dav
Try this in your document using Ctrl+F9
{DATE \@ "dd" \* CARDTEXT} {DATE \@ "MMMM"} {DATE \@ "yyyy" \* CARDTEXT}
Should be ok like this.
Let us know
Greetings from France
Dav
D
Dav
I have a bit better
Replace the first switch with \* ORDTEXT for the day instead of \* CARDTEXT
It should bring you exactly what you want
Greetings from France
Dav
Replace the first switch with \* ORDTEXT for the day instead of \* CARDTEXT
It should bring you exactly what you want
Greetings from France
Dav
G
Greg Maxey
I am not certain of your requirements and this code can most likely be
refined further, but if you range of dates is reasonable (e.g., this
year, the last few years, or the next few years) I suppose something
like this may do.
Select the date in the document and run this code:
Sub ScratchMacro()
Dim pDate As Date
Dim pStr As String
Dim pBuildStr As String
If IsDate(Selection.Range) Then
pDate = Selection.Range.Text
pStr = Format(pDate, "dd MMMM yyyy")
Select Case Left(pStr, 2)
Case Is = "01": pBuildStr = "First day of "
Case Is = "02": pBuildStr = "Second day of "
Case Is = "03": pBuildStr = "Third day of "
Case Is = "04": pBuildStr = "Fourth day of "
Case Is = "05": pBuildStr = "Fifth day of "
Case Is = "06": pBuildStr = "Sixth day of "
Case Is = "07": pBuildStr = "Seventh day of "
Case Is = "08": pBuildStr = "Eigth day of "
'And so on
End Select
pBuildStr = pBuildStr + Mid(pStr, 4, Len(pStr) - 7)
Select Case Right(pDate, 4)
Case Is = "2005": pBuildStr = pBuildStr + "two thousand fifth
year"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand sixth
year"
Case Is = "2007": pBuildStr = pBuildStr + "two thousand seventh
year"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand eight
year"
Case Is = "2009": pBuildStr = pBuildStr + "two thousand ninth
year"
End Select
Selection.Range.Text = pBuildStr
End If
End Sub
A
avkokin
Thank you very much.
I should explain the requirements.
It is necessary to insert date into the document. But date should
consist of words completely. That is it is necessary to convert date
at line (day, month and year). Your code almost satisfies to my
inquiries and works well. But year should not be set rigidly. Thanks
for the help.
G
Graham Mayor
I think we have a small language problem here 
Do you want to insert the date, or convert a date that is already inserted?
If the former, a slight modification to Greg's code will do the job:
Sub ScratchMacro()
Dim pDate As Date
Dim pStr As String
Dim pBuildStr As String
pStr = Format(Date, "dd MMMM yyyy")
Select Case Left(pStr, 2)
Case Is = "01": pBuildStr = "First of "
Case Is = "02": pBuildStr = "Second of "
Case Is = "03": pBuildStr = "Third of "
Case Is = "04": pBuildStr = "Fourth of "
Case Is = "05": pBuildStr = "Fifth of "
Case Is = "06": pBuildStr = "Sixth of "
Case Is = "07": pBuildStr = "Seventh of "
Case Is = "08": pBuildStr = "Eighth of "
Case Is = "09": pBuildStr = "Ninth of "
Case Is = "10": pBuildStr = "Tenth of "
Case Is = "11": pBuildStr = "Eleventh of "
Case Is = "12": pBuildStr = "Twelfth of "
Case Is = "13": pBuildStr = "Thirteenth of "
Case Is = "14": pBuildStr = "Fourteenth of "
Case Is = "15": pBuildStr = "Fifteenth of "
Case Is = "16": pBuildStr = "Sixteenth of "
Case Is = "17": pBuildStr = "Seventeenth of "
Case Is = "18": pBuildStr = "Eighteenth of "
Case Is = "19": pBuildStr = "Nineteenth of "
Case Is = "20": pBuildStr = "Twentieth of "
Case Is = "21": pBuildStr = "Twenty First of "
Case Is = "22": pBuildStr = "Twenty Second of "
Case Is = "23": pBuildStr = "Twenty Third of "
Case Is = "24": pBuildStr = "Twenty Fourth of "
Case Is = "25": pBuildStr = "Twenty Fifth of "
Case Is = "26": pBuildStr = "Twenty Sixth of "
Case Is = "27": pBuildStr = "Twenty Seventh of "
Case Is = "28": pBuildStr = "Twenty Eighth of "
Case Is = "29": pBuildStr = "Twenty Ninth of "
Case Is = "30": pBuildStr = "Thirtieth of "
Case Is = "31": pBuildStr = "Thirty First of "
End Select
pBuildStr = pBuildStr + Mid(pStr, 4, Len(pStr) - 7)
Select Case Right(pStr, 4)
Case Is = "2005": pBuildStr = pBuildStr + "two thousand fifth"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand sixth"
Case Is = "2007": pBuildStr = pBuildStr + "two thousand seventh"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand eighth"
Case Is = "2009": pBuildStr = pBuildStr + "two thousand ninth"
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
Selection.TypeText pBuildStr & " year"
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Do you want to insert the date, or convert a date that is already inserted?
If the former, a slight modification to Greg's code will do the job:
Sub ScratchMacro()
Dim pDate As Date
Dim pStr As String
Dim pBuildStr As String
pStr = Format(Date, "dd MMMM yyyy")
Select Case Left(pStr, 2)
Case Is = "01": pBuildStr = "First of "
Case Is = "02": pBuildStr = "Second of "
Case Is = "03": pBuildStr = "Third of "
Case Is = "04": pBuildStr = "Fourth of "
Case Is = "05": pBuildStr = "Fifth of "
Case Is = "06": pBuildStr = "Sixth of "
Case Is = "07": pBuildStr = "Seventh of "
Case Is = "08": pBuildStr = "Eighth of "
Case Is = "09": pBuildStr = "Ninth of "
Case Is = "10": pBuildStr = "Tenth of "
Case Is = "11": pBuildStr = "Eleventh of "
Case Is = "12": pBuildStr = "Twelfth of "
Case Is = "13": pBuildStr = "Thirteenth of "
Case Is = "14": pBuildStr = "Fourteenth of "
Case Is = "15": pBuildStr = "Fifteenth of "
Case Is = "16": pBuildStr = "Sixteenth of "
Case Is = "17": pBuildStr = "Seventeenth of "
Case Is = "18": pBuildStr = "Eighteenth of "
Case Is = "19": pBuildStr = "Nineteenth of "
Case Is = "20": pBuildStr = "Twentieth of "
Case Is = "21": pBuildStr = "Twenty First of "
Case Is = "22": pBuildStr = "Twenty Second of "
Case Is = "23": pBuildStr = "Twenty Third of "
Case Is = "24": pBuildStr = "Twenty Fourth of "
Case Is = "25": pBuildStr = "Twenty Fifth of "
Case Is = "26": pBuildStr = "Twenty Sixth of "
Case Is = "27": pBuildStr = "Twenty Seventh of "
Case Is = "28": pBuildStr = "Twenty Eighth of "
Case Is = "29": pBuildStr = "Twenty Ninth of "
Case Is = "30": pBuildStr = "Thirtieth of "
Case Is = "31": pBuildStr = "Thirty First of "
End Select
pBuildStr = pBuildStr + Mid(pStr, 4, Len(pStr) - 7)
Select Case Right(pStr, 4)
Case Is = "2005": pBuildStr = pBuildStr + "two thousand fifth"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand sixth"
Case Is = "2007": pBuildStr = pBuildStr + "two thousand seventh"
Case Is = "2008": pBuildStr = pBuildStr + "two thousand eighth"
Case Is = "2009": pBuildStr = pBuildStr + "two thousand ninth"
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
Selection.TypeText pBuildStr & " year"
End Sub
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
M
macropod
How about a field code solution:
{QUOTE{ASK MyDate "Please Input the date"}
{MyDate \@ "dddd 'the {MyDate \@ d \* OrdText} of' MMMM, "}
{=INT({MyDate \@ yyyy}/100)*100 \* CardText}
{IF{=MOD({MyDate \@ yyyy},100)}= 0 "th" " and {=MOD({MyDate \@ yyyy},100) \* OrdText}"}" year."}
to return text like "Saturday the first of January, two thousandth year." and "Monday the first of January, two thousand and seventh
year."
Alternatively:
{QUOTE{ASK MyDate "Please Input the date"}
{MyDate \@ "dddd 'the { MyDate \@ d \* OrdText} of' MMMM, "}
{MyDate \@ yyyy \* OrdText}" year."}
to return text like "Saturday the first of January, two thousandth year." and "Monday the first of January, two thousand seventh
year."
The difference between these two is the inclusion of code to insert 'and' in the year string for the first example for years other
than centuries.
Cheers
{QUOTE{ASK MyDate "Please Input the date"}
{MyDate \@ "dddd 'the {MyDate \@ d \* OrdText} of' MMMM, "}
{=INT({MyDate \@ yyyy}/100)*100 \* CardText}
{IF{=MOD({MyDate \@ yyyy},100)}= 0 "th" " and {=MOD({MyDate \@ yyyy},100) \* OrdText}"}" year."}
to return text like "Saturday the first of January, two thousandth year." and "Monday the first of January, two thousand and seventh
year."
Alternatively:
{QUOTE{ASK MyDate "Please Input the date"}
{MyDate \@ "dddd 'the { MyDate \@ d \* OrdText} of' MMMM, "}
{MyDate \@ yyyy \* OrdText}" year."}
to return text like "Saturday the first of January, two thousandth year." and "Monday the first of January, two thousand seventh
year."
The difference between these two is the inclusion of code to insert 'and' in the year string for the first example for years other
than centuries.
Cheers
D
Dav
Hi there
Why making things so long and complicated when it could so simple and easy
using things which already exist?
For exemple :
Sub IncludeDate()
'
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""dd"" \*
ORDTEXT", PreserveFormatting:=True
Selection.TypeText Text:=" of "
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""MMMM""",
PreserveFormatting:=True
Selection.TypeText Text:=" "
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""yyyy"" \*
ORDTEXT", PreserveFormatting:=True
Selection.TypeText Text:=" year"
End Sub
And it works very well.
Maybe i am missing the point...
Greetings from France
Dav
Why making things so long and complicated when it could so simple and easy
using things which already exist?
For exemple :
Sub IncludeDate()
'
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""dd"" \*
ORDTEXT", PreserveFormatting:=True
Selection.TypeText Text:=" of "
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""MMMM""",
PreserveFormatting:=True
Selection.TypeText Text:=" "
Selection.Fields.Add Range:=Selection.Range, Text:="DATE \@ ""yyyy"" \*
ORDTEXT", PreserveFormatting:=True
Selection.TypeText Text:=" year"
End Sub
And it works very well.
Maybe i am missing the point...
Greetings from France
Dav
G
Greg Maxey
Dav,
I wasn't trying to make things long or complicated. I simply enjoy writing
code. Otherwise I wouldn't be here ;-)
I think your suggestion is fine if the user only wants to insert today's
date.
I wasn't trying to make things long or complicated. I simply enjoy writing
code. Otherwise I wouldn't be here ;-)
I think your suggestion is fine if the user only wants to insert today's
date.
G
Greg Maxey
Here is something even longer and more complicated that should handle this
and the last millenium:
Sub ScratchMacro()
Dim pDate As Date
Dim pStr As String
Dim pBuildStr As String
Dim bRefine As Boolean
On Error GoTo Err_Handler
pDate = CDate(InputBox("Enter the date", "Date"))
pStr = Format(pDate, "dd MMMM yyyy")
Select Case Left(pStr, 2)
Case Is = "01": pBuildStr = "First of "
Case Is = "02": pBuildStr = "Second of "
Case Is = "03": pBuildStr = "Third of "
Case Is = "04": pBuildStr = "Fourth of "
Case Is = "05": pBuildStr = "Fifth of "
Case Is = "06": pBuildStr = "Sixth of "
Case Is = "07": pBuildStr = "Seventh of "
Case Is = "08": pBuildStr = "Eighth of "
Case Is = "09": pBuildStr = "Ninth of "
Case Is = "10": pBuildStr = "Tenth of "
Case Is = "11": pBuildStr = "Eleventh of "
Case Is = "12": pBuildStr = "Twelfth of "
Case Is = "13": pBuildStr = "Thirteenth of "
Case Is = "14": pBuildStr = "Fourteenth of "
Case Is = "15": pBuildStr = "Fifteenth of "
Case Is = "16": pBuildStr = "Sixteenth of "
Case Is = "17": pBuildStr = "Seventeenth of "
Case Is = "18": pBuildStr = "Eighteenth of "
Case Is = "19": pBuildStr = "Nineteenth of "
Case Is = "20": pBuildStr = "Twentieth of "
Case Is = "21": pBuildStr = "Twenty first of "
Case Is = "22": pBuildStr = "Twenty second of "
Case Is = "23": pBuildStr = "Twenty third of "
Case Is = "24": pBuildStr = "Twenty fourth of "
Case Is = "25": pBuildStr = "Twenty fifth of "
Case Is = "26": pBuildStr = "Twenty sixth of "
Case Is = "27": pBuildStr = "Twenty seventh of "
Case Is = "28": pBuildStr = "Twenty eighth of "
Case Is = "29": pBuildStr = "Twenty ninth of "
Case Is = "30": pBuildStr = "Thirtieth of "
Case Is = "31": pBuildStr = "Thirty first of "
End Select
pBuildStr = pBuildStr + Mid(pStr, 4, Len(pStr) - 7)
Select Case Right(pStr, 4)
Case Is = "1900": pBuildStr = pBuildStr + "nineteen hundredth"
Case Is = "2000": pBuildStr = pBuildStr + "two thousandth"
Case Else
Select Case Mid(pStr, Len(pStr) - 3, 1)
Case Is = "1": pBuildStr = pBuildStr + "one thousand"
Case Is = "2": pBuildStr = pBuildStr + "two thousand"
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
Select Case Mid(pStr, Len(pStr) - 2, 1)
Case Is = "0": pBuildStr = pBuildStr + " "
Case Is = "1"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " one hundredth"
Else
pBuildStr = pBuildStr + " one hundred"
End If
Case Is = "2"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " two hundredth"
Else
pBuildStr = pBuildStr + " two hundred"
End If
Case Is = "3"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " three hundredth"
Else
pBuildStr = pBuildStr + " three hundred"
End If
Case Is = "4"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " four hundredth"
Else
pBuildStr = pBuildStr + " four hundred"
End If
Case Is = "5"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " five hundredth"
Else
pBuildStr = pBuildStr + " five hundred"
End If
Case Is = "6"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " six hundredth"
Else
pBuildStr = pBuildStr + " six hundred"
End If
Case Is = "7"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " seven hundredth"
Else
pBuildStr = pBuildStr + " seven hundred"
End If
Case Is = "8"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " eight hundredth"
Else
pBuildStr = pBuildStr + " eight hundred"
End If
Case Is = "9"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " nine hundredth"
Else
pBuildStr = pBuildStr + " nine hundred"
End If
End Select
Select Case Mid(pStr, Len(pStr) - 1, 1)
Case Is = "0"
bRefine = True
Case Is = "1"
Select Case Right(pStr, 1)
Case Is = "0": pBuildStr = pBuildStr + " tenth"
Case Is = "1": pBuildStr = pBuildStr + " eleventh"
Case Is = "2": pBuildStr = pBuildStr + " twelveth"
Case Is = "3": pBuildStr = pBuildStr + " thirteenth"
Case Is = "4": pBuildStr = pBuildStr + " fourteeth"
Case Is = "5": pBuildStr = pBuildStr + " fifteenth"
Case Is = "6": pBuildStr = pBuildStr + " sixteeth"
Case Is = "7": pBuildStr = pBuildStr + " seventeeth"
Case Is = "8": pBuildStr = pBuildStr + " eighteenth"
Case Is = "9": pBuildStr = pBuildStr + " nineteenth"
End Select
Case Is = "2"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " twentieth"
Else
pBuildStr = pBuildStr + " twenty"
bRefine = True
End If
Case Is = "3"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " thritieth"
Else
pBuildStr = pBuildStr + " thirty"
bRefine = True
End If
Case Is = "4"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " fortieth"
Else
pBuildStr = pBuildStr + " forty"
bRefine = True
End If
Case Is = "5"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " fiftieth"
Else
pBuildStr = pBuildStr + " fifty"
bRefine = True
End If
Case Is = "6"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " sixtieth"
Else
pBuildStr = pBuildStr + " sixty"
bRefine = True
End If
Case Is = "7"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " seventieth"
Else
pBuildStr = pBuildStr + " seventy"
bRefine = True
End If
Case Is = "8"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " eightieth"
Else
pBuildStr = pBuildStr + " eighty"
bRefine = True
End If
Case Is = "9"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " ninetieth"
Else
pBuildStr = pBuildStr + " ninety"
bRefine = True
End If
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
End Select
If bRefine Then
Select Case Right(pStr, 1)
Case Is = "1": pBuildStr = pBuildStr + " first"
Case Is = "2": pBuildStr = pBuildStr + " second"
Case Is = "3": pBuildStr = pBuildStr + " third"
Case Is = "4": pBuildStr = pBuildStr + " fourth"
Case Is = "5": pBuildStr = pBuildStr + " fifth"
Case Is = "6": pBuildStr = pBuildStr + " sixth"
Case Is = "7": pBuildStr = pBuildStr + " seventh"
Case Is = "8": pBuildStr = pBuildStr + " eighth"
Case Is = "9": pBuildStr = pBuildStr + " ninth"
End Select
End If
Selection.TypeText pBuildStr & " year"
Exit Sub
Err_Handler:
If Err.Number = 13 Then
MsgBox "You must enter a valid date format e.g., 11 SEP 2000"
Resume
End If
End Sub
and the last millenium:
Sub ScratchMacro()
Dim pDate As Date
Dim pStr As String
Dim pBuildStr As String
Dim bRefine As Boolean
On Error GoTo Err_Handler
pDate = CDate(InputBox("Enter the date", "Date"))
pStr = Format(pDate, "dd MMMM yyyy")
Select Case Left(pStr, 2)
Case Is = "01": pBuildStr = "First of "
Case Is = "02": pBuildStr = "Second of "
Case Is = "03": pBuildStr = "Third of "
Case Is = "04": pBuildStr = "Fourth of "
Case Is = "05": pBuildStr = "Fifth of "
Case Is = "06": pBuildStr = "Sixth of "
Case Is = "07": pBuildStr = "Seventh of "
Case Is = "08": pBuildStr = "Eighth of "
Case Is = "09": pBuildStr = "Ninth of "
Case Is = "10": pBuildStr = "Tenth of "
Case Is = "11": pBuildStr = "Eleventh of "
Case Is = "12": pBuildStr = "Twelfth of "
Case Is = "13": pBuildStr = "Thirteenth of "
Case Is = "14": pBuildStr = "Fourteenth of "
Case Is = "15": pBuildStr = "Fifteenth of "
Case Is = "16": pBuildStr = "Sixteenth of "
Case Is = "17": pBuildStr = "Seventeenth of "
Case Is = "18": pBuildStr = "Eighteenth of "
Case Is = "19": pBuildStr = "Nineteenth of "
Case Is = "20": pBuildStr = "Twentieth of "
Case Is = "21": pBuildStr = "Twenty first of "
Case Is = "22": pBuildStr = "Twenty second of "
Case Is = "23": pBuildStr = "Twenty third of "
Case Is = "24": pBuildStr = "Twenty fourth of "
Case Is = "25": pBuildStr = "Twenty fifth of "
Case Is = "26": pBuildStr = "Twenty sixth of "
Case Is = "27": pBuildStr = "Twenty seventh of "
Case Is = "28": pBuildStr = "Twenty eighth of "
Case Is = "29": pBuildStr = "Twenty ninth of "
Case Is = "30": pBuildStr = "Thirtieth of "
Case Is = "31": pBuildStr = "Thirty first of "
End Select
pBuildStr = pBuildStr + Mid(pStr, 4, Len(pStr) - 7)
Select Case Right(pStr, 4)
Case Is = "1900": pBuildStr = pBuildStr + "nineteen hundredth"
Case Is = "2000": pBuildStr = pBuildStr + "two thousandth"
Case Else
Select Case Mid(pStr, Len(pStr) - 3, 1)
Case Is = "1": pBuildStr = pBuildStr + "one thousand"
Case Is = "2": pBuildStr = pBuildStr + "two thousand"
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
Select Case Mid(pStr, Len(pStr) - 2, 1)
Case Is = "0": pBuildStr = pBuildStr + " "
Case Is = "1"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " one hundredth"
Else
pBuildStr = pBuildStr + " one hundred"
End If
Case Is = "2"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " two hundredth"
Else
pBuildStr = pBuildStr + " two hundred"
End If
Case Is = "3"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " three hundredth"
Else
pBuildStr = pBuildStr + " three hundred"
End If
Case Is = "4"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " four hundredth"
Else
pBuildStr = pBuildStr + " four hundred"
End If
Case Is = "5"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " five hundredth"
Else
pBuildStr = pBuildStr + " five hundred"
End If
Case Is = "6"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " six hundredth"
Else
pBuildStr = pBuildStr + " six hundred"
End If
Case Is = "7"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " seven hundredth"
Else
pBuildStr = pBuildStr + " seven hundred"
End If
Case Is = "8"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " eight hundredth"
Else
pBuildStr = pBuildStr + " eight hundred"
End If
Case Is = "9"
If Right(pStr, 2) = "00" Then
pBuildStr = pBuildStr + " nine hundredth"
Else
pBuildStr = pBuildStr + " nine hundred"
End If
End Select
Select Case Mid(pStr, Len(pStr) - 1, 1)
Case Is = "0"
bRefine = True
Case Is = "1"
Select Case Right(pStr, 1)
Case Is = "0": pBuildStr = pBuildStr + " tenth"
Case Is = "1": pBuildStr = pBuildStr + " eleventh"
Case Is = "2": pBuildStr = pBuildStr + " twelveth"
Case Is = "3": pBuildStr = pBuildStr + " thirteenth"
Case Is = "4": pBuildStr = pBuildStr + " fourteeth"
Case Is = "5": pBuildStr = pBuildStr + " fifteenth"
Case Is = "6": pBuildStr = pBuildStr + " sixteeth"
Case Is = "7": pBuildStr = pBuildStr + " seventeeth"
Case Is = "8": pBuildStr = pBuildStr + " eighteenth"
Case Is = "9": pBuildStr = pBuildStr + " nineteenth"
End Select
Case Is = "2"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " twentieth"
Else
pBuildStr = pBuildStr + " twenty"
bRefine = True
End If
Case Is = "3"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " thritieth"
Else
pBuildStr = pBuildStr + " thirty"
bRefine = True
End If
Case Is = "4"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " fortieth"
Else
pBuildStr = pBuildStr + " forty"
bRefine = True
End If
Case Is = "5"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " fiftieth"
Else
pBuildStr = pBuildStr + " fifty"
bRefine = True
End If
Case Is = "6"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " sixtieth"
Else
pBuildStr = pBuildStr + " sixty"
bRefine = True
End If
Case Is = "7"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " seventieth"
Else
pBuildStr = pBuildStr + " seventy"
bRefine = True
End If
Case Is = "8"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " eightieth"
Else
pBuildStr = pBuildStr + " eighty"
bRefine = True
End If
Case Is = "9"
If Right(pStr, 1) = "0" Then
pBuildStr = pBuildStr + " ninetieth"
Else
pBuildStr = pBuildStr + " ninety"
bRefine = True
End If
Case Else
MsgBox ("Date Out Of Range")
Exit Sub
End Select
End Select
If bRefine Then
Select Case Right(pStr, 1)
Case Is = "1": pBuildStr = pBuildStr + " first"
Case Is = "2": pBuildStr = pBuildStr + " second"
Case Is = "3": pBuildStr = pBuildStr + " third"
Case Is = "4": pBuildStr = pBuildStr + " fourth"
Case Is = "5": pBuildStr = pBuildStr + " fifth"
Case Is = "6": pBuildStr = pBuildStr + " sixth"
Case Is = "7": pBuildStr = pBuildStr + " seventh"
Case Is = "8": pBuildStr = pBuildStr + " eighth"
Case Is = "9": pBuildStr = pBuildStr + " ninth"
End Select
End If
Selection.TypeText pBuildStr & " year"
Exit Sub
Err_Handler:
If Err.Number = 13 Then
MsgBox "You must enter a valid date format e.g., 11 SEP 2000"
Resume
End If
End Sub
G
Graham Mayor
Another problem is that you are inserting date fields which will update to
show the system date of the computer, which is rarely what is required. You
could modify it to include createdate fields, which would be a bit better
Sub IncludeDate()
With Selection
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""dd""
\*ORDTEXT \*CAPS"
.TypeText Text:=" of "
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""MMMM"""
.TypeText Text:=" "
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""yyyy""
\*ORDTEXT "
.TypeText Text:=" year"
End With
End Sub
but if you want more flexibility the simpleset solutions are not always the
best solutions. If using fields, macropod's solution is the neatest, but
even that could do with a minor modification thus:
{ QUOTE{ ASK MyDate "Please Input the date" \d { Date}}
{ MyDate \@ "'{ MyDate \@ d \* OrdText } of' MMMM, "\*FirstCap }
{ =INT({ MyDate \@ yyyy }/100)*100 \* CardText }
{ IF{ =MOD({ MyDate \@ yyyy },100) }= 0 "th" " and { =MOD({ MyDate \@
yyyy },100) \* OrdText }" }" year." }
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
show the system date of the computer, which is rarely what is required. You
could modify it to include createdate fields, which would be a bit better
Sub IncludeDate()
With Selection
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""dd""
\*ORDTEXT \*CAPS"
.TypeText Text:=" of "
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""MMMM"""
.TypeText Text:=" "
.Fields.Add Range:=Selection.Range, Text:="CREATEDATE \@ ""yyyy""
\*ORDTEXT "
.TypeText Text:=" year"
End With
End Sub
but if you want more flexibility the simpleset solutions are not always the
best solutions. If using fields, macropod's solution is the neatest, but
even that could do with a minor modification thus:
{ QUOTE{ ASK MyDate "Please Input the date" \d { Date}}
{ MyDate \@ "'{ MyDate \@ d \* OrdText } of' MMMM, "\*FirstCap }
{ =INT({ MyDate \@ yyyy }/100)*100 \* CardText }
{ IF{ =MOD({ MyDate \@ yyyy },100) }= 0 "th" " and { =MOD({ MyDate \@
yyyy },100) \* OrdText }" }" year." }
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
M
macropod
Of course one could use a macro to input simple date fields, then lock them or convert them to plain text. Might be a whole lot
simpler than the other coding solutions in this thread ...
Cheers
simpler than the other coding solutions in this thread ...
Cheers
A
avkokin
Thank you, Greg. Your second code is that what I need.
Hearty thanks all who has answered!