VB编程：DateSerial通过闰月判断闰年-47

运行效果：

程序代码：

Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean

MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29

End Function

Private Sub Command1_Click()

If Len(Text1.Text) <= 4 Then

If MonthToLeapYear(Text1.Text) = True Then

Print Text1.Text & "年是闰年"

Else

Print Text1.Text & "年是平年"

End If

Else

Print "错误：请输入正确的年份！"

End If

End Sub

学习总结：

DateSerial返回包含指定的年、月、日的 Variant (Date)。

语法 DateSerial(year, month, day)

VB编程：DateSerial通过闰月判断闰年-47相关推荐

VB编程：DateSerial通过闰月判断闰年-47_彭世瑜_新浪博客
运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean MonthToLeapYear = Day( ...
1.4编程基础之逻辑表达式与条件分支 17 判断闰年
http://noi.openjudge.cn/ch0104/17/ /* 1.4编程基础之逻辑表达式与条件分支 17 判断闰年 http://noi.openjudge.cn/ch0104/17/ ...
C# 编程入门第三课类型转换，++，关系运算符，bool类型（布尔类型），逻辑运算符，判断闰年，结构
C# 编程入门第三课文章目录 C# 编程入门第三课 1. 类型转换 2. ++,-- 3. 关系运算符 4. bool 类型(布尔类型) 5. 逻辑运算符 6.判断闰年 7. 结构 1. 类型转换 ...
scratch判断闰年电子学会图形化编程scratch等级考试四级真题和答案解析2022年6月
目录 scratch判断闰年一.题目要求 1.准备工作 2.功能实现二.案例分析
python判断年份是否为闰年的编程,Python实例：判断输入的年份是否为闰年
要计算年份是否为闰年? 判断闰年条件, 满足年份模400为0, 或者模4为0但模100不为0. 如下实例: # -*- coding: UTF-8 -*- #自定义函数 leapyear def le ...
如何用VB编程实现关闭WINDOWS窗口？
如何用VB编程实现关闭当前窗口的功能啊? 那位高手知道的帮帮忙啊? :我说的是关闭当前的WINDOWS窗口比如说我刚刚打开了一个名为ABC 的文件夹窗口我现在想通过用VB编程来实现关闭该 ...
C语言——用函数方法判断闰年
文章目录一.用函数方法判断闰年二.程序代码总结一.用函数方法判断闰年 1.判断输入整数是否是闰年的条件 (1):该整数能被4整除但不能被100整除. (2):该整数能被400整除. 2.编程思 ...
c语言九三字符串的字母个数,C语言判断闰年和平年
C语言判断闰年和平年 #includevoid fun(int year) { if((year%4==0&&year%100!=0)||(year%100==0&&y ...
【电子学会】2022年06月图形化四级 -- 判断闰年
判断闰年闰年(Leap Year)是为了弥补因人为历法规定造成的年度天数与地球实际公转周期的时间差而设立的.没有补上时间差的年份为平年.平年的二月只有28天,而闰年的二月有29天.那么如何判断这一年 ...

VB编程：DateSerial通过闰月判断闰年-47

VB编程：DateSerial通过闰月判断闰年-47相关推荐

最新文章

热门文章