vb2008で使用期限を設定し、その日以降であれば使用できないようにしたいと考えております。とあるサイトに以下のようなサンプルがございました。Dim 残り日数 As Integer残り日数 = Datediff("d",使用期限,Format(Now,"yyyy/MM/dd"))IF 残り日数 >=0 Then Me.Close()上記で設定は可能なのですが、ローカル時間と比較しているため時計を戻すことにより使用可能になってしまいます。ローカル時間ではなく、インターネット等から正確な日付を取得し、使用期限以降は実行できないようにすることは可能でしょうか。
> vb2008で使用期限を設定し、その日以降であれば使用できないようにしたいと考えております。とあるサイトに以下のようなサンプルがございました。> > Dim 残り日数 As Integer> 残り日数 = Datediff("d",使用期限,Format(Now,"yyyy/MM/dd"))> IF 残り日数 >=0 Then Me.Close()> > 上記で設定は可能なのですが、ローカル時間と比較しているため時計を戻すことにより使用可能になってしまいます。ローカル時間ではなく、インターネット等から正確な日付を取得し、使用期限以降は実行できないようにすることは可能でしょうか。 【全文引用を避け、必要な部分のみを引用するようにして下さい。】
>インターネット等から正確な日付を取得し、使用期限以降は実行できないように>することは可能でしょうか。インターネットに接続されていたら(接続できるのなら)可能ですが、全てのPCがインターネットに接続できるとは限らないのではないでしょうか？日本標準時プロジェクトのサイトhttp://www3.nict.go.jp/cgi-bin/JST.plhttp://www2.nict.go.jp/w/w114/tsp/PubNtp/clients.html標準時間でなくても掲示板に表示しているようにサーバーから取得する事も可能です。# オショウ さん 間違って投稿されたのかな？
返信ありがとうございます。> インターネットに接続されていたら(接続できるのなら)可能ですが、全てのPCが> インターネットに接続できるとは限らないのではないでしょうか？インターネットに接続されていることを前提と考えております。> 日本標準時プロジェクトのサイト> http://www3.nict.go.jp/cgi-bin/JST.pl> > http://www2.nict.go.jp/w/w114/tsp/PubNtp/clients.html>> 標準時間でなくても掲示板に表示しているようにサーバーから取得する事も可能です。このようなサイトがあったのですね。とりあえず、日付の部分だけが取れればよいと考えておりますが、どのようにすればここから日付を取得できるのかがわかりません。こちらは参考になりますか。http://www2.nict.go.jp/w/w114/tsp/JST/index.html#9・html body 中の「コメント」部分にある時刻文字列を切り出す→これはYahooでいうとソースを表示した時に一番最後に出てる日付情報から取得するということですか。・http ヘッダの Date: フィールドを使う→調べているとhttpヘッダから日付情報を取れるとあったのですが、簡単に取ることができるのでしょうか。
> こちらは参考になりますか。> http://www2.nict.go.jp/w/w114/tsp/JST/index.html#9先に回答したリンクの下記はご覧になったのですか？http://www2.nict.go.jp/w/w114/tsp/PubNtp/clients.html中ほどに(b)エクセルの場合 というところに式もかいてあったかと思うが。下記からデータを取得してhttps://ntp-a1.nict.go.jp/cgi-bin/ntpDim dt As DateTime = Date.FromOADate((取得したデータ) / 86400 + 2 + 9 / 24)結果 取得したデータが 3429398305.823 の場合 2008/9/3 11:38:26日付だけでいいのなら、日付を表示しているサイトから取得するとか、ご自分でそのようなサイトを作っておくとか？幾らでも方法はありますが。但し、私のサイトのトップページに表示しているような日付はローカルを読んでいるのでだめですが。
返信ありがとうございました。> > こちらは参考になりますか。> > http://www2.nict.go.jp/w/w114/tsp/JST/index.html#9> > 先に回答したリンクの下記はご覧になったのですか？> http://www2.nict.go.jp/w/w114/tsp/PubNtp/clients.htmlすみません。見落としてました。> 中ほどに> (b)エクセルの場合> というところに式もかいてあったかと思うが。> > 下記からデータを取得して> https://ntp-a1.nict.go.jp/cgi-bin/ntp> > Dim dt As DateTime = Date.FromOADate((取得したデータ) / 86400 + 2 + 9 / 24)> > 結果 取得したデータが 3429398305.823 の場合 2008/9/3 11:38:26> > > 日付だけでいいのなら、日付を表示しているサイトから取得するとか、ご自分で> そのようなサイトを作っておくとか？幾らでも方法はありますが。上記を参照し、解決致しました。日付に関してはFormatで日付のみにしました。今回作成しているものに組み込みうまく動作するかと思います。ありがとうございました。