VBA 第14課 自動生成年曆

2021-07-05 15:02:28 字數 870 閱讀 5478

sub 生成年曆()

y = inputbox("請指定乙個年份:")

'清除原有內容

range("1:1, 4:11,14:21,24:31,34:41").clearcontents

'設定標題

cells(1, 1) = y & "年曆"

dim dm as variant

'dm 下標從0開始

dm = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

'處理閏年,修正二月份天數

if ((y mod 400 = 0) or (y mod 4 = 0 and y mod 100 <> 0)) then

dm(1) = 29

end if

for m = 0 to 11

'計算每月第一天的星期數(1日,2一,3二...)

d = dateserial(y, m + 1, 1)

w = weekday(d)

'計算每月起始的行號和列號

r = (m \ 3) * 10 + 4

c = (m mod 3) * 8

'排出乙個月的日期

python學習 第14課

1.將ga10.wms5.jd.com.txt中分別以upstream和location開頭的內容篩選出來,並分別生成相應的新文件 import codecs,re,os with codecs.open ga10.wms5.jd.com.txt r as f1 pattern1 re.compil...

c 第14課 list容器

list介紹 1 list是乙個雙向鍊錶容器,可高效地進行插入刪除元素。2 list不可以隨機訪問元素,所以不支援at.pos 函式與操作符。it ok it 5 err 3 include list物件的預設構造 list採用採用模板類實現,物件的預設構造形式 list lstt 如 list l...

第14課 元素的定位

css定位令你可以將乙個元素精確地放在頁面上你所指定的地方。聯合使用定位與浮動 參見第13課 你將能夠建立多種高 級而精確的布局。本課我們將討論以下內容 把瀏覽器視窗想象成乙個座標系統 css定位的原理是 你可以將任何盒子 box 放置在座標系統的任何位置上。假設我們要放置乙個標題。通過使用盒狀模型...