Attribute VB_Name = "StatsIt"
'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發(fā)布日期：2007/03/15
'描    述：SINE256加密可視化以及控制示例
'網(wǎng)    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網(wǎng)    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Option Explicit
Public Function GetTimeRemaining(FileL As Double, Chunk As Double, st As Long, i As Double) As Long
    GetTimeRemaining = Round(((Round(((FileL / (i * Chunk)) * (GetTickCount - st)))) - (GetTickCount - st)) / 1000) 'Return a value indicating seconds left
End Function
Public Function GetPercent(i As Double, segment As Double) As Integer
    GetPercent = Round((i * 100) / segment) 'Return a value between 0 and 100
End Function
Public Function GetSpeed(st As Long, Chunk As Double, i As Double) As String
    Dim xMb As Double
    xMb = GetTickCount - st
    xMb = xMb + 0.00001
    xMb = 1000 / xMb
    xMb = (i * Chunk) * xMb
    GetSpeed = GetFileSize(xMb) 'return string like "3.14Mb"
End Function