ExtendedProperty("System.Photo.DateTaken")结果相差8小时.

ning84 · 发表于 2023-6-27 11:23

Debug.Print .ExtendedProperty("System.Photo.DateTaken")与目标结果相差8小时.

问在那里能找到时差的设置.

Private Sub dell11()
Dim oSh As Shell32.Shell
Dim ImgName
Dim oFolder As Shell32.Folder
Set oSh = New Shell32.Shell
Dim FolderIt As ShellFolderItem
Dim Str
Dim oDir
Dim oDate As Date
oDir = "F:"
ImgName = "F:\4.jpg"
ImgName = "4.jpg"
Set oFolder = oSh.Namespace(oDir)
Set tmpFile = oFolder.ParseName(ImgName)
Str = oFolder.GetDetailsOf(tmpFile, 12)
Str = Replace(Str, ChrW(8206), "")
Str = Replace(Str, ChrW(8207), "")
Debug.Print Str
Set FolderIt = oSh.Namespace(oDir).ParseName(ImgName)
With FolderIt
Debug.Print .ExtendedProperty("System.Photo.DateTaken")
Debug.Print .ModifyDate
End With
'Debug.Print oDate
Dim Fso As FileSystemObject, tFile As File
Set Fso = New FileSystemObject
Set tFile = Fso.GetFile("F:\4.jpg")
With tFile
Debug.Print .DateCreated, .DateLastAccessed, .DateLastModified
End With
Dim Img As WIA.ImageFile
Set Img = New WIA.ImageFile
Img.LoadFile "F:\4.jpg"
With Img
aa = Split(.Properties(4), " ")
Str = Replace(aa(0), ":", "/") & " " & aa(1)
oDate = Str
Debug.Print Str
End With
End Sub

复制代码

wanghan519 · 发表于 2023-6-27 11:48

这个是0时区时间（GMT格林尼治时间），可以用htmlfile对象里的new Date()识别这个时间然后转本地时间字符串，再转vba里的date对象

cidanji · 发表于 2023-6-27 11:49

正确时间 = CDate(oDate) + #8:00:00 AM#

ning84 · 发表于 2023-6-27 17:31

wanghan519 发表于 2023-6-27 11:48
这个是0时区时间（GMT格林尼治时间），可以用htmlfile对象里的new Date()识别这个时间然后转本地时间字符串 ...

谢谢解答.

GMT时间怎么换算成北京时间-百度经验 https://jingyan.baidu.com/article/948f5924c6d9b5990ef5f954.html

GMT指的是格林威治中央区时，北京位于东八区，也就是北京的地方时比中央时区的地方时早8小时。GMT-4：00表示比中央区时晚小时，也就是说这个地方在中央时区以西，西四区。

UTC ＋ 时区差 ＝ 本地时间

ning84 · 发表于 2024-4-11 11:24

继续学习以前的知识

关键语句
GetDetailsOf
Namespace
ParseName

Private Sub dell11()
Dim oSh As Shell32.Shell
Dim ImgName
Dim oFolder As Shell32.Folder
Set oSh = New Shell32.Shell
Dim FolderIt As ShellFolderItem
Dim Str
Dim oDir
Dim oDate As Date
Dim tmpFile
oDir = "C:"
'ImgName = "F:\4.jpg"
ImgName = "2.jpg"
ImgName = "Screenshot_2024-04-11-08-42-04-258_com.baidu.BaiduMap.jpg"
ImgName = "IMG_20240411_083434645.jpg"
Set oFolder = oSh.Namespace(oDir)
Set tmpFile = oFolder.ParseName(ImgName)
For ii = 1 To 20
Debug.Print ii, oFolder.GetDetailsOf(tmpFile, ii)
Next ii
Stop
Str = oFolder.GetDetailsOf(tmpFile, 3)
Stop
Debug.Print tmpFile.ModifyDate
End Sub

复制代码

1          大小
2          项目类型
3          修改日期
4          创建日期
5          访问日期
6          属性
7          脱机状态
8          脱机可用性
9          假设的类型
10          所有者
11          种类
12          拍摄日期
13          参与创作的艺术家
14          唱片集
15          年
16          流派
17          指挥者
18          标记
19          分级
20          作者

ning84 · 发表于 2024-4-18 11:24

ning84 发表于 2024-4-11 11:24
继续学习以前的知识

关键语句

复习复习再复习，一点一点理解。

Private Sub deldeldeldel()
Dim Sht As Worksheet, Rng As Range
Dim Rr, Kk As Integer
Set Rng = Selection
Set Sht = Rng.Parent
With Sht.Cells
.Clear
.Font.Size = 9
End With
Rr = 10
Dim oSh As Shell32.Shell
Dim Img, ImgName
Dim tFolder As Shell32.Folder
Set oSh = New Shell32.Shell
Dim oDir, tFile
Dim oDate As Date
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
Dim oFolder As Folder, oFile As File
Set oFolder = Fso.GetFolder(ThisWorkbook.Path)
Debug.Print oFolder.Name
For Each oFile In oFolder.Files
If UCase(oFile.Name) Like "IMG*" Then
oDir = oFile.Path
oDir = Left(oDir, InStrRev(oDir, ""))
Set tFolder = oSh.Namespace(oDir)
Set Img = tFolder.ParseName(oFile.Name)
Debug.Print oFile.Name, oFile.DateLastModified, Img.ModifyDate
Debug.Print "-----------"
Debug.Print tFolder.GetDetailsOf(ImgName, 12), tFolder.GetDetailsOf(Img, 3)
oDate = Img.ExtendedProperty("System.Photo.DateTaken")
Debug.Print CDate(oDate) + #8:00:00 AM#
Sht.Cells(Rr + Kk, 2) = oFile.Name
Sht.Cells(Rr + Kk, 3) = oFile.DateLastModified
Sht.Cells(Rr + Kk, 4) = CDate(oDate) + #8:00:00 AM#
Kk = Kk + 1
End If
Next oFile
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

ExtendedProperty("System.Photo.DateTaken")结果相差8小时.

评分