ミッションUD:白血病患者を救え!Target:37
そろそろ埋めますか
さうですね
埋めてもいい?
ぬ
る
ぴ
「ぴ」かい (w
「ん」
「こ」
「だ」
「い」
実のある埋め立てをしようじゃないか。
「す」
も
じゃあ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
これによると@loungeのTotal CPU Timeは
4277830002秒
71297166.7分
1188286.112時間
49511.92132日
1650.397377ヶ月(一ヶ月=30日換算)
135.6490995年
なんだとさ。
970
>>966 >For i = 0 To 4
>para(i) = Val(Mid(strCPUTime, pos + 1))
>pos = InStr(pos + 1, strCPUTime, ":")
>Next
のところは、para = Split(strCPUTime, ":")の1行で済まないかな?
para()は可変長で定義しておいて。
マクロじゃ使えなかったんだっけ?
スマソ、未確認。(^^;
あ、これじゃ文字列のままだ。
自己ツッコミ。
>>967 具体的な数字になるとやぱ成果がわかりやすくっていいな。乙。
あ。
>>947 >>948はフォローアリガトね。
落としてくれた人は出来の悪さに震えて眠れ。
AMDだけじゃさすがにアレだと思って実はintelのも作り始めてたんだけど、
>>968ハケーンしちゃったから、もういいかな。と。(w
で、
>>968にはレイヤー結合して、別形式で保存したデータもうpしてもらいたいトコだ。是非。
せっかく作ったのにpsdだと見られない人も居るかも。だ。
宣伝だし間口は広い方がいいと思うんだけどどうだろ?
とにかくグッジョブ。
>>968
で、埋め立てられる前にチョト報告。
後輩に配ってみたんだけど、予想外に好評だったよ。
普段の行いの免罪符代わりにUDにも参加してくれるらしい。
単なる思いつきでも作った甲斐あったよ。
ただ、Team 2chの事は奴らに話せなかったヨ。スマソ。
ってか、ステッカーに2chロゴ入れなかったのも、元は会社で配るために作ったからだ。
つまりその…何だ…わかるだろ?
こんなオレを笑うなら笑え。
ヽ(`Д´)ノウワーン
Excel 2000上で動作を確認したよ。変更は次の通り。
Dim i As Integer, para As Variant, pos As Integer
para = Split(strCPUTime, ":")
>>974 何はともあれ参加者が増えたのでヨシとしましょ。
>>976 救われますた。アリガト。
さっきからマクロ貼ってるおまいらは、ばっちりスレの内容に沿ってるんだから、
本スレにも貼った方がいいと思うよ。
それがすぐに落ちるのはもったいないよ。
979 :
968:03/04/26 03:16 ID:???
>973
とりあえず、3つ用意しますた。
[099.zip]がpsd([098.zip]のマイナーチェンジ版)
[100.zip]がbmp
[101.zip]がpdf
にしますた。
パスワードは同じく"2"です。
暇つぶしにAdobe Photoshop Elementsで作ってたのでbmp形式にするの忘れてますた。
これ以上は良いのは漏れにはムリポ。
2ちゃんロゴ無しのカッコイイヤツを誰か作って。
バトンタッチ!
もったいない……か。
既存の複数のUD Deviceを一つのマシン上に置いて
解析が完了したらPCを再起動、次のデバイスに切り替え、
なんてことをやるUD Monitorの補助アプリなんか作ったけど
公開はドキュメント作成が面倒でやってないな。
そもそも需要があるかが問題だが(w
俺もモラタヨ
>>181ハケーンしますた。
>>182まずくありませんYO
削除はしませーん!
>>181その画像UD板のTOPにつかっていいですか?
その画像メッチャホスィです
よろしくおながいします。
まもなくここは 乂1000取り合戦場乂 となります。
\∧_ヘ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
,,、,、,,, / \〇ノゝ∩ < 1000取り合戦、いくぞゴルァ!! ,,、,、,,,
/三√ ゚Д゚) / \____________ ,,、,、,,,
/三/| ゚U゚|\ ,,、,、,,, ,,、,、,,,
,,、,、,,, U (:::::::::::) ,,、,、,,, \オーーーーーーーッ!!/
//三/|三|\ ∧_∧∧_∧ ∧_∧∧_∧∧_∧∧_∧
∪ ∪ ( ) ( ) ( ) )
,,、,、,,, ,,、,、,,, ∧_∧∧_∧∧_∧ ∧_∧∧_∧∧_∧∧_∧
,,、,、,,, ( ) ( ) ( ) ( )
>>181さんあなたは差さんですね
UPありがとうございます。
おいらも1000目指すぞ!
1000
990
1000Get!
992
993
gggggggggggg
1000
996 :
◆Team2chhR. :03/04/26 11:49 ID:GZ8xy0mK
996
999
1000
1000 :
◆Team2chhR. :03/04/26 11:50 ID:GZ8xy0mK
1000
1001 :
1001:
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。