❶ 時間計算器
將下面代碼復制到txt文件中,並將其保存為Form1.frm,然後運行
但是要注意:填入的時間不能隔日,即開始時間與結束時間都必須在同一天。
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6165
ClientLeft = 60
ClientTop = 450
ClientWidth = 10035
LinkTopic = "Form1"
ScaleHeight = 6165
ScaleWidth = 10035
StartUpPosition = 3 '窗口預設
Begin VB.CommandButton Command1
Caption = "計 算"
Height = 495
Left = 3480
TabIndex = 10
Top = 3120
Width = 1215
End
Begin VB.TextBox Text4
Height = 495
Left = 4920
TabIndex = 8
Text = "8"
Top = 1200
Width = 615
End
Begin VB.TextBox Text3
Height = 495
Left = 3960
TabIndex = 6
Text = "5"
Top = 1200
Width = 615
End
Begin VB.TextBox Text2
Height = 495
Left = 4920
TabIndex = 5
Text = "5"
Top = 480
Width = 615
End
Begin VB.TextBox Text1
Height = 495
Left = 3960
TabIndex = 4
Text = "3"
Top = 480
Width = 615
End
Begin VB.Label Label6
Height = 495
Left = 2880
TabIndex = 9
Top = 2400
Width = 2535
End
Begin VB.Label Label4
Caption = ":"
Height = 495
Left = 4680
TabIndex = 7
Top = 1320
Width = 135
End
Begin VB.Label Label5
Height = 495
Left = 3000
TabIndex = 3
Top = 1920
Width = 2535
End
Begin VB.Label Label3
Caption = ":"
Height = 495
Left = 4680
TabIndex = 2
Top = 720
Width = 135
End
Begin VB.Label Label2
Caption = "結束時間"
Height = 495
Left = 3000
TabIndex = 1
Top = 1320
Width = 855
End
Begin VB.Label Label1
Caption = "開始時間"
Height = 255
Left = 3000
TabIndex = 0
Top = 600
Width = 735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim T1 As Integer, T2 As Integer, T3 As Integer
T1 = Val(Text1) * 60 + Val(Text2)
T2 = Val(Text3) * 60 + Val(Text4)
T3 = T2 - T1
Label5 = "總分鍾數:" & T3
Label6 = "總金額(元):" & Int((T3 / 60 * 2.5) * 10 + 0.5) / 10
End Sub
❷ 時間加減計算器
如果你用microsoft的office,那麼打開excel,就可以這么直接算。
比如
A1填 1:35
A2填 0:10
A3填 =sum(A1:A2)
那麼A3自動顯示為1:45
❸ 如何用計算器算復利年限
1加上利率得出的數字,按xy鍵,再按時間,得出的數乘以本金。
❹ 科學計算器怎樣計算 時間差
一開抄始顯示的,都是最簡單的計算器
別被Windows 7 計算器的第一個印象給欺騙了,其實Windows 7計算器功能很強大。不是如上圖中看著好像只能計算加減乘除。
步驟/方法
點擊計算器的左上角的查看菜單,就看到計算器的多個選項,讓你的計算器需要來變化成最適合的計算器。正所謂,最強大最全面的功能並非都是你想要的,最適合的功能才是你最需要的。
計算一盎司黃金有多重?
計算Windows 7 SP1發布了多久時間
還能計算油耗
打開Windows 7 計算器更炫的方法
打開Windows 7 計算器最簡單莫過於在Windows 7的開始那裡找到附件再找到計算器。但這種方法比較麻煩。
對於時時間如金錢的各位,肯定要找到一條更快的打開計算器的方法。這個方法其實也很簡單,但要記住命名「calc」,輸入法諧音「擦了擦」。
首先,「運行」快捷鍵——「Win+R」,再輸入「calc」,最後,Enter。
在「運行」那裡直接輸入「calc」
希望Windows 7 計算器能幫你分擔更多計算上的任務。
❺ 怎麼計算時間差
用15:12-7:45即可計算出時間差。
首先12-45不夠,向上借一位,則為72-45,得27分鍾。時位少了內1,則14-7得7小時。因此最有容時間差為7小時27分鍾,即447分鍾。
進制
小時和分鍾的進制為60,即1小時=60分鍾。
其他解釋
排球運動技術、戰術名詞。隊員進攻時,利用對方攔網隊員起跳時間的誤差,達到突破對方攔網目的的一種打法。
即打快球隊員佯作扣快球的起跳姿勢,而實際並未跳離地面,待對方攔網隊員受騙起跳下落時,扣球隊員再迅速原地起跳扣殺二傳手預定傳出的半高球,造成空檔進攻。
動作要求是:掌握好時機和節奏;助跑擺臂動作要逼真;具備高超的原地彈跳力。
❻ 關於兩個年份的差如何計算
可以用EXCEL計算:
1、首先,打開需要編輯的數據表,輸入要編輯的數據,點擊年數單元格;
❼ 哪裡有下載計算時間差與時間和的計算器的(精確到分鍾)
http://www.beijing-time.org/riqi.htm 希望可以幫到內你容
❽ 工作年限計算公式
將A、B兩列的單元格格式均設成「日期」中的「×××年×月」的格式,在A1、B1中分別輸入「內2005-6」「2010-1」,在C1中輸入以下內容容:
=IF(MONTH(B1)>MONTH(A1),YEAR(B1)-YEAR(A1)&"年"&MONTH(B1)-MONTH(A1)&"個月",YEAR(B1)-YEAR(A1)-1&"年"&MONTH(B1)+12-MONTH(A1)&"個月")
然後按回車,C1就會顯示結果「4年7個月」。
好久沒用EXCEL了,弄了半天,終於整好了。
❾ 普通計算器的使用年限
3-4
❿ 求一款年限計算器
確實夠費勁的
試試這個
=(LEFT(A1,FIND("年",A1)-1)+LEFT(B1,FIND("年",B1)-1)+TRUNC((SUBSTITUTE(RIGHT(RIGHT(A1,LEN(A1)-FIND("年",A1)+1),LEN(RIGHT(A1,LEN(A1)-FIND("年",A1)+1))-MIN(FIND({0,1,2,3,4,5,6,7,8,9},RIGHT(A1,LEN(A1)-FIND("年",A1)+1)&"0123456789"))+1),"個月","")+SUBSTITUTE(RIGHT(RIGHT(B1,LEN(B1)-FIND("年",B1)+1),LEN(RIGHT(B1,LEN(B1)-FIND("年",B1)+1))-MIN(FIND({0,1,2,3,4,5,6,7,8,9},RIGHT(B1,LEN(B1)-FIND("年",B1)+1)&"0123456789"))+1),"個月",""))/12))&"年"&MOD((SUBSTITUTE(RIGHT(RIGHT(A1,LEN(A1)-FIND("年",A1)+1),LEN(RIGHT(A1,LEN(A1)-FIND("年",A1)+1))-MIN(FIND({0,1,2,3,4,5,6,7,8,9},RIGHT(A1,LEN(A1)-FIND("年",A1)+1)&"0123456789"))+1),"個月","")+SUBSTITUTE(RIGHT(RIGHT(B1,LEN(B1)-FIND("年",B1)+1),LEN(RIGHT(B1,LEN(B1)-FIND("年",B1)+1))-MIN(FIND({0,1,2,3,4,5,6,7,8,9},RIGHT(B1,LEN(B1)-FIND("年",B1)+1)&"0123456789"))+1),"個月","")),12)&"個月"
但B1必須是5年零9個月
補充一:
剛剛的公式有錯,剛改。
補充二:
你試試這個吧:
=TRUNC((IF(ISERROR(FIND("年",A1)),LEFT(A1,LEN(A1)-2),LEFT(A1,FIND("年",A1)-1)*12+IF(ISERROR(FIND("個月",A1)),0,MID(A1,FIND("年",A1)+1,LEN(A1)-FIND("年",A1)-2)))+IF(ISERROR(FIND("年",B1)),LEFT(B1,LEN(B1)-2),LEFT(B1,FIND("年",B1)-1)*12+IF(ISERROR(FIND("個月",B1)),0,MID(B1,FIND("年",B1)+1,LEN(B1)-FIND("年",B1)-2))))/12)&"年"&MOD((IF(ISERROR(FIND("年",A1)),LEFT(A1,LEN(A1)-2),LEFT(A1,FIND("年",A1)-1)*12+IF(ISERROR(FIND("個月",A1)),0,MID(A1,FIND("年",A1)+1,LEN(A1)-FIND("年",A1)-2)))+IF(ISERROR(FIND("年",B1)),LEFT(B1,LEN(B1)-2),LEFT(B1,FIND("年",B1)-1)*12+IF(ISERROR(FIND("個月",B1)),0,MID(B1,FIND("年",B1)+1,LEN(B1)-FIND("年",B1)-2)))),12)&"個月"
但會出現0年或0個月的情況,在一個公式里是沒辦法完成了。如果會出現這種情況,你就以這個為中間計算結果,在最後的結果中用SUBSTITUTE把「0年」和「0個月」替換為空就行了。