Excel VBA – 如果星期几的文件创builddate匹配单元格值？

我在工作的本地服务器上有一个文件夹目录：

G：\分配

1.PDF - Created 16/12/16 

如果文件创builddate的星期几名称与单元格A1中的值匹配，我还在Excel中使用以下VBA if语句来显示一条消息。

单元格A1 =星期五

 If WeekdayName(Weekday(objFile.DateCreated)) = Range("A1").Value Then MsgBox "Date Match" Else Msgbox "No match" End If 

由于某种原因，如果我在家里使用我的Mac试试这个代码，代码工作正常，date显示为匹配。

但是，由于某种原因，当我在我的工作计算机上使用这个代码，链接到服务器，我必须更换星期五与星期六，以获得一个匹配。

我不知道这是为什么，因为文件创builddate保持不变。 我做错了什么，如果有的话可以请教我如何解决这个问题？

Answer 1

Weekday Function和WeekdayName Function都可以指定星期的第一天。 但“ Weekday默认为星期天，“ WeekdayName默认为系统设置中指定的第一天。 这是讨厌的，因为它不能在每一个案件匹配。

所以最好的做法是为以下两种情况设置同一个属性：

 WeekdayName(Weekday(objFile.DateCreated, vbMonday), , vbMonday) 

要么

 WeekdayName(Weekday(objFile.DateCreated, vbUseSystemDayOfWeek), , vbUseSystemDayOfWeek)