Excel VBA - 如果文件创建日期的工作日与单元格值匹配?

时间:2016-12-18 08:48:08

标签: excel vba

我在本地服务器上有一个文件夹目录:

G:\分配

1.PDF - Created 16/12/16

如果文件的创建日期的工作日名称与单元格A1中的值匹配,我还在excel中使用以下VBA if语句来显示消息。

单元格A1 =星期五

If WeekdayName(Weekday(objFile.DateCreated)) = Range("A1").Value Then

MsgBox "Date Match"

Else

Msgbox "No match"

End If

出于某种原因,如果我在家使用我的Mac尝试此代码,代码工作正常,日期显示为匹配。

但是,出于某种原因,当我在工作计算机上使用此代码并链接到服务器时,我必须在周五更换星期六才能获得匹配。

我不确定为什么会这样,因为文件创建日期保持不变。 我做错了什么,如果有的话,有人可以告诉我如何解决这个问题吗?

1 个答案:

答案 0 :(得分:0)

功能Weekday FunctionWeekdayName Function都可以指定一周的第一天。但是,<?php require_once 'database_conn.php'; $userid = $_SESSION['userSession']; $sql = "SELECT cdreview.reviewDate, cdreview.reviewText, cd.CDTitle FROM cd INNER JOIN cdreview ON cdreview.CDID=cd.CDID AND cdreview.userID='$userid' ORDER BY cdreview.reviewDate;" or die; $result = mysqli_query($conn, $sql) or die(mysqli_error($conn)); if (mysqli_num_rows($result) > 0) { while ($row = mysqli_fetch_assoc($result)){ $date = $row['reviewDate']; $album = $row['CDTitle']; $review = $row['reviewText']; $cdid = $row['CDID']; echo"<table align='center'> <tr align='center'> <td colspan='5'> <h2>View All Reviews</h2> </td> </tr> <tr align='center'> <th>Date</th> <th>Album</th> <th>Reviews</th> <th>Edit Review</th> <th>Delete Review</th> </tr> <tr align='center'> <td>$date</td> <td>$album</td> <td>$review</td> <td><a href=\"album_reviews.php?id=$cdid\"></a></td> <td><a href=\"review.php?id=$cdid\"></a></td> </tr> </table>"; } } else { echo "<script>alert('You have not left any reviews!')</script>"; echo "<script>window.open('home.php', '_self')</script>"; } mysqli_close($conn); ?> 默认为星期日,Weekday默认为系统设置中指定的第一天。这很烦人,因为它在每种情况下都不一致。

因此,最佳做法是为两者的第一天设置相同的属性:

WeekdayName

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