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

原创 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

 


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

Private Sub Command1_Click() Dim Year As Integer Dim Month As Integer Dim Day As Integer Dim day...
  • Modiaoting
  • Modiaoting
  • 2012年04月22日 12:52
  • 110

C++中星期几计算公式

蔡勒公式(Zeller):是一个计算星期的公式。 随便给一个日期,就可以使用这个公式推算出事星期几。 公式如下:Weeks = [C/4] - 2C + y + [y/4] + [13*(M +1)/...
  • u012307430
  • u012307430
  • 2016年11月30日 18:12
  • 325

计算生日是星期几

编写一个程序,只要输入年月日,就能回答那天是星期几。 输入一个日期,包括年、月、日。(一组测试数据) 输出这个日期是星期几。 1 1 1 2 1 1 2006 7 10 Monday Tues...
  • sunone_
  • sunone_
  • 2016年05月30日 10:16
  • 975

判断任意一天是星期几?。。蔡勒公式

------- Windows Phone 7手机开发、.Net培训、期待与您交流! ------- 对于计算星期数的公式还有如下的公式: ⒈Week=(Day + 2*Month + 3*(Mont...
  • u011426349
  • u011426349
  • 2013年08月08日 19:13
  • 1289

给定日期-判断是星期几

//题目:给定日期,判断是星期几 /* 在公式中d表示日期中的日数,m表示月份数,y表示年数。 注意:在公式中有个与其他公式不同的地方: 把一月和二月看成是上一年的十三月和十四月,例:如果是2...
  • u012975223
  • u012975223
  • 2016年04月12日 20:28
  • 589

java如何计算某一天是星期几?

如何计算某一天是星期几? —— 蔡勒(Zeller)公式 历史上的某一天是星期几?未来的某一天是星期几?关于这个问题,有很多计算公式(两个通用计算公式和一些分段计算公式),其中最著名的是蔡勒(Z...
  • zhanghaipeng1989
  • zhanghaipeng1989
  • 2014年03月05日 22:44
  • 1731

TSQL中如何判断一个日期是星期几?

select datename(weekday, getdate())例子:select datename(weekday, 2007-07-01)返回结果:星期日 ...
  • lizhi984723
  • lizhi984723
  • 2007年07月06日 17:53
  • 665

Delphi星期几的判断

DayOfTheWeek: 星期一是1,星期二是2,星期日是7 DayOfWeek:星期日是1,星期一是2,星期二是3...
  • xiuzhentianting
  • xiuzhentianting
  • 2015年09月16日 16:27
  • 1087

oracle中如何判断某个日期是星期几

SELECT to_char(to_date('2011-03-13','YYYY-MM-DD'),'d') FROM DUAL  其中 红色部分为传入日期  to_char的其他用法...
  • tsh18523266651
  • tsh18523266651
  • 2016年01月13日 20:36
  • 2979

ios判断星期几

- (NSString*)weekDayStr:(NSString *)format { NSString *weekDayStr = nil; NSDateComponents *co...
  • woaifen3344
  • woaifen3344
  • 2014年12月15日 16:14
  • 7944
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:计算你的出生日期是星期几
举报原因:
原因补充:

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