回答編集履歴
2
誤字修正
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
なのでドラッグ中の画面更新はあきらめるとして、カウントだけは正しく行われるような方向にするべきかと思います。
|
|
4
4
|
|
|
5
|
-
方法としては、ボタンクリックに開始時の時間を保持しておいて、1秒ごとのイベントでは現在時間と
|
|
5
|
+
方法としては、ボタンクリックに開始時の時間を保持しておいて、1秒ごとのイベントでは現在時間と開始時間の差分で秒数を算出します。
|
|
6
6
|
|
|
7
7
|
以下サンプルです。
|
|
8
8
|
|
1
余計な行削除
test
CHANGED
|
@@ -46,8 +46,6 @@
|
|
|
46
46
|
|
|
47
47
|
cnt = DateDiff("s", togSt, Now) ' 経過秒数を計算
|
|
48
48
|
|
|
49
|
-
Debug.Print togSt, Now
|
|
50
|
-
|
|
51
49
|
Worksheets("工程表").Range("A11") = cnt
|
|
52
50
|
|
|
53
51
|
frmStopTIme.Label1.Caption = cnt
|