韩国休闲品牌logo:判断月份多少天

时间格式
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
EndDay = 31
Case 2:
StartDay = 1
If IsLeapYearA(Year(Now)) = True Then
EndDay = 29
Else
EndDay = 28
End If
Case 3:
StartDay = 1
EndDay = 31
Case 4:
StartDay = 1
EndDay = 30
Case 5:
StartDay = 1
EndDay = 31
Case 6:
StartDay = 1
EndDay = 30
Case 7:
StartDay = 1
EndDay = 31
Case 8:
StartDay = 1
EndDay = 31
Case 9:
StartDay = 1
EndDay = 30
Case 10:
StartDay = 1
EndDay = 31
Case 11:
StartDay = 1
EndDay = 30
Case 12:
StartDay = 1
EndDay = 31
End Select
MsgBox "开始日期：" + CStr(StartDay) + "结束日期：" + CStr(EndDay)
End Sub

我给你个代码你看看
在Delphi中自己试试效果就知道了

function GetDays(Year,Month:Integer):integer;
var
Day:Integer;
begin
case Month of
1,3,5,7,8,10,12:Day:=31;
4,6,9,11:Day:=30;
2:if IsLeapYear(Year) then
Day:=29
else
Day:=28;
end;
result:=Day;
end;