■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#16560-0指定した時間までの経過時間を出す方法匿名165602001-06-08(金) 13:59
     #16562-0RE#16560:指定した時間までの経過時間を出す方法せつら2001-06-08(金) 15:05
     #16563-0RE#16560:指定した時間までの経過時間を出す方法よねKEN2001-06-08(金) 15:08
     #16566-0RE#16562:ftp実行時のオプション指定・・・匿名165602001-06-08(金) 16:35
#16560-0
指定した時間までの経過時間を出す方法
Timerイベントで24時間動いてるのですが、日付が変わる時に計算が変わってしまい
次の処理が始まるのが遅くなってしまいます。
経過時間を表示しなければたいした問題ではないのですが、次の処理がいつ始まるか
わかるようにする為には外す事ができません。
宜しくお願いします。m(_ _)m

Dim TestA as Date    
Dim TestB as Date    

TestA = TimeSerial(Hour(Time), Minute(Time) + 5, Second(Time))    '指定した時間
TestB = Format(Now,"hh:nn:ss")    '現在の時間

If TestA >= TestB then 
    Label1.caption = TestA - TestB    '経過時間をラベルに表示
    Exit Sub
End If

〜 メイン処理 〜


環境 WinNT VB6.0Pro SP3
#16562-0
RE#16560:指定した時間までの経過時間を出す方法
日替わりを考慮するなら、折角 Date 型を使っているのですから、日付として演算してあげると良い
です。

Dim TestA As Date

Private Sub Form_Load()
    TestA = DateAdd("n", 5, Now)
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = DateDiff("s", Now, TestA)
End Sub
#16563-0
RE#16560:指定した時間までの経過時間を出す方法
> Timerイベントで24時間動いてるのですが、日付が変わる時に計算が変わってしまい
> 次の処理が始まるのが遅くなってしまいます。
> 経過時間を表示しなければたいした問題ではないのですが、次の処理がいつ始まるか
> わかるようにする為には外す事ができません。
DateDiff、DateAdd関数を使いましょう。
また、時刻ではなく、日時で処理を行いましょう。
#16566-0
RE#16562:ftp実行時のオプション指定・・・
よねKENさん、せつらさん、レスありがとうございました。
日が変わっても正常に動作するようになりました。
もっと動作に関係のある関数などを調べないとだめですね。
こんな便利な関数があったのに・・・。(^^;)

あともう一つだけお聞きしても良いでしょうか?
前回の質問とはまったく違うのですが、VBからバッチファイルを作成してFTPでファイルを転送
してます。
この時にワイルドカードを使用できるmputを使いたいのですが、転送するたびに応答要求が
来てしまいます。
応答要求無しでファイル転送するにはマニュアルを見るとFTP起動時に -i の
オプションをつければいいようです。
しかしバッチファイルで実行している形が「ftp -s:」にしています。
ここに「ftp -i -s:」としても当然のようにファイル転送が出来ません。
ftpでログインしてから「prompt」のコマンドを実行してもだめでした。
ftpのデータ作成時に転送するファイル数分のput処理を作った方が良いのでしょうか?
転送するファイル数は不定ですが、数はそんなに多くはありません。
このページと関連する記事:
#13181-0時計が遅れてくる。2000-12-05(火) 09:14
#11399-1時間の計算2000-06-08(木) 15:14
#317-2「now」から日付のみ取り出す2003-05-14(水) 21:05
#6813-0時間の計算。2000-03-21(火) 17:31
#21543-0タイマーに関して...2001-06-24(日) 21:59
#21408-0時刻の加算・減算2002-07-03(水) 16:38
#17230-0実行時間を測る2000-12-20(水) 11:21
#17170-0時間置きにデータを取りこむ2001-08-07(火) 09:53
#31084-0経過時間の表示2000-10-03(火) 22:51
#296-1日付と時刻の処理2002-05-21(火) 01:20
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)