Technical/Business Aspects in IT

«
»

Calculating time difference in milliseconds in VB6

Posted by scmay on March 23, 2007

As a VB6 programmer, I am finding even more difficult to find pieces of VB6 code these days. As all VB6 programmers might know, VB6 and VB.NET has slight differences (VB.NET is claimed to be 100% Object Oriented)

So here is a snippet of code that calculates the time difference in milliseconds

Public Declare Function GetTickCount Lib “kernel32” () As Long ‘For timer

Function_name()

Dim dtStart As Long
Dim dtEnd As Long
Dim result As Long
Dim i As Integer

dtStart = GetTickCount

‘Do task

dtEnd = GetTickCount
result = dtEnd – dtStart
MsgBox “Duration is ” & result & ” milliseconds.”


End Function

Taken from here

 

Share on Facebook

Like this on Facebook

This entry was posted on March 23, 2007 at 1:49 am and is filed under milliseconds, time difference, vb6. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

8 Responses to “Calculating time difference in milliseconds in VB6”

  1. Tom said

    December 1, 2008 at 3:07 pm

    Thanks, that helped.

    Reply

  2. Sean Henderson said

    June 3, 2009 at 4:13 pm

    Thanks for this piece. Works great. You may want to look at a plugin called codesnippet (http://wordpress.org/extend/plugins/codesnippet-20/) so that its easier to copy and paste code from your blog. I noticed it didn’t paste nicely into vb6. Thanks again.

    Reply

  3. Prabhakaran said

    November 6, 2009 at 5:40 am

    Great, It helped me a lot.

    Thanks

    Reply

  4. Svend said

    December 1, 2009 at 10:57 am

    Great!

    Thanks – a great help 🙂

    Svend
    Denmark

    Reply

  5. Faster Windows 7 said

    March 19, 2010 at 8:40 am

    Hi, Thanks. Having been going through exactly the same issue. Solved now Regards.

    Reply

  6. hacking tribe said

    October 17, 2010 at 3:00 pm

    Thanks! 😉

    Reply

  7. Mayank Jaiswal said

    April 23, 2011 at 5:31 pm

    While copying the code, following characters are not copied properly
    ”
    ‘
    So beware.

    Else code works perfectly. Thanks

    Reply

  8. patricio paredes said

    October 18, 2011 at 9:00 pm

    Public Declare Function GetTickCount Lib “kernel32? () As Long ‘For timer

    Public Function fn_iDaMilisegundos() As Integer
    fn_iDaMilisegundos = GetTickCount() Mod 1000
    End Function

    Ejecuto:
    Dim sHora As String
    sHora = Format(Now, “yyyy-mm-dd Hh:Nn:Ss”) & “.” & Format(fn_iDaMilisegundos(), “000”)

    me da
    2011-10-18 16:13:08.953

    y no inicializo nada!, unicamante la llamo.

    Reply

Leave a comment

«
»