using the cur(time) to create tenths of a second

[tommyjoe]

I am stuck. I can't get the program to show the tenths of a second correct. Any help would be appreciated! Here is the code:

Option Compare Database
Option Explicit
 
Private Sub Form_Timer()
 
Dim curTime As Date
Dim Valhours As Integer
Dim valminutes As Integer
Dim valseconds As Integer
Dim valtenths As Integer
 
curTime = Time
Valhours = Hour(curTime)
valminutes = Minute(curTime)
valseconds = Second(curTime)
valtenths = Second(curTime) * 0.66
 
pgrhours.Value = Valhours
pgrminutes.Value = valminutes
pgrseconds.Value = valseconds
pgrtenths.Value = Second(curTime) * 0.66
 
txthours = Valhours
txtminutes = valminutes
txtseconds = valseconds
txttenths = valtenths
 
End Sub

[Killer42]

I don't think the Date format in VB provides tenths of a second. I think the "granularity" is one second.

Also, how is taking two thirds of the number of seconds supposed to produce a number of tenths of a second? I copied your code, and it appears to work just fine (assuming you did want to show two-thirds of the seconds). For example, when the seconds were 45, the "tenths" showed 30.

You might need to play with the "tick count" or something.