1樓：匿名使用者
時間格式
y&"-"&m&"-1"
這是某月的第一天
然後最後一天就是cdate(y&"-"&m+1&"-1")-1
2樓：玉白易
一年就12個月
特殊的就2月
其他的你可以做個列表來判斷
太簡單懶得貼**了
3樓：匿名使用者
不太明白你的意思，1,3,5,7,8,10,12是31天，4,6,9,11是30天，2月要根據年份來判斷。你的取出第一天和最後一天我實在不明白什麼意思。
4樓：
【程式1】
題目：有1、2、3、4個數字，能組成多少個互不相同且無重複數字的三位數？都是多少？
1.程式分析：可填在百位、十位、個位的數字都是1、2、3、4。組成所有的排列後再去掉不滿足條件的排列。
2.程式源**：
main()
{int i,j,k;
printf("\n");
for(i=1;i
5樓：
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
6樓：匿名使用者
我給你個**你看看
在delphi中自己試試效果就知道了
function getdays(year,month:integer):integer;
varday:integer;
begin
case month of
1,3,5,7,8,10,12:day:=31;
4,6,9,11:day:=30;
2:if isleapyear(year) thenday:=29
else
day:=28;
end;
result:=day;
end;
份去韓國玩5天要多少錢，2016 8月份去韓國玩5天要多少錢
5900元就夠了 韓幣100萬 一天平均20萬足夠 4月份去越南旅遊要多少錢 越南，位於中南半島東部，國土呈s形，南北共長兩千公里，北與中國接壤，西與寮國 柬埔寨交界，東面和南面臨南海，海岸線長3260多公里。越南一直以來給人們的印象不太好，這可能是人們聽了太多與它有關的戰爭及難民事件，令遊客望而卻...
號到多少天多少天
兩個日期直接相減即可 2018年6月11日 2017年12月20日 問題是日期是對時還是第多少天,比如昨天到今天算1天還是2天,下圖中分別計算1天和2天。兩種方式有一天的差別,自己處理吧。一共是223天 根據計算 2017 11 10至2017 12 31,共計51天2018 1 1至2018 6 ...
地理氣壓圖怎麼判斷月份？如果說是根據海洋陸地的氣壓中心判斷
7月。從南半球這邊看，陸地上的高壓中心比海洋上的氣壓高，說明是南半球的冬季，為7月 從北半球這邊看，陸地上是低壓中心，海洋上是高壓中心，說明是北半球的夏季，為7月。高中地理中怎麼根據氣壓圖判斷冬夏？一般地講，同一個陸地，冬夏季節的判斷，要根據陸地的熱力性質。如果氣壓較低，則解釋為當地夏季 氣壓較高，...