<div>
Perhaps.<br />

<pre><code id="code-20-42529198-1">OrdinalDate:Format([DateField], &quot;d&quot;) &amp; Switch(Day([DateField]) &lt;&gt; 11 And Day([DateField]) Mod 10 = 1, &quot;st&quot;, Day([DateField]) &lt;&gt; 12 And Day([DateField]) Mod 10 = 2, &quot;nd&quot;, Day([DateField]) &lt;&gt; 13 And Day([DateField]) Mod 10 = 3, &quot;rd&quot;, True, &quot;th&quot;) &amp; &quot; &quot; &amp; Format([DateField], &quot;mmmm&quot;)</code></pre>
</div>


Perhaps.


OrdinalDate:Format([DateField], "d") & Switch(Day([DateField]) <> 11 And Day([DateField]) Mod 10 = 1, "st", Day([DateField]) <> 12 And Day([DateField]) Mod 10 = 2, "nd", Day([DateField]) <> 13 And Day([DateField]) Mod 10 = 3, "rd", True, "th") & " " & Format([DateField], "mmmm")

<div>
@Norrie - I need the code in a text box<br />
At the moment I have <b>=Date()</b> &nbsp; &nbsp;Format = dddd - dd mmmm yyyy<br />
<br />
It your code a VBA function?
</div>


@Norrie - I need the code in a text box
At the moment I have =Date()    Format = dddd - dd mmmm yyyy

It your code a VBA function?

Chief Operations Manager

Eirman

<div>
That appears to be working fine Norie<br />
I'll check it with a few different dates before closing the question.
</div>


That appears to be working fine Norie
I'll check it with a few different dates before closing the question.

<div>
I changed the computer clock a few times and everything is okay.<br />
Thank You.
</div>


I changed the computer clock a few times and everything is okay.
Thank You.

<div>
<div class="content wysiwyg-content">
I use the following code in Excel to format today's date like this .......<br />
11th April &nbsp; &nbsp; 3rd April &nbsp; &nbsp; 1st March &nbsp; &nbsp;14th May &nbsp; &nbsp; &nbsp; 31st July<br />
<br />
EXCEL CELL Contains this (No VBA Used)<br />

<pre><code id="code-10-29093887-1">=TEXT(TODAY(),&quot;d&quot;) &amp; IF(OR(MOD(TEXT(TODAY(),&quot;d&quot;),100)={11,12,13}),&quot;th&quot;,CHOOSE(1+MIN(4,MOD(TEXT(TODAY(),&quot;d&quot;),10)),&quot;th&quot;,&quot;st&quot;,&quot;nd&quot;,&quot;rd&quot;,&quot;th&quot;)) &amp; &quot; &quot; &amp; TEXT(TODAY(),&quot;mmmm&quot;)</code></pre>
Can it be adapted to work in Access 2013 ?
</div>
</div>


I use the following code in Excel to format today's date like this .......
11th April     3rd April     1st March    14th May       31st July

EXCEL CELL Contains this (No VBA Used)
(CODE)Can it be adapted to work in Access 2013 ?

Adapt Excel Date Code For Access

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.