发一个VBS版的日历(揍个热闹） - 中国DOS联盟论坛


do
m=inputbox ("请输入想查看的月份,输入格式如下：","日历(本程序只对100-1~9999-11有效)",left(date,instrrev(date,"-")-1))
if m="" then wscript.quit
if instr(m,"-")=0 then
msgbox "输入错误，请重新输入。",16+4096,"错误"
elseif IsNumeric(left(m,instr(m,"-")-1))=false or IsNumeric(mid(m,instr(m,"-")+1))=false then
msgbox "输入错误，请重新输入。",16+4096,"错误"
elseif left(m,instr(m,"-")-1)<100 or left(m,instr(m,"-")-1)>9999 then
msgbox "输入错误，请重新输入。",16+4096,"错误"
elseif mid(m,instr(m,"-")+1)>12 or mid(m,instr(m,"-")+1)<1 then
msgbox "输入错误，请重新输入。",16+4096,"错误"
else
cx(m)
end if
loop

function cx(m)
dim riqi(37)
if month(m)<12 then
tianshu=DateDiff("d",m,year(m) & "-" & month(m)+1 & "-1")
else
tianshu=DateDiff("d",m,year(m)+1 & "-1-1")
end if
h=weekday(m & "-1")-1
for i=1 to tianshu
riqi(h+i)=i
next
for n= 0 to h+tianshu
if n mod 7 <>0 then
s=s & riqi(n) & vbtab
else
s=s & riqi(n) & vbcrlf
end if
next
msgbox  "日" & vbtab & "一" & vbtab & "二" & vbtab & "三" & vbtab & "四" & vbtab & "五" & vbtab & "六"  & vbcrlf & s ,4096,year(m) & "年" & month(m) & "月"
end function

[ Last edited by jmz573515 on 2007-2-16 at 05:33 PM ]

第1楼　jmz573515	发表于 2007-02-17 05:01
银牌会员　发帖 464　积分 1,212
发一个VBS版的日历(揍个热闹） do m=inputbox ("请输入想查看的月份,输入格式如下：","日历(本程序只对100-1~9999-11有效)",left(date,instrrev(date,"-")-1)) if m="" then wscript.quit if instr(m,"-")=0 then msgbox "输入错误，请重新输入。",16+4096,"错误" elseif IsNumeric(left(m,instr(m,"-")-1))=false or IsNumeric(mid(m,instr(m,"-")+1))=false then msgbox "输入错误，请重新输入。",16+4096,"错误" elseif left(m,instr(m,"-")-1)<100 or left(m,instr(m,"-")-1)>9999 then msgbox "输入错误，请重新输入。",16+4096,"错误" elseif mid(m,instr(m,"-")+1)>12 or mid(m,instr(m,"-")+1)<1 then msgbox "输入错误，请重新输入。",16+4096,"错误" else cx(m) end if loop function cx(m) dim riqi(37) if month(m)<12 then tianshu=DateDiff("d",m,year(m) & "-" & month(m)+1 & "-1") else tianshu=DateDiff("d",m,year(m)+1 & "-1-1") end if h=weekday(m & "-1")-1 for i=1 to tianshu riqi(h+i)=i next for n= 0 to h+tianshu if n mod 7 <>0 then s=s & riqi(n) & vbtab else s=s & riqi(n) & vbcrlf end if next msgbox "日" & vbtab & "一" & vbtab & "二" & vbtab & "三" & vbtab & "四" & vbtab & "五" & vbtab & "六" & vbcrlf & s ,4096,year(m) & "年" & month(m) & "月" end function [ Last edited by jmz573515 on 2007-2-16 at 05:33 PM ]

第2楼　anqing	发表于 2007-02-17 11:01
高级用户　发帖 413　积分 859
不错

第3楼　spiegboy	发表于 2007-02-17 14:31
初级用户　发帖 9　积分 24
学习

第4楼　hdzc	发表于 2007-10-10 14:23
初级用户　发帖 86　积分 146
挺好用