专栏首页VB小源码VB.NET 根据年月日判断是否为闰年或者平年!

VB.NET 根据年月日判断是否为闰年或者平年!

今天送上日历制作方法代码!!分几个部分,自己整合吧!


VB.NET 判断是否为闰年或者平年!

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

闰年平年(TextBox1.Text)

End Sub

Function 闰年平年(ByVal MyString As String) As String

Dim MyDate As DateTime = Convert.ToDateTime(MyString)

Dim MyInfo As String = MyDate.Year.ToString() + "年是:"

If (DateTime.IsLeapYear(MyDate.Year) = True) Then

MyInfo += "闰年。"

Else

MyInfo += "平年。"

End If

MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return 1

End Function

End Class

本文分享自微信公众号 - VB小源码(vb_xym),作者:巴西_prince

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2018-10-06

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • VB.NET 结合Access数据库开发的含有<验证码>系统登录示例

    巴西_prince
  • B4A 手机客户端源码

    Sub Process_Globals Dim Socket1 As Socket Dim AStreams As AsyncStreams

    巴西_prince
  • VB.NET 不同语言日期显示方式

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.E...

    巴西_prince
  • OSINT系列Part1: 查找域名背后的真实IP

    我们在渗透测试中长做的第一步就是找到目标的真实IP,随着网络环境、软件体系架构的越来越复杂,找到真实的主机IP也越来越变得复杂困难。CDN 负载均衡器都可以混淆...

    半月弧
  • BZOJ2783: [JLOI2012]树(树上前缀和+set)

    Description 数列 提交文件:sequence.pas/c/cpp 输入文件:sequence.in 输出文件:sequence.out 问题描述:...

    attack
  • 牛津大学开发AI框架,通过识别REM睡眠障碍来预测帕金森病

    帕金森病是一种影响全世界超过1000万人的神经退行性疾病,传统的诊断方法是发现缓慢的运动,如静止的震颤,肢体颤抖,肌肉僵硬。但要及早发现并不容易。目前还没有针对...

    AiTechYun
  • 干货 | 携程机票RN复杂交互实践

    海涛,携程前端开发工程师,负责机票主流程预订、React Native技术栈相关开发工作。

    携程技术
  • 对 volatile、compareAndSet、weakCompareAndSet 的一些思考

    tomas家的小拨浪鼓
  • 【程序源代码】优秀的后台管理系统

    一个基于 Spring Boot 2.1.0 、 Spring Boot Jpa、 JWT、Spring Security、Redis、Vue的前后端分离的后台...

    程序源代码
  • Scikit中的特征选择,XGboost进行回归预测,模型优化的实战

    版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/sinat_35512245/articl...

    大黄大黄大黄

扫码关注云+社区

领取腾讯云代金券