<div>
use the equivalent random number routing.<br />
A1 &nbsp; &nbsp;=RANDBETWEEN (0,23) <br />
A2 &nbsp; =RANDBETWEEN(0,59)<br />
A3 &nbsp; &nbsp;=RANDBETWEEN(0,59)<br />
A4 &nbsp; &nbsp;=CONCATENATE(TEXT(A1,&quot;0&quot;),<wbr />&quot;:&quot;,TEXT(A<wbr />2,&quot;00&quot;),&quot;:<wbr />&quot;,TEXT(A3,<wbr />&quot;00&quot;))<br />
<a href="https://filedb.experts-exchange.com/incoming/2017/03_w10/1150310/ee29008433.xlsx" target="_blank" class="file-inline" title="Semple (13 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ee29008433.xlsx</a>
</div>


ee29008433.xlsx

<div>
Hi David,<br />
<br />
Thanks for your comment.<br />
<br />
I was wanting to do this in VB to use as a function in Access and not using Excel formulae. &nbsp;Where I am stuck is writing the correct syntax to achieve it.<br />
<br />
Something along the lines of :<br />
<br />

<pre><code class="code-10 nolinks" id="code-20-42044716-1"><span>Function RandomTimeStamp() As String</span>
<span>'generates a random time stamp for a 24 hour period</span>
<span></span>
<span>    'declare variables -&gt;</span>
<span>    Dim intHour As Integer</span>
<span>    Dim intMinute As Integer</span>
<span>    Dim intSecond As Integer</span>
<span>    Dim strTimeStamp As String</span>
<span>    </span>
<span>    intHour = ((Rnd * 24) - 1) / 24</span>
<span>    Debug.Print &quot;H:&quot; &amp; intHour</span>
<span>    intMinute = ((Rnd * 60) - 1) / (60 * 24)</span>
<span>    Debug.Print &quot;M:&quot; &amp; intMinute</span>
<span>    intSecond = ((Rnd * 60) - 1) / (60 * 24)</span>
<span>    Debug.Print &quot;S:&quot; &amp; intSecond</span>
<span>    strTimeStamp = intHour &amp; &quot;:&quot; &amp; intMinute &amp; &quot;:&quot; &amp; intSecond &amp; &quot;AM&quot;</span>
<span></span>
<span>End Function</span>
</code></pre>
</div>


<div>
Hi,<br />
<br />
For you constraints you may try something like this:<br />

<pre><code class="code-1 nolinks" id="code-20-42044800-1"><span>=TEXT(RAND()*(8-6)/24+6/24,&quot;HH:MM:SS&quot;)</span>
</code></pre>
</div>


<div>
Hi gustav ,<br />
<br />
Thanks for providing such a comprehensive solution for my question. &nbsp;Although it does not allow for 12/24 hour switching, I am happy with the result.<br />
<br />
Regards,<br />
Tala
</div>


<div>
I don't know what &quot;12/24 switching&quot; should mean. Date/time values has no format, so you can format values as you like.<br />
<br />
/gustav
</div>


<div>
Hopefully there are no objections but I am awarding this to gustav whom provided a working solution in VB which is what I asked for in my initial post.<br />
<br />
Thanks to all for your input.<br />
<br />
Tala
</div>


<div>
Gustav, you are right. &nbsp;I will need to address this at the presentation layer. &nbsp; Thanks again
</div>


<div>
You are welcome!<br />
<br />
/gustav
</div>


<div>
<div class="content wysiwyg-content">
All,<br />
<br />
I'm wanting to generate some random 12/24 hour times in VB without the date portion. &nbsp;These times are stored in an Access table as Text values. <br />
<br />
Ideally, I would also be able to specify some constraints as well, for example between 8am and 6pm.<br />
<br />
<b>Samples</b>:<br />
<br />
<u>24hr</u><br />
14:02:23 PM<br />
19:54:04 PM<br />
03:27:45 AM<br />
<br />
<u>12hr</u><br />
2:02:23 PM<br />
7:54:04 PM<br />
3:27:45 AM<br />
<br />
Any suggestions?
</div>
</div>


All,

I'm wanting to generate some random 12/24 hour times in VB without the date portion.  These times are stored in an Access table as Text values. 

Ideally, I would also be able to specify some constraints as well, for example between 8am and 6pm.

Samples:

24hr
14:02:23 PM
19:54:04 PM
03:27:45 AM

12hr
2:02:23 PM
7:54:04 PM
3:27:45 AM

Any suggestions?

Random times with 12/24 hour switching

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.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.