ms和s的换算单位

1s（秒）＝1000ms（毫秒）。

毫秒是一种较为微小的时间单位，符号为 ms。1 秒＝10 分秒；1 分秒＝10 厘秒；1 厘秒＝10 毫秒；1 毫秒＝1000 微秒；1 微秒＝1000 纳秒；1 纳秒＝1000 皮秒。

典型照相机的最短曝光时间为一毫秒。一只家蝇每三毫秒扇一次翅膀；蜜蜂则每五毫秒扇一次。由于月亮绕地球的轨道逐渐变宽，它绕一圈所需的时间每年长两毫秒。在计算机科学中，10 毫秒的间隔称为一个 jiffy。

古代的时间单位：

（1）时：

即时辰，等于现代的两小时。古代一昼夜分为 12 时辰。

（2）更：

古人将一夜分为五更，从晚上 7 点开始起更，一更约两小时，三更就是 11 时至 1 时。古代夜间击鼓报更，经常用鼓作为更的代称，所以三更也叫做三鼓（戌时~寅时）。

（3）点：

古人一更又分五点，一点合 24 分钟。三更四点，就是半夜 12 时 36 分。

（4）刻：

古代用漏壶计时，一昼夜共 100 刻，一刻合 14 分 24 秒（约十五分，所以一个时辰有八刻），因此“顷刻”指很短的时间。

（5）字：

即5分钟，字下有“秒”忽“等，具体计算不详。

-毫秒

-时间单位

Dim i As Long '新的计时器变量Private Sub Form_Load()

Timer1Interval = 1000

Timer1Enabled = True

End SubPrivate Sub Timer1_Timer()

i = i + 1 '计时器按一秒累加一次

If i < 60 Then Exit Sub '如果不够一分钟 则不执行下面的过程 60 单位是秒 当然可以改成 3600 一个小时

i = 0 '当够一分钟了 计时器归0重新计算

MsgBox "一分钟到了" '需要执行的代码

'

'End Sub

我也是初学，所以代码写的比较垃圾。希望你能看的懂！

启动窗口设置如图。属性（输入内容：整数文本输入）

代码如下：

版本 2

支持库 xplib

程序集 窗口程序集1

程序集变量 小时, 整数型

程序集变量 分钟, 整数型

程序集变量 秒, 整数型

程序集变量 毫秒, 整数型

子程序 __启动窗口_创建完毕

XP风格 (3)

子程序 _按钮1_被单击

小时 ＝ 绝对取整 (到数值 (编辑框1内容) ÷ 3600000)

分钟 ＝ 绝对取整 (到数值 (编辑框1内容) ÷ 60000 － 60 × 小时)

秒 ＝ 到数值 (编辑框1内容) ÷ 1000 － 小时 × 3600 － 分钟 × 60

毫秒 ＝ 到数值 (编辑框1内容) ％ 1000

如果 (编辑框1内容 ＝ “”)

    信息框 (“请填写要转换的数值”, #警告图标, “错误”)

否则

    标签2标题 ＝ “（” ＋ 到文本 (小时) ＋ “）小时” ＋ “（” ＋ 到文本 (分钟) ＋ “）分钟” ＋ “（” ＋ 到文本 (秒) ＋ “）秒” ＋ “（” ＋ 到文本 (毫秒) ＋ “）毫秒”