VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/06/16(Thu) 18:08
投稿者： tomo
ＵＲＬ：
タイトル： SYSTEMTIMEの取得時の不思議な点

VBを始めて1年くらいのものです。

作成したプログラムでシステム日付を取得しているのですが、その方法に
GetSystemTimeの関数を使用しています。
取得したいスタイルは、「yyyy/mm/dd hh:mm:ss,mmm」
(mmmは1000分の1秒)なのですが、たまに、時間のところが「32:32:26,450」の
ようになってしまいます(hhが'32'のように、24時以降のものになってしまう)。

このような現象が起こるとは考えづらいのですが、このようになる要因を
何かご存知の方がいらしたら、ご教授いただけないでしょうか？

以下にプログラムを記します。よろしくお願いいたします。


--------
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTimeLib As SYSTEMTIME)

--------
Public ProcTime As String      '取得時刻の格納用変数                                    

--------
Public Function GetCurrentTime()
    
    Dim ReqProcTime As SYSTEMTIME

    Call GetSystemTime(ReqProcTime)
    
    ProcTime = CStr(ReqProcTime.wYear) & "/" & CStr(ReqProcTime.wMonth) &
amp; "/" & _
                CStr(ReqProcTime.wDay) & " " & CStr(ReqProcTime.whour + 9
) & ":" & _
                CStr(ReqProcTime.wMinnit) & ":" & CStr(ReqProcTime.wSecon
d) & "," & _
                CStr(ReqProcTime.wMilliSecconds)
                
End Function

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -