下载时间计算器(下载计算器安装到手机)

我刚好在做这个软件，不过已经做了好长时间了，今天晚上完成了，你可以下载“微软箱”，我晚上更新上去之后就可以看到此功能了，在时间相关→时间计算器。可能会比较晚，建议你明天再下载使用。 http://www.3http.com/tool/
从3月1日到4月1日共经过多少天怎样计算?

将下面代码复制到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的很不错啊~~怎么会不行~~

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

普通计算器都可以，就是用 º ' '' (度分秒)。 不过，你需要自己换算天数。
直接用EXCEL自己做一个，还可以是实时的。

http://liuheng.chengxuren.com/我自己编的计算器，当前能计算的有：加减乘除计算求农历数字转汉字小写数字转汉字大写从身份证获得出生日期求指向国家当前时间求物质的化学式求两个日期间隔天数求日期前后多少天的日期求星期求属相求节气求汉字笔画求汉字偏旁求硬盘序列号求内存使用情况计算CPU频率获取外网IP简体转为繁体计算时间差（秒）繁体转为简体求磁盘总容量求磁盘剩余容量 求开机时间（分钟和秒）