> こんばんは
> お久しぶりです
> 暑い日々が続きますが
> いかがお過ごしでしょうか？
暑いでんな。
> ふと気がついたことがありますので書き込みさせていただきます
> うちの環境はWin MeでVB5+SP3で開発しています
たしか、VB5はME対応を明言してなかったような気がします。
> こちらのサイトにおいてあるNTPサーバーからの時間取得の
> サンプルプログラムを試してみたのですが
> デザイン時と言うのでしょうか？
> ＶＢのソースからの時間取得はうまくいくのですが
> EXEの形にしてしまうと時間取得がうまくいかなくて
> 「1970/01/01」で取得するか
> 「実行時エラー'6'オーバーフロー」で
> 落ちてしまいます
dteTime = CDate(DateAdd("d", nDays, "1970/01/01") & " " & nHours & ":" & nMinutes & ":" & nSecs)
この行でしょうか？
DateAddでエラーがでてるか、CDateでエラーがでてるかは？
考えられる原因として、OSの日付の書式設定によって
おかしくなるかもしれませんので、
dteTime = CDate(Format(DateAdd("d", nDays, "1970/01/01"), "yyyy/mm/dd") & " " & nHours & ":" & nMinutes & ":" & nSecs)
としておいたほうがいいと思います。
> これらのエラーが出るのはうちの環境だけなのでしょうか？
> エラー対策があれば教えてください
とりあえず、上の修正をやってみてください。
それでも、おかしければ、もう少し、エラーの場所を特定して、
変数の中身の状態がどうなっているのか、書いていただけると、
わかるかもしれません。
|