彭世瑜的博客

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

自定义博客皮肤

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

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

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

2017-01-13 15:47:43

阅读数 267

评论数 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

阅读数 172

评论数 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

阅读数 103

评论数 0

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

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

2017-01-12 19:16:23

阅读数 110

评论数 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

阅读数 93

评论数 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

阅读数 108

评论数 0

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

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

2017-01-11 23:02:37

阅读数 116

评论数 0

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