Ok, board masters........heres one........dealing in time co

[jdavis9]

I have vb code/form which will go into a data set, find an event based on a user input, graph 16 columns of data on individual graphs based on the address of the event (example...$b$6300). The user inputs amount of time prior to event at b6300 and the amount of time after the event to plot. All of this works fine.
The problem arrises when I try to place a text box on each graph containing the time of the actual event. The time is located in the column next to the event (a6300). I currently assign the the time to a variable "EVENTTIME". When the time goes in the box, its is in serial format (0-23:59:59 = 0-.99999999).
Question = How do I get the format in the text box (automatically) to be in hh:mm:ss.000 format?

 

[Mark O'Brien]

This is just a simple example, do you really need milliseconds? The only way I know to do this includes using an API call:

<pre>
Public Sub datedemo()

Dim EVENTTIME As Date


EVENTTIME = FormatDateTime(Now, vbLongTime)
MsgBox EVENTTIME


End Sub</pre>

HTH

 

[jdavis9]

The data comes from a data acquisitions system a 200 samples per second or a delta time of 0.005 seconds. I need the event time within 20 milliseconds, so I could live with display of hh:mm:ss.00. I can get the time on all of the graphs if I type it into a text block. But something about extracting it from the worksheet converts it.

 

[jdavis9]

The lookup is as follows

do until activecell.value > event or activecell.value = vbnullstring
activecell.offset(1,0).select
loop

if activecell.value = vbnullstring end sub
EVENTTIME = activcell.offset(0,1).value

Later the value is used to populate a text box.

 

[Mark O'Brien]

Try using the "Text" property of the cell rather than the "Value" property:

e.g.

<pre>
EVENTTIME = activecell.offset(0,1).Text</pre>

HTH

 

[jdavis9]

Thanks Mark, never thought of that.

Works great!

 

[Mark O'Brien]

Always glad to help out other utilities.

(I'm AEP)