vb高手进，请教求某年某月天数问题

text1表示年份，text2表示月份，label1表示该月天数

Private Sub Command1_Click()

Dim year As Integer, yue As Integer, ts As Integer

year = Val(Text1Text)

yue = Val(Text2Text)

If ((year Mod 4 = 0 And year Mod 100 <> 0) Or year Mod 400 = 0) Then

n = 1

Else

n = 2

End If

If (n = 1 And yue = 2) Then

Label1Caption = 29

ElseIf (n = 2 And yue = 2) Then

Label1Caption = 28

End If

Select Case yue

Case 1, 3, 5, 7, 8, 10, 12

Label1Caption = 31

Case 4, 6, 9, 11

Label1Caption = 30

End Select

end sub

import javaio;

import javautilScanner;

class DayTest

{

public static void main(String []args)throws IOException

{

int year = -1;

int month = -1;

Scanner in = new Scanner(Systemin);

Systemoutprintln("请输入年");

year = innextInt();

Systemoutprintln("请输入月");

month = innextInt();

Systemoutprintln(year+"年"+month+"月有"+days(year,month)+"天");

}

public static int days(int year,int month)

{

int days = 0;

if(month!=2)

{

switch(month)

{

case 1:

case 3:

case 5:

case 7:

case 8:

case 10:

case 12:days = 31 ;break;

case 4:

case 6:

case 9:

case 11:days = 30;

}

}

else

{

if(year%4==0 && year%100!=0 || year%400==0)

days = 29;

else days = 28;

}

return days;

}

}

我做过测试了完全正确分给我吧嘻嘻!

PASCAL源代码：

program ex(input,output);

var

month,year:integer;

begin

readln(year,month);

case month of

1,3,5,7,8,10,12:writeln(31);

4,6,9,11:writeln(30);

2:if (year mod 4=0) and (year mod 100<>0) or (year mod 4000=0)

then writeln(29)

else writeln(28)

end;

readln;

end;

可以背如下口诀：一、三、五、七、八、十、腊，31天永远不会差。

也就是说1月，3月，5月，7月，8月，10月以及12月（也称为腊月），这些月份不管是平年还是闰年都是31天。

4月，6月，9月，11月各30天。

每年的三、四季度它的天数是一样长的都是92天。而且二季度的天数也是固定的91天。但是一、二季度的天数未必相等，因为要看是闰年还是平年。

扩展资料：

公历闰年计算，按一回归年365天5小时48分455秒：

1、非整百年：能被4整除的为闰年。（如2004年就是闰年,2001年不是闰年）

2、整百年：能被400整除的是闰年。(如2000年是闰年，1900年不是闰年)

3、对于数值很大的年份：这年如果能被3200整除，并且能被172800整除则是闰年。如172800年是闰年，86400年不是闰年（因为虽然能被3200整除，但不能被172800整除）。

参考资料来源：百度百科-闰年

看代码：

import javautilScanner;

public class Demo {

public static void main(String[] args) throws Exception {

try (Scanner in = new Scanner(Systemin)) {

Systemoutprintln("输入年份和月份：");

int year = innextInt();

int month = innextInt();

int day = 0;

switch (month) {

case 1:

case 3:

case 5:

case 7:

case 8:

case 10:

case 12:

day = 31;

break;

case 4:

case 6:

case 9:

case 11:

day = 30;

break;

case 2:

if (year % 4 == 0 && year % 100 != 0 || year % 400 == 0) {

day = 29;

} else {

day = 28;

}

break;

default:

Systemerrprintln("输入月份有误");

break;

}

Systemoutprintf("%d 年 %d 月有 %d 天\n", year, month, day);

}

}

}

运行：

以上就是关于vb高手进，请教求某年某月天数问题全部的内容，包括:vb高手进，请教求某年某月天数问题、计算某年某月的天数 JAVA高手帮忙 救命啊、【入门】判断某年某月的天数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！