[リストへもどる]
一括表示
投稿時間：2003/08/27(Wed) 15:20
投稿者名：Tamy
Ｅメール：
ＵＲＬ　：
タイトル：HttpQueryInfoでの最終更新時刻の取得
初めましてTamyと言います。
タイトルにも書いたとおり
HttpQueryInfoでの最終更新時刻の取得
を試みていますが、取得した日付が
Fri, 08 Aug 2003 08:56:00 GMTのようになってしまいます。
03/08/08　08:56:00のように取得したいのですが、
どうしたら出来るのでしょうか？
WEBで検索してもC言語のソースばかりで分かりませんでした。
以下ソースです

If HttpQueryInfo _
   (lnghRequest, _
   HTTP_QUERY_LAST_MODIFIED, _
   strBuffer, _
   Len(strBuffer), _
   0) <> 0 Then
   Label1.Caption = strBuffer
end if

よろしくお願いします。

投稿時間：2003/08/27(Wed) 18:27
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: HttpQueryInfoでの最終更新時刻の取得
>    Label1.Caption = strBuffer

     Label1.Caption = Format$(strBuffer, "yy/mm/dd hh:mm:ss")
    'Label1.Caption = Format$(CDate(strBuffer), "yy/mm/dd hh:mm:ss")

これではだめだったのでしょうか？

投稿時間：2003/08/27(Wed) 18:46
投稿者名：Tamy
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: HttpQueryInfoでの最終更新時刻の取得
> >    Label1.Caption = strBuffer
>
>      Label1.Caption = Format$(strBuffer, "yy/mm/dd hh:mm:ss")
>
> これではだめだったのでしょうか？
花ちゃんさん、回答ありがとうございます。
試してみましたが、変換されずに
Fri, 08 Aug 2003 08:56:00 GMT　になりました。

投稿時間：2003/08/27(Wed) 19:09
投稿者名：nobu
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: HttpQueryInfoでの最終更新時刻の取得
> 試してみましたが、変換されずに
> Fri, 08 Aug 2003 08:56:00 GMT　になりました。

直接的な回答では有りませんが、文字列として取得されているなら
いきなり希望する書式にならないなら、間接的に（変換処理を追加して）
自分の希望する書式に変換すれば良いのではありませんか？
08 Aug 2003 を　03/08/08　に変換するのは難しい処理ではありませんし。
　

投稿時間：2003/08/27(Wed) 20:18
投稿者名：Tamy
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: HttpQueryInfoでの最終更新時刻の取得
> > 試してみましたが、変換されずに
> > Fri, 08 Aug 2003 08:56:00 GMT　になりました。
>
> 直接的な回答では有りませんが、文字列として取得されているなら
> いきなり希望する書式にならないなら、間接的に（変換処理を追加して）
> 自分の希望する書式に変換すれば良いのではありませんか？
> 08 Aug 2003 を　03/08/08　に変換するのは難しい処理ではありませんし。
>

nobuさんヒントありがとうございます。
花ちゃんさんの回答を参考に

Label1.Caption = Format$(DateAdd("h", 9, CDate(strBuffer)), "yy/mm/dd hh:mm:ss"

とすることで正しい日付が取得できました。
どうもありがとうございます。　

投稿時間：2003/08/27(Wed) 19:18
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: HttpQueryInfoでの最終更新時刻の取得
文字列ならDate型に変換してから取得して見て下さい。

Private Sub Command1_Click()
    Dim strBuffer As String
    strBuffer = "Fri, 08 Aug 2003 08:56:00 GMT"

    strBuffer = Mid$(strBuffer, 5, 21)
    Label1.Caption = Format$(CDate(strBuffer), "yy/mm/dd hh:mm:ss")
End Sub

時差を考慮するなら＋9時間して下さい。

投稿時間：2003/08/27(Wed) 20:15
投稿者名：Tamy
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: HttpQueryInfoでの最終更新時刻の取得
> 文字列ならDate型に変換してから取得して見て下さい。
>
> Private Sub Command1_Click()
>     Dim strBuffer As String
>     strBuffer = "Fri, 08 Aug 2003 08:56:00 GMT"
>
>     strBuffer = Mid$(strBuffer, 5, 21)
>     Label1.Caption = Format$(CDate(strBuffer), "yy/mm/dd hh:mm:ss")
> End Sub
>
>  時差を考慮するなら＋9時間して下さい。

花ちゃんさん回答ありがとうございます。
うまく行きました。GMT(時差)のことは知りませんでした。
Fri, 08 Aug 2003 08:56:00 GMT　は　03/08/08 17:56:00に
ならないといけないのですね。

Label1.Caption = Format$(DateAdd("h", 9, CDate(strBuffer)), "yy/mm/dd hh:mm:ss"

とすることで正しい日付が取得できました。
今回はどうもありがとうございました。
これからもよろしくお願いします。