彭世瑜的博客

记录我的code历程 个人主页:www.pengshiyu.com

VB编程:身份证号码是否合法-49

一、运行效果:   二、程序代码: Private Sub Command1_Click()         Label2.Caption = ""         Label2.BackColor = Me.BackColor    ...

2017-01-13 15:47:43

阅读数:39

评论数:0

VB编程:IsNumeric判断闰年-48

运行效果:   运行代码: 方法一: Private Sub Command1_Click()     Dim myYear As Boolean     If IsNumeric(Text1.Text) Then         If Text1.Text Mod 40...

2017-01-13 14:57:04

阅读数:33

评论数:0

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

运行效果:   程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean     MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29 E...

2017-01-12 19:18:36

阅读数:27

评论数:0

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

运行效果:   程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean     MonthToLeapYear = Day(DateSerial(Yea, 2...

2017-01-12 19:16:23

阅读数:9

评论数:0

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

运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean     MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29 E...

2017-01-12 19:08:25

阅读数:17

评论数:0

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

运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean     MonthToLeapYear = Day(DateSerial(Yea, 2, 29)) = 29 E...

2017-01-12 19:08:25

阅读数:44

评论数:0

VB编程:DataPart函数判断当前所处季节-46

一、运行效果: 二、代码: Private Sub NowPart()  '判断季节     Dim Str     Str = DatePart("q", Now)     Select Case Str         Cas...

2017-01-11 23:02:37

阅读数:28

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭