VB浠ｇ爜涓嶆噦锛屽府蹇欑湅涓€涓?- 宸茶В鍐?- 鎼滄悳闂棶
Private Sub Form_Click()
Dim day%, hour%, minute%, second%, x&
x = Val(InputBox("璇疯緭鍏ユ€荤鏁帮細"))
day = Int(x / (3600& * 24))
hour = Int((x / (3600& * 24) - day) / 3600)
minute = Int(((x / (3600& * 24) - day) / 3600 - hour) / 60)
second = x Mod 60
Print
Print
Print x; "绉掔瓑浜?; day; "鏃?; hour; "鏃?; minute; "鍒?; second; "绉?
End Sub
答案：
杩欐槸VBA涓殑绫诲瀷鏍囩ず绗?鍏蜂綋鏈夊涓嬪嚑绉?
String(瀛楃涓插瀷) $
Integer(鏁存暟鍨? %
Long(闀挎暣鏁板瀷) &
Single(鍗曠簿搴﹀瀷) !
Double(鍙岀簿搴﹀瀷) #
Currency(璐у竵鍨? @
绗竴鍙ワ紝瀹氫箟浜嗕竴涓嚱鏁帮紝鍚嶇О鏄痜un锛屽弬鏁版湁涓や釜锛屼竴涓槸a涓€涓槸b锛岄兘鏄暣鏁?br/>绗簩鍙ワ紝澹版槑浜嗕竴涓眬閮ㄥ彉閲忥紝灏辨槸鍙湪杩欎釜鍑芥暟閲岄潰鏈夋晥鐨勫彉閲忥紝鍙仛c鏄竴涓暣鏁?br/>绗笁灞€锛屽鏋渁灏忎簬b锛屽垯
绗洓鍙ワ紝c=a锛宎=b锛宐=c锛屽疄闄呬笂灏辨槸浜ゆ崲浜哸鍜宐鐨勫唴瀹?br/>绗簲鍙ワ紝if璇彞缁撴潫
绗叚鍙ワ紝c=0
绗竷鍙ワ紝do寰幆寮€濮?br/>绗叓鍙ワ紝c=c a
绗節鍙ワ紝濡傛灉c闄や互b鐨勪綑鏁版槸0锛屽垯缁撴潫寰幆锛屽惁鍒欏氨鍙嶅鎵ц绗?鍙?br/>绗崄鍙ワ紝fun=c锛屼篃灏辨槸鍑芥暟杩斿洖鍊煎氨鏄痗
上一个：VB6怎么调用API函数（高分）
下一个：VB制作按键精灵那种后台按键工具
