vb如何在获得毫秒数而输出时分秒毫秒？

如何在perl里取得毫秒级的时间~

use Time::HiRes qw( gettimeofday );
my ($seconds, $microseconds) = gettimeofday;


秒 ， 微秒， 计算一下就是毫秒了， perl模块中有不少与linux函数同名同功能的函数都可以直接用的，主要搜一下在哪个模块中，在perl的模块代码中搜，或者查看perldoc去查

vb中返回当前系统毫秒数的函数是Timer。
Timer 函数，返回一个 Single，代表从午夜开始到现在经过的秒数。

语法：

Timer

说明：Microsoft Windows中，Timer函数返回一秒的小数部分。
Timer 函数示例：

本示例使用 Timer 函数来暂停应用程序。同时用 DoEvents 在暂停期间将控制让给其他进程。
Dim PauseTime, Start, Finish, TotalTimeIf (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then PauseTime = 5 ' 设置暂停时间。 Start = Timer ' 设置开始暂停的时刻。 Do While Timer < Start + PauseTime DoEvents ' 将控制让给其他程序。 Loop Finish = Timer ' 设置结束时刻。 TotalTime = Finish - Start ' 计算总时间。 MsgBox "Paused for " & TotalTime & " seconds"Else EndEnd If

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Debug.Print Format(Time, "hh:mm:ss") & ":" & Right(timeGetTime, 3)
End Sub

添加一个text

Text1.Text = Int(Val(Text1.Text) / 360000) & "小时" & Int(((Val(Text1.Text)) Mod 360000) / 60000) & "分" & Int(((Val(Text1.Text) Mod 360000) Mod 60000) / 1000) & "秒"

---

双鸭山市15183396054： vb如何在获得毫秒数而输出时分秒毫秒? - ？
逄葛十五： Private Declare Function timeGetTime Lib ＂winmm.dll＂ () As Long Private Sub Form_Load() Timer1.Interval = 1 End SubPrivate Sub Timer1_Timer() Debug.Print Format(Time, ＂hh:mm:ss＂) & ＂:＂ & Right(timeGetTime, 3) End Sub

双鸭山市15183396054： VB中毫秒转成XX小时XX分钟XX秒,怎么做? - ？
逄葛十五： 1、首先定义 a 为整型,j 为逻辑型,t 为字符串型.变量a是数值型的,表达式11 +11是数值型的,相加即可算出结果.2、变量a是数值型的,表达式“11”+“11”是字符串型,需要把计算的表达式的值转换为数值型.3、变量是数值型,表达...

双鸭山市15183396054： 怎样用vb编程使在文本框中输入的秒数,单击命令按钮后转换成时分秒并在便签上显示 - ？
逄葛十五： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = Val(Text1.Text) If a > 60 Then c = a Mod 60 b = (a - c) / 60 Else b = 0: c = a End If Label1.Caption = Str(b) & ＂分＂ & Str(c) & ＂秒＂ End Sub 数值输入的不要太大 否则会溢出 我没有考虑小时的问题~

双鸭山市15183396054： VB中如何将数值型数据以时:分:秒的格式输出 - ？
逄葛十五： 应该可以用format函数实现的 hour = Format((time \ 60), ＂00000＂) 把小时强制按＂00000＂格式输出,也就是输出的小时数为一个五位数,如果不足五位,则前边补0 下边那句同上 Format函数 返回 返回 Variant (String),其中含有一个表达式,...

双鸭山市15183396054： 求教VB编程中秒转化时 分 秒 的代码 - ？
逄葛十五： \'声明IPS \'声明S \'声明M \'声明H \'把要转换的秒数放在IPSIPS = 1234If IPS / 3600 > 0 ThenH = Int(IPS / 3600) ElseH = 0 End IfIf IPS / 60 > 0 And IPS / 60 < 60 ThenM = Int(IPS / 60) ElseM = 0 End IfS = IPS Mod 60\'转换后的\＂秒\＂存在...

双鸭山市15183396054： VB:在文本框中输入秒数,按回车键后将在窗体上输出相应的天,小时,分和秒. - ？
逄葛十五： 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=秒 另外,你上面的结果也是错的

双鸭山市15183396054： 怎么把VB的计时器控件的毫秒单位转换成分钟? - ？
逄葛十五： Dim S As Long, N As Long Private Sub Form_Load() Timer1.Interval = 1000 '间隔一秒 N = 30 '30分钟 End Sub Private Sub Timer1_Timer() S = S + 1 If S >= N * 60 Then '如果超过设定的分钟则执行代码 S = 0 '代码 End If End Sub

双鸭山市15183396054： vb 如何精确到毫秒的时间差? - ？
逄葛十五： 搞一个Timer控件就可以了,第一个操作使它的Enabled属性改为True,第二个操作再改为False,Timer的interval属性改为1,然后在代码区加入以下代码(这里我用两个按钮的Click事件来表示两个操作)Dim a As LongPrivate Sub Command1_...

双鸭山市15183396054： VB想添加时间单位(如分秒时)的选项 - ？
逄葛十五： 如果你的时间控制程序是固定在程序里的话,你需要设置一个中间变量 比如:Public s as integer如果你想将MS改为秒,就可以这样设置:S=S*1000 S=“你以前程序时间控制的变量”

双鸭山市15183396054： VB如何获得1970 年1 月1 日00:00:00 GMT至今的毫秒数. - ？
逄葛十五： 是所有日子的毫秒加起来吗?,这样:=============================== dim mySec,myMSec mySec = Debug.Print DateDiff(＂s＂, #1/1/1970#, Now) '注意了,这里DateDiff用于判断两个日期的不同,格式如下: 'DateDiff([输出类型＂s＂为秒],[前一个日期],[后一个日期]) myMSec = mySec*1000 msgbox myMSec ===============================