计算你的出生日期是星期几

原创 2012年04月28日 23:33:31

Private Sub Command1_Click()

Dim Year As Integer

Dim Month As Integer

Dim Day As Integer

Dim dayofweek As Byte

Dim Birthday As Date

Year = Int(Val(Text1.Text))

Month = Int(Val(Text2.Text))

Day = Int(Val(Text3.Text))

Birthday = DateSerial(Year, Month, Day)

dayofweek = Weekday(Birthday)

Label6.Caption = WeekdayName(dayofweek)

End Sub

Function Myweekdayname(dayofweek AsInteger) As String

 Select Case dayofweek

   Case 1

      Myweekdayname = "星期天"

   Case 2

      Myweekdayname = "星期一"

   Case 3

      Myweekdayname = "星期二"

   Case 4

      Myweekdayname = "星期三"

   Case 5

      Myweekdayname = "星期四"

   Case 6

      Myweekdayname = "星期五"

   Case Else

      Myweekdayname = "星期六"

  EndSelect

 EndFunction

 


相关文章推荐

出生日期计算年龄EXCEL模板

  • 2015年12月22日 08:53
  • 21KB
  • 下载

输入某人出生日期,计算年龄和距60岁的天数

问题及代码: /* * Copyright (c) 2016, 烟台大学计算机与控制工程学院 * All rights reserved. * 文件名称:date...
  • MIKASA3
  • MIKASA3
  • 2016年03月25日 17:10
  • 432

3.1定义学生类:成员变量有学号、姓名、出生日期(字符串)、成绩;成员方法包括构造方法、计算学生年龄的方法、输出学生信息的方法;在主方法中创造一个学生对象,然后输出他的信息(包括他的年龄)

摩尔的Java学习笔记3.1 定义学生类:成员变量有学号、姓名、出生日期(字符串)、成绩;成员方法包括构造方法、计算学生年龄的方法、输出学生信息的方法;在主方法中创造一个学生对象,然后输出他的信息(包...

【Java】Java根据出生日期计算还有几天的生日

实例: SimpleDateFormat myFormatter = new SimpleDateFormat("yyyy-MM-dd"); String clidate = "197...

计算两个人的出生日期相差的天数

/* * 程序的版权和版本声明部分 * Copyright (c)2013, 烟台大学计算机学院学生 * All rightsreserved. * 文件名称: fibnacci.cpp * 作 ...

手机上的出生日期插件

  • 2015年11月27日 16:46
  • 53KB
  • 下载

纯JS实现出生日期[年月日]下拉菜单

纯JS实现出生日期[年月日]下拉菜单 在制作网页时,可能需要给用户提供注册帐号页面,用户注册 设计很多信息,其中就有 关于出生日期的,出于用户体验,不想让用户手动输入,而HTML5的date,目...
  • ljheee
  • ljheee
  • 2016年04月16日 11:46
  • 6336

JS身份证验证性别和出生日期

  • 2009年08月13日 17:42
  • 4KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:计算你的出生日期是星期几
举报原因:
原因补充:

(最多只允许输入30个字)