ラベルに経過時間を表示するには?

解決


くまんばち  2009-11-20 13:14:29  No: 146555  IP: [192.*.*.*]

現在POSレジを自作しています。VB2008(WINDOWSXP)です
ボタンを押すとボタン上に貼り付けてあるラベルに押した時間からの経過時間を分単位(50分など)で一定間隔で更新される様にしたいのですが、タイマーコントロールの詳しい使用方法が分かりません。経過時間を取得する既存のメゾッドはあるのでしょうか?無ければどの様なプログラムになるのでしょうか?恐れ入りますが、糸口が見つからないのでご教授お願いいたします。

編集 削除
オショウ  2009-11-20 13:44:42  No: 146556  IP: [192.*.*.*]

ボタンをクリックした最初の時刻を保存し、現在時刻との差
を取れば、経過時間が算出できますが・・・

一定間隔での更新は、フォームに貼ったライマーのイベント
間隔をどの程度の時間にするか・・・くらいでしょう〜

以上。参考まで

編集 削除
欽入28呈  2009-11-20 13:50:03  No: 146557  IP: [192.*.*.*]

http://q.hatena.ne.jp/1229409119
参考になるかもしれません

編集 削除
くまんばち  2009-11-21 02:35:47  No: 146558  IP: [192.*.*.*]

Public time1 As Date(最初の時刻)

keika = DateDiff(DateInterval.Minute, Me.time2, time1)
タイマーコントロールに上記のコードを記述する感じで一応出来たのですが、これで良いのでしょうか?

vbは超初心者なので不安です

編集 削除
くまんばち  2009-11-21 02:38:03  No: 146559  IP: [192.*.*.*]

keika = DateDiff(DateInterval.Minute, Me.time1, time2)の間違いでした

編集 削除
オショウ  2009-11-21 14:18:21  No: 146560  IP: [192.*.*.*]

やり方っていろいろある・・・

        Dim startTime As DateTime
        Dim ts As TimeSpan

        startTime = Now

        ' 何かの処理

        ts = Now.Subtract(startTime)    ' 経過時間算出

        Debug.WriteLine(ts.TotalMinutes.ToString)  ' 経過時間を分で換算

以上。参考まで

編集 削除
くまんばち  2009-11-22 15:24:12  No: 146561  IP: [192.*.*.*]

オショウさんありがとうございました。

編集 削除