在電腦桌面新建一個文本文件，將其后綴名從txt改為vbs。當(dāng)你右鍵點擊該文件并選擇編輯時，會彈出一個對話框詢問是否確認。點擊“是”后，文件圖標會變成特定的樣式。在打開的VBS文件中，切換輸入法為英文狀

在電腦桌面新建一個文本文件，將其后綴名從txt改為vbs。當(dāng)你右鍵點擊該文件并選擇編輯時，會彈出一個對話框詢問是否確認。點擊“是”后，文件圖標會變成特定的樣式。

在打開的VBS文件中，切換輸入法為英文狀態(tài)，并注意輸入空格的位置。按照以下內(nèi)容進行編輯。編輯完成后，按下Ctrl S保存并關(guān)閉文件。

```

Dim year

year InputBox("請輸入年份：")

If (year Mod 4 0 And year Mod 100 <> 0) Or year Mod 400 0 Then

MsgBox "今年2月有29天"

Else

MsgBox "今年2月有28天"

End If

```

在桌面雙擊該文件，一個對話框會彈出顯示當(dāng)前年份的2月有多少天。公歷閏年的規(guī)則是：能被4整除但不能被100整除的年份為閏年；或者能被400整除的年份也為閏年。根據(jù)這個規(guī)則，我們可以使用VBS的條件語句來判斷某年的2月天數(shù)。

以上代碼中使用了`InputBox`函數(shù)來接收用戶輸入的年份，并使用`Mod`運算符來判斷是否為閏年。如果是閏年，則彈出窗口顯示“今年2月有29天”，否則顯示“今年2月有28天”。

使用DateDiff快速計算某年的2月天數(shù)

另一種方法是使用VBS中的`DateDiff`函數(shù)來計算某年的2月天數(shù)。`DateDiff`函數(shù)用于計算兩個日期之間的差距，其中第一個參數(shù)d代表計算天數(shù)之差。

以下是使用`DateDiff`函數(shù)判斷某年2月天數(shù)的代碼示例：

```

Dim year

year InputBox("請輸入年份：")

Dim days

days DateDiff("d", year "-03-01", year "-02-01")

If days 29 Then

MsgBox "今年2月有29天"

Else

MsgBox "今年2月有28天"

End If

```

在上述代碼中，我們將3月1日和2月1日作為參數(shù)傳遞給`DateDiff`函數(shù)，并將結(jié)果保存在變量`days`中。如果`days`等于29，則說明該年的2月有29天；反之，有28天。

無論是使用條件語句判斷閏年還是使用`DateDiff`函數(shù)計算天數(shù)差，都可以方便、快速地判斷某年的2月天數(shù)。這些方法可以幫助我們進行日常工作中與日期相關(guān)的計算和判斷。