Date in Word

[Jamaluddin]

Hi ALL

I am trying to create a report which is basically a School Certificate. The requirement is that I need to print the Issue Date, means the current system date be printed in ENGLISH WORDS rather Alpha-numeric format, i.e.: instead of 11 Mar 2012, I need some thing like this: Eleven March Two Thousand and Twelve.

Please suggest a fruitful solution for the said situation.



Jamal

[June7]

You could write a custom function.

Google: VBA convert number to words

Here is one: http://www.vbexplorer.com/VBExplorer/tips/src36.asp
and another approach http://www.codeproject.com/Articles/...Number-to-Word

Most, if not all, of these code samples concern currency, for check printing, so will have to modify for your requirement. Could write function specific to your situation. Because you have finite set of numbers to convert - 31 days and then however many (50?) years you want, could just build one long Select Case structure.

You will have to parse each date part and call the function with each to return words for day and year. Something like:

= ConvertFunction(Day(Date())) & " " & Format(Date(),"mmmm") & " " & ConvertFunction(Year(Date()))

Alternatively, you can have a table of the numbers and their word equivalents and do a Lookup on the table. This would be fairly quick and simple.

[Jamaluddin]

Alternatively, you can have a table of the numbers and their word equivalents and do a Lookup on the table. This would be fairly quick and simple.

Thanks June7. can you give me an example for this alternative please? I can't figure out how to do this.

[June7]

A table of numbers and word equivalents, like:

Number	Words
1	One
2	Two
2012	Two Thousand and Twelve

Then can use DLookup to return the word string.
DLookup("[Words]", "NumberWords", "[Number]=" & Day(Date()))
DLookup("[Words]", "NumberWords", "[Number]=" & Year(Date()))

[Jamaluddin]

Thanks.... a simple and good solution for complex situation ...