Question

VB：在文本框中输入秒数,按回车键后将在窗体上输出相应的天,小时,分和秒.

做成如图，代码要怎么敲？
求详解~~~
谢谢大神们(*^__^*)

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As Long
If KeyAscii = 13 Then
s = Val(Text1.Text)
Print s; "秒 =";
Print s \ 86400; "天";
s = s Mod 86400
Print s \ 3600; "小时";
s = s Mod 3600
Print s \ 60; "分";
s = s Mod 60
Print s; "秒"
End If
End Sub

Answer 2

很简单 跟日期时间这些都没有什么联系的。其实无非就是判断而已！1*60 60*60 60*60*24 为界限进行判断就ok了 希望能帮到你 望采纳！

追问

可以敲个详细的代码给我么~~因为不是很懂=，=

追答

整除 3600*24 余数在整除3600 余数在整除60 ......其中商就是所需要的结果 直到最后小于60 就是秒数 这样 天 时 分 秒 都得到了！

楼下麻烦把分号 去掉，你是玩C#的吧？

像这样简单的问题真不该在这里问，自己多研究一下，代码要自己写，不要一味的复制粘贴，好好学习吧！

追问

我知道要自己学习呀=。=可是对于一个没接触过的人来说没有点东西来看着学习怎么学的会哦=。=我也是虚心求解的O(∩_∩)O谢谢

追答

嗯 ！这样的问题其实不是代码的问题 只是一个逻辑问题，如果这样的代码都写不出来，那你就该暂时换一个努力方向。看看前面基础的知识。不过这些东西也是很基础的。不要老想着想做出什么样的效果来。当然做出来很有满足感，但是拷贝的就没意思了吧！所以，可以向别人请教思路，具体实现还是得由你自己来！ 不要老想着一口吃个胖子，或者应付老师的作业！

Answer 3

csng(text1.text) \ 86400= 天数
(csng(text1.text) mod 86400 ) \ 3600 =小时
((csng(text1.text) mod 86400 ) mod 3600) \ 60 =分
(((csng(text1.text) mod 86400 ) mod 3600) mod 60 ) mod 60=秒

另外，你上面的结果也是错的