VBA程式設計 03 判斷輸入年份是否是閏年

通過輸入月份，判斷是否是閏年

【**區域】

sub

判斷閏年()
dimyear
asinteger
'用於儲存輸入的年份
year = cint(inputbox("
請輸入需要判斷的年份：
", "
判斷閏年
")) '
輸入年份
ifyear
mod4 = 0
andyear
mod100
<> 0
then
msgbox
"" & "
是乙個閏年
", vbokonly, "
判斷閏年
"else
ifyear
mod100 = 0
andyear
mod400 = 0
then
msgbox
"" & "
是乙個閏年
", vbokonly, "
判斷閏年
"else
msgbox
"" & "
不是乙個閏年
", vbokonly, "
判斷閏年
"end
ifend
ifend sub

第2行宣告了乙個用於儲存年份的變數，第3行用於輸入乙個年份，第4~12行是判斷邏輯，並輸出結果。

【結果展示】

輸入值為：2018

利用 bool 變數輸入年份判斷是否是閏年

輸入年份，判斷該年是否是閏年。是否是潤年需要判斷該年份是否被4整處，如果被4整出後是否又被100整出，在被100整出後，又要判斷是否被400整出，這是三個條件都成立時才能判斷概念是閏年，如果該年只能被4整出，不能被100整出，則該年是閏年，如果在被100整除後不能被400整除，則說明不是閏年。在求取...

判斷輸入是否合法

一 判斷輸入是否為數字 通常使用方法1和3,方法2和4無法保證一定能判斷正確。1 函式isdigit 表頭檔案 include 定義函式 int isdigit char c 函式說明 檢查引數c是否為阿拉伯數字0到9。返回值若引數c為阿拉伯數字，則返回true，否則返回null 0 2 當使用ci...

2 python 演算法 判斷年份是否是閏年

leap year.py defis leap year year int bool 判斷年份是否是閏年 閏年的2月有29天，平年的2月只有28天。演算法思想 1 判斷是否是世紀年。2 若是世紀年，判斷能否被400整除。若可以被整除，則是閏年 否則是平年。3 若是平年，判斷能否被4整除。若可以被整除...