ミッションUD：白血病患者を救え！Target:37

■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

レス数が1000を超えています。残念ながら全部は表示しません。

966 ：名無しさん？ ：03/04/25 23:01 ID:???: じゃあExcelマクロでも貼ってみる。
=TotalCPUTime("135:236:22:06:42","s")とやると秒単位のTotal CPU Timeを返す。
10億秒ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!とかやりたい人向け。

Public Function TotalCPUTime(strCPUTime As String, strUnit As String) As Double
Dim i As Integer, para(4) As Integer, pos As Integer
For i = 0 To 4
para(i) = Val(Mid(strCPUTime, pos + 1))
pos = InStr(pos + 1, strCPUTime, ":")
Next
Select Case strUnit
Case "s"
TotalCPUTime = (((para(0) * 365# + para(1)) * 24 + para(2)) * 60 + para(3)) * 60 + para(4)
Case "m"
TotalCPUTime = ((para(0) * 365# + para(1)) * 24 + para(2)) * 60 + para(3) + para(4) / 60
Case "h"
TotalCPUTime = (para(0) * 365# + para(1)) * 24 + para(2) + (para(3) + para(4) / 60) / 60
Case "D"
TotalCPUTime = para(0) * 365# + para(1) + (para(2) + (para(3) + para(4) / 60) / 60) / 24
Case "M"
TotalCPUTime = (para(0) * 365# + para(1) + (para(2) + (para(3) + para(4) / 60) / 60) / 24) / 30
Case "Y"
TotalCPUTime = para(0) + (para(1) + (para(2) + (para(3) + para(4) / 60) / 60) / 24) / 365
End Select
End Function

230KB

新着レスの表示

掲示板に戻る全部前100 次100 最新50

0ch BBS 2004-02-21