下载时间计算器(计时器下载安装)

最完美公式。21200x1024/500/60=（分钟），小学生不懂的可以再除以60=小时。也就是说拿文件大小转成千单位或者万单位，百单位，乘以1024这个公式再除以下载速度再除以时间就可以了，网络不稳定我一直用这个来计算手机下载时间。
按21.2GB≈212000MB，500KB≈0.5MB，212000MB÷0.5MB/s÷3600s=117.78小时，即以平均下载速度500KB/s，下载21.2GB的文件约需近5天（117.78÷24）时间。

按计算器上的[°'"]键比如15:00-13:10如图:结果为1小时50分钟

将下面代码复制到txt文件中，并将其保存为Form1.frm，然后运行 但是要注意：填入的时间不能隔日，即开始时间与结束时间都必须在同一天。VERSION 5.00Begin VB.Form Form1Caption = "Form1"ClientHeight= 6165ClientLeft= 60ClientTop = 450ClientWidth = 10035LinkTopic = "Form1"ScaleHeight = 6165ScaleWidth= 10035StartUpPosition = 3'窗口缺省Begin VB.CommandButton Command1Caption = "计算"Height= 495Left= 3480TabIndex= 10Top = 3120Width = 1215EndBegin VB.TextBox Text4Height= 495Left= 4920TabIndex= 8Text= "8"Top = 1200Width = 615EndBegin VB.TextBox Text3Height= 495Left= 3960TabIndex= 6Text= "5"Top = 1200Width = 615EndBegin VB.TextBox Text2Height= 495Left= 4920TabIndex= 5Text= "5"Top = 480Width = 615EndBegin VB.TextBox Text1Height= 495Left= 3960TabIndex= 4Text= "3"Top = 480Width = 615EndBegin VB.Label Label6Height= 495Left= 2880TabIndex= 9Top = 2400Width = 2535EndBegin VB.Label Label4Caption = "："Height= 495Left= 4680TabIndex= 7Top = 1320Width = 135EndBegin VB.Label Label5Height= 495Left= 3000TabIndex= 3Top = 1920Width = 2535EndBegin VB.Label Label3Caption = "："Height= 495Left= 4680TabIndex= 2Top = 720Width = 135EndBegin VB.Label Label2Caption = "结束时间"Height= 495Left= 3000TabIndex= 1Top = 1320Width = 855EndBegin VB.Label Label1Caption = "开始时间"Height= 255Left= 3000TabIndex= 0Top = 600Width = 735EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim T1 As Integer, T2 As Integer, T3 As IntegerT1 = Val(Text1) * 60 + Val(Text2)T2 = Val(Text3) * 60 + Val(Text4)T3 = T2 - T1Label5 = "总分钟数：" & T3Label6 = "总金额（元）：" & Int((T3 / 60 * 2.5) * 10 + 0.5) / 10 End Sub
Private Sub Command1_Click() Dim st As DateDim ed As Datest = CDate(Text1.Text & ":" & Text2.Text)ed = CDate(Text3.Text & ":" & Text4.Text)Dim v As DoubleDim m As Longm = DateDiff("n", st, ed)v = m * 2.5Label5.Caption = "总计时间" & m & "分钟"Label6.Caption = "总金额" & vEnd SubPrivate Sub Form_Load()Label1.Caption = "开始时间"Label2.Caption = "结事时间"Text1 = ""Label3.Caption = ":"Text2 = ""Text3 = ""Label4.Caption = ":"Text4 = ""Label5.Caption = "总计时间"Label6.Caption = "总金额"Command1.Caption = "计算" End Sub
Private Sub Command1_Click() Dim st As DateDim ed As Datest = CDate(Text1.Text & ":" & Text2.Text)ed = CDate(Text3.Text & ":" & Text4.Text)Dim v As DoubleDim m As Longm = DateDiff("n", st, ed)v = m * 2.5Label5.Caption = "总计时间" & m & "分钟"Label6.Caption = "总金额" & vEnd SubPrivate Sub Form_Load()Label1.Caption = "开始时间"Label2.Caption = "结事时间"Text1 = ""Label3.Caption = ":"Text2 = ""Text3 = ""Label4.Caption = ":"Text4 = ""Label5.Caption = "总计时间"Label6.Caption = "总金额"Command1.Caption = "计算"End Sub 行不行啊这可可能不行
1L的很不错啊~~怎么会不行~~

Dim objfs,objargs Set objargs=WScript.ArgumentsSet objfs=CreateObject("scripting.filesystemobject")Set f=objfs.OpenTextFile(objargs(0),1)Dim stime,ssec=0Do While f.AtEndOfStream<>Truestime=f.ReadLines=Split(stime,":",-1,1)sec=sec+CInt(s(0)*60+s(1))LoopWScript.Echo sec/60 & " 分"终于写出来了。呵呵，用vbs写的。你把代码保存为a.vbs，然后把上面的时间按5:155:175:265:265:345:42这样的格式写在一个文本文件里，然后把这个文本文件拖到a.vbs这个文件上就出来结果了。比如你那个结果就是16.85分。你自己用计算器算一下用0.85*60就出来秒数了。 记住只能是保存为以上格式的才行。

可选择时间计算器 可以帮您算出从出生至今日一共存活了多少天数、距离节日、高考、考研、纪念日等日期还相差多少天数。有向前向后两种计算方式；并有计算几天后的时间和日期差数两种换算模式。
”日期计算器”或"天数计算器”