判断月份多少天

时间格式
y&"-"&m&"-1"
这是某月的第一天
然后最后一天就是cdate(y&"-"&m+1&"-1")-1

一年就12个月
特殊的就2月
其他的你可以做个列表来判断
太简单
懒得贴代码了

不太明白你的意思，1,3,5,7,8,10,12是31天，4,6,9,11是30天，2月要根据年份来判断。你的取出第一天和最后一天我实在不明白什么意思。

【程序1】
题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
1.程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去掉不满足条件的排列。
2.程序源代码：
main()
{
int i,j,k;
printf("\n");
for(i=1;i

VB的例子：
1、在通用部分写一个判断是否为闰年的函数IsLeapYearA：
Function IsLeapYearA(ByVal yr As Integer) As Boolean '判断是否为闰年
If ((yr Mod 4) = 0) Then
IsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
End If
End Function

2、在窗口上放一个按钮Command1,在Command1的Click事件中写下如下代码：
Private Sub Command1_Click()
Dim StartDay As Integer
Dim EndDay As Integer

Select Case Text1.Text
Case 1:
StartDay = 1