Milliseconds Format Covertion 1

[cass60660]

I have a time format like : hh:mm:ss.ms
where ms are milliseconds.
I wand to run a DateAdd(IntervalType, Number, FirstDate) where first date is like : mm/dd/yy hh:mm:ss.ms and I receive type mismatch error.
How to convert time into hh:mm:ss, so no milliseconds to make this work.
All it is a VBA Application.

Thank you.

 

[robctech]

Try This

DateAdd(IntervalType, Number, Format(FirstDate, "mm/dd/yy hh:mm:ss&quot)

 

[cass60660]

Nope. Is not working.
type mismatch -> error

 

[CCLINT]

You are going to have to "chop off" the last 3 characters....

 

[cass60660]

That seems to be the only solution.
I will use Split function whith "." as delimiter.
Do you know something else better to chop the last chars.?

 

[vb5prgrmr]

Ok, try something like...
[tt]
Option Explicit

Private Sub Form_Load()

Dim D As Date, VV
VV = "04:05:22.233"

D = RemoveMiliSeconds(VV)

MsgBox D

VV = "14:05:22.233"

D = RemoveMiliSeconds(VV)

MsgBox D

End Sub

Public Function RemoveMiliSeconds(VariantVariable) As Date

RemoveMiliSeconds = CDate(Left(VariantVariable, InStr(1, VariantVariable, ".&quot - 1))

End Function
[/tt]
to get the format you want then you can do your operation.

Good Luck

 

[cass60660]

This is much better.
Thank you.

 

[CCLINT]

And that chops it off...

 

[vb5prgrmr]

CCLINT,

You beat me with your post...