VB6.0SP5において、
Date変数でミリ秒単位でカウントアップしたいのですが
どのようにすればよいでしょうか？

> Date変数でミリ秒単位でカウントアップしたいのですが
ストップウォッチのような事をしたいなら、ここの日付・時刻・日数関係のところ
を見て下さい。

やりたいことは以下のとおりです。
１．現在時刻を取得する。
２．１．で取得した時刻に固定時間（ミリ秒）を加算
３．表示
４．あるタイミングで２，３の繰り返し
※ただし、１．で取得する現在時刻はDate型に限る

> ストップウォッチのような事をしたいなら、ここの日付・時刻・日数関係のところ
> を見て下さい。
拝見しましたがやりたい事とはちょっとニュアンスが異なるようで、
もっとシンプルにできないかな？と思いまして。。。

現在時刻を1/100秒単位で現す関数 と同様の方法でいいのでは？

> 現在時刻を1/100秒単位で現す関数 と同様の方法でいいのでは？
すみません、説明が足りませんでした。
この時に表示する書式はyyyy/mm/dd hh:nn:ssでミリ秒の単位は
表示しないのです。従いまして、
2003/08/21 09:10:30
2003/08/21 09:10:30
2003/08/21 09:10:31
2003/08/21 09:10:32
2003/08/21 09:10:32
のような一見不規則な表示だけど、同じ日付が三行は表示されない。
という代物なのですが、やはり始めの時刻をＤａｔｅ型以外の型で保持しておいて
Ｄａｔｅ型に変換するしかないのでしょうか？

> という代物なのですが、やはり始めの時刻をＤａｔｅ型以外の型で保持しておいて
> Ｄａｔｅ型に変換するしかないのでしょうか？

「日付型」をヘルプで調べれば、日付型ではミリ秒は格納できないことが分かります。

#ヘルプ抜粋
日付型 (Date) の変数は、IEEE 64 ビット (8 バイト) の浮動小数点数の変数です。
西暦 100 年 1 月 1 日〜西暦 9999 年 12 月 31 日の範囲の日付と、
0:00:00 〜 23:59:59 の範囲の時刻を表すことができます。
整数部の値は日付、小数部の値は時刻として表されます。
午前 0 時は 0、正午は 0.5 です。負の整数は 1899 年 12 月 30 日より前の日付を表します。

時刻は、秒を一日の総秒数86400秒で割った値です。
よってミリ秒は保持できません。ミリ秒単位での計算も出来ません。

別の変数にミリ秒を加算していき、１０００ミリ秒を超えたら日付型に加算するとかしないといけませんね。

> 別の変数にミリ秒を加算していき、１０００ミリ秒を超えたら日付型に加算するとかしないといけませんね。
お騒がせ致しました。
結局、開始時刻からの経過時間のみを加算していって
表示直前で開始時間にDate型に加算する方法にしました。
もっと簡単にできるかな？と思っていたのですが．．．

> 「日付型」をヘルプで調べれば、日付型ではミリ秒は格納できないことが分かります。

可能です。日付型そのものはDouble型の流用なので、保持することができます。
ただ、VBの標準の関数・ステートメントを介してだと、難しいですけど。
以前、日経ソフトウエア2001-12号でSNTPクライアントを作ったときは、
日付型を利用してミリ秒を扱いました。

> > 「日付型」をヘルプで調べれば、日付型ではミリ秒は格納できないことが分かります。
>
> 可能です。日付型そのものはDouble型の流用なので、保持することができます。
> ただ、VBの標準の関数・ステートメントを介してだと、難しいですけど。

うお、出来るのですか...
出来ないと言い切って恥ずかしいかぎりです。番頭さんにお詫びいたします。m(_o_)m

APIかなにかで実現できるのでしょうか？
私の提示したやり方より簡単そうならば、参考の為に教えて頂きたいです。

あえてするのであれば、Double型に変換して、それを使う、といった
ところでしょう。文字列化するときなどは、自前で割り算して算出
しましょう。

> > という代物なのですが、やはり始めの時刻をＤａｔｅ型以外の型で保持しておいて
> > Ｄａｔｅ型に変換するしかないのでしょうか？
> 「日付型」をヘルプで調べれば、日付型ではミリ秒は格納できないことが分かります。

ちなみに、SWbemDateTimeオブジェクトという物もあります。

これだと、(1601年1月1日以降のデータであれば)100ナノ秒単位の情報までを正確に保持可能です。
また、プロパティの設定によっては、（時刻ではなく）時間として扱うように変更する事も出来ます。

Set o = CreateObject("WbemScripting.SWbemDateTime")
o.SetVarDate Now, True  'VBのDate型を、時差情報付きで格納
o.Microseconds = 123456 'マイクロ秒の部分の情報を修正

y = o.Year              '32bit整数型として取得(年)
m = o.Month             '32bit整数型として取得(月)
d = o.Day               '32bit整数型として取得(日)
h = o.Hours             '32bit整数型として取得(0〜23)
n = o.Minutes           '32bit整数型として取得(0〜59)
s = o.Seconds           '32bit整数型として取得(0〜59)
z = o.Microseconds      '32bit整数型として取得(0〜999999)

v = o.GetFiletime       '64bit整数値を表す文字列として取得(最小単位:100ナノ秒)
x = o.GetVarDate()      'VBの日付型として取得(最小単位:1秒)
f = o.Value             'yyyymmddHHNNSS.mmmmmmsUUU+XXX形式の文字列として取得


ただしこれは WMI系のオブジェクトなので、古いOS環境の場合は、
別途、Windows Management Instrumentation のセットアップが必要です。
(最近のOSなら、標準でWMIが利用できますけれどね)

もし、WMIが無い環境でも使いたいなら、VB標準の Double や 10進型Variant などを
使って、自前で数値←→日時変換処理を書いた方が良いかも知れません。

おかげさまで、いっぱい知識が増えました。
皆様どうもありがとうございました。
m(__)m