投稿日 | : 2002/11/28(Thu) 09:01 |
投稿者 | : のぶ |
Eメール | : |
URL | : |
タイトル | : ファイルのタイムスタンプについて |
VBです初心者
ファイルのプロパティに更新,作成の 日付/時刻がありますが、
その日付/時刻を取得したくて、本をみてタイムスタンプというのが
ありやってみたところ、どうやらグリニッジ標準時になっている
みたいなんですが、東京標準時を取得したいのですが、皆さんは
取得時刻+8時間という風にしているのですか?日付をまたぐ時
面倒なのであれば教えて下さい。
宣言で以下のような風になってました。
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FILE_ATTRIBUTE_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
End Type
Private Declare Function GetFileAttributesEx Lib "kernel32" Alias "GetFileAttributesExA" (ByVal lpFileName As String, ByVal fInfoLevelId As Long, lpFileInformation As WIN32_FILE_ATTRIBUTE_DATA) As Long
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long