日期计算器
将下面代码复制到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
解：
日期计算器
是一款简易的日期计算工具，可以设定好起始日期
提供快速计算出两日期相差天数（天，周，月，年）以及提供天数推算日期的服务。
例如，下面是一款日期计算器的计算
select
convert(datetime,'2008-02-05',120)+740
二月五日加上七百四十天以后为：
2010-02-14
00:00:00.000
万荀17314961275： 绛旓細1. 棣栧厛鎵撳紑鐢佃剳锛岃繘鍏ユ闈紝鐐瑰嚮宸︿笅瑙掔殑鈥滃紑濮嬧濆浘鏍囷紝鍦ㄦ墦寮鐨勮彍鍗曚腑锛岄夋嫨鈥璁＄畻鍣鈥濋夐」锛岀偣鍑 2. 鍦ㄦ墦寮鐨勮绠楀櫒椤甸潰锛岀偣鍑诲乏涓婅鐨勪笁妯浘鏍 3. 鍦ㄦ墦寮鐨勮彍鍗曚腑锛岄夋嫨鈥鏃ユ湡璁＄畻鈥濋夐」锛岀偣鍑 4. 鐒跺悗鍦ㄦ墦寮鐨勯〉闈紝杈撳叆鎴戜滑鐨勨滃紑濮嬫棩鏈熲濆拰鈥滅粨鏉熸棩鏈熲5. 鐒跺悗鍦ㄤ笅鏂瑰氨浼氳绠楀嚭鈥滅浉闅旂殑澶...
万荀17314961275： 绛旓細1. 鎵撳紑鐢佃剳涓婄殑璁＄畻鍣杞欢銆2. 閫夋嫨鈥滄棩鏈熻浆鎹⑩濆姛鑳姐3. 杩涘叆鍚庯紝閫夋嫨鈥滆绠椾袱涓棩鏈熶箣宸濄4. 杈撳叆璧峰鏃ユ湡2021骞3鏈26鏃ュ拰缁撴潫鏃ユ湡2023骞3鏈26鏃ャ5. 鐐瑰嚮鈥滆绠椻濇寜閽緱鍑虹粨鏋溿6. 鏍规嵁璁＄畻缁撴灉锛屼粠2021骞3鏈26鏃ュ埌2023骞3鏈26鏃ュ叡鏈730澶┿
万荀17314961275： 绛旓細1銆佹墦寮璁＄畻鍣锛岀偣鍑烩滄煡鐪嬧濃斺斺滄棩鏈熻浆鎹⑩濓紝涓嬪浘锛2銆侀夋嫨鈥滆绠椾袱涓棩鏈熶箣宸濓紝骞惰緭鍏ヤ袱涓棩鏈燂細3銆佺偣鍑诲彸涓嬭鐨勨滆绠椻濇寜閽紝寰楀埌涓や釜鏃ユ湡涔嬮棿鐨勫樊鍊间负鈥730澶┾濄4銆佸鏋滃皢2021骞3鏈26鏃ヤ綔涓虹涓澶╋紝鍒欐诲ぉ鏁颁负鈥渘+1鈥濓紝涔熷氨鏄731澶┿
万荀17314961275： 绛旓細1銆佸湪windows7寮濮嬭彍鍗曠殑鈥滄墍鏈夌▼搴忊濋夐」閲屾壘鍒扳滈檮浠垛濓紝鐒跺悗鐐瑰嚮鈥滆绠楀櫒鈥锛2銆佸湪寮瑰嚭鐨勨滆绠楀櫒鈥濈獥鍙ｏ紝鐐瑰嚮鈥滄煡鐪嬧濋夐」锛屽湪鍏朵笅鎷夎彍鍗曚腑閫夋嫨鈥滄棩鏈熻绠椻濋夐」銆3銆佸湪绐楀彛鍙充晶鎵惧埌鈥滆绠椾袱涓棩鏈熶箣宸濋夐」锛屽湪鍏朵笅鏂归夋嫨璧峰鏃ユ湡鍜屾埅姝㈡棩鏈燂紝鐐瑰嚮鈥滆绠椻濇寜閽嵆鍙
万荀17314961275： 绛旓細1. 棣栧厛鎵撳紑鐢佃剳锛屾壘鍒拌嚜甯︾殑璁＄畻鍣锛屾墦寮杩涘叆銆2. 鍦ㄦ墦寮鐨勮绠楀櫒椤甸潰锛岀偣鍑婚〉闈笂鏂圭殑涓夋í鍥炬爣锛3. 鍦ㄦ墦寮鐨勮彍鍗曚腑锛岀偣鍑烩鏃ユ湡璁＄畻鈥濓細4. 鎵撳紑鐨勬棩鏈熻绠楅〉闈㈠鍥撅細5. 濡傚浘锛岀偣鍑诲紑濮嬫棩鏈熷拰缁撴潫鏃ユ湡杩涜閫夋嫨鏃ユ湡锛6. 鎴戜滑浠ヤ笅鍥剧殑寮濮嬫棩鏈熷拰缁撴潫鏃ユ湡涓轰緥锛7. 濡傚浘鍦ㄤ笅鏂瑰氨鍙互鐪嬪埌鍦ㄩ棿闅斿ぉ鏁颁笅鐨...
万荀17314961275： 绛旓細1銆侀鍏堬紝榧犳爣鍙冲嚮灞忓箷宸︿笅瑙掔殑Win鍥炬爣锛岀劧鍚庡湪寮瑰嚭鐨勮彍鍗曚腑鐐瑰嚮鈥滆繍琛屸濄2銆佹墦寮杩愯绐楀彛浠ュ悗锛岃緭鍏 calc 锛屽啀鐐瑰嚮鈥滅‘瀹氣濄3銆佽繖鏃讹紝灏变細鎵撳紑璁＄畻鍣绋嬪簭銆傛墦寮璁＄畻鍣ㄤ互鍚庯紝鐐瑰嚮宸︿笂瑙掔殑涓夋潯妯嚎銆4銆佺劧鍚庯紝鍦ㄥ脊鍑虹殑鑿滃崟涓偣鍑烩鏃ユ湡璁＄畻鈥濄5銆佸湪鏃ユ湡璁＄畻涓紝鍏堢偣鍑诲紑濮嬫棩鏈燂紝鍐嶅湪寮瑰嚭鐨勬棩鏈熼夋嫨...
万荀17314961275： 绛旓細1. 棣栧厛锛屽彸閿闈㈠乏涓嬭鐨勫紑濮嬭彍鍗曪紝鍦ㄥ脊鍑洪夐」涓偣鍑烩滆繍琛屸濄2. 鎵撳紑杩愯绐楀彛鍚庯紝鍦ㄦ枃鏈涓緭鍏モ渃alc鈥濓紝鐒跺悗鐐瑰嚮鈥滅‘瀹氣濄3. 鎵撳紑璁＄畻鍣鍚庯紝鐐瑰嚮宸︿笂瑙掔殑涓夋潯妯嚎鍥炬爣銆4. 鍦ㄥ脊鍑鸿彍鍗曚腑鐐瑰嚮鈥鏃ユ湡璁＄畻鈥濄5. 杩涘叆鏃ユ湡璁＄畻鐣岄潰鍚庯紝鐐瑰嚮涓嬪浘涓绠ご鎵鎸囧锛屽湪寮瑰嚭绐楀彛涓偣鍑昏绠楀紑濮嬬殑鏃ユ湡銆6...
万荀17314961275： 绛旓細鍏蜂綋姝ラ濡備笅锛1銆佷緷娆＄偣鍑诲紑濮嬪浘鏍団旈檮浠垛璁＄畻鍣锛2銆亀in7璁＄畻鍣ㄦ墦寮鍚庯紝榛樿鍙樉绀哄熀鏈殑鍔犲噺涔橀櫎鐣岄潰锛屽ぇ閮ㄥ垎鐢ㄦ埛浠ヤ负璁＄畻鍣ㄥ姛鑳藉氨杩欎簺浜嗭紝鍏跺疄杩樻湁寰堝瀹炵敤鍔熻兘锛屾垜浠偣鍑汇愭煡鐪嬨戯紝杩欒竟灏变細鏄剧ず鍚勭鍔熻兘锛岃繖杈归夋嫨銆鏃ユ湡璁＄畻銆戯紱3銆佽繖鏃跺欒绠楀櫒鐣岄潰灏辨敼鍙樹簡锛屽彸渚у鍑轰竴涓棩鏈熻绠楃殑鐣岄潰锛4銆佺偣鍑讳笅...
万荀17314961275： 绛旓細鍏堟墦寮灞忓箷宸︿笅瑙掔殑鈥滃紑濮嬧濇寜閽紝鐒跺悗鍦ㄦ悳绱㈡杈撳叆鈥璁＄畻鍣鈥,杈撳叆瀹屸滆绠楀櫒鈥濅笁涓瓧鍚,杩欐椂鍊欑郴缁熻嚜鍔ㄦ悳绱㈠璁＄畻鍣ㄧ殑鍥炬爣,鐐瑰嚮瀹,鈥滆绠楀櫒鈥濆氨鎵撳紑浜嗭紝鐐瑰嚮鈥滄煡鐪嬧濊彍鍗,鍦ㄥ脊鍑虹殑涓嬫媺鑿滃崟閲岄変腑鈥鏃ユ湡璁＄畻鈥濓紝灏卞彲浠ヨ绠椾簡銆傝绠楀櫒 璁＄畻鍣ㄦ槸杩戜唬浜哄彂鏄庣殑鍙互杩涜鏁板瓧杩愮畻鐨勬満鍣ㄣ傜幇浠ｇ殑鐢靛瓙璁＄畻鍣ㄨ兘...
万荀17314961275： 绛旓細瑙ｏ細鏃ユ湡璁＄畻鍣 鏄竴娆剧畝鏄撶殑鏃ユ湡璁＄畻宸ュ叿锛屽彲浠ヨ瀹氬ソ璧峰鏃ユ湡 鎻愪緵蹇熻绠楀嚭涓ゆ棩鏈熺浉宸ぉ鏁帮紙澶╋紝鍛紝鏈堬紝骞达級浠ュ強鎻愪緵澶╂暟鎺ㄧ畻鏃ユ湡鐨勬湇鍔°備緥濡傦紝涓嬮潰鏄竴娆炬棩鏈熻绠楀櫒鐨勮绠
