-
等级
本版专家分：0结帖率 0% -
请问一下谁有万年历VB的源代码，包括阴历的，谢谢！展开阅读全文
-
等级
本版专家分：161 -
我晕，还以为你有呢。为什么不去搜索呢？
-
等级
本版专家分：295
-
我晕，还以为你有呢。为什么不去搜索呢？
不过我也想到你没有了 否则不会在这里发帖
算了自己写吧
不算太难
给你一段js源码
自己改一下吧
我现在很忙要不一定帮你改这是以前自己做网站时的
<HTML><HEAD><TITLE>野狼---万年历</TITLE>
<META
content="世界时间; 农历; 阳历; 月历; 节日; 节气; 干支; 生肖; world time clock; gregorian solar; chinese lunar; calendar;"
name=keywords>
<META content=All name=robots>
<META content="by Lichangfeng mytoday2004@163.com http://www8.hy00.com" name=author>
<META content="gregorian solar calendar and chinese lunar calendar"
name=description>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<SCRIPT language=JScript>
<!--
/*****************************************************************************
个人偏好设定
*****************************************************************************/
var conWeekend = 3; // 星期六颜色显示: 1=黑色, 2=绿色, 3=红色, 4=隔周休
/*****************************************************************************
日期资料
*****************************************************************************/
var lunarInfo=new Array(
0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052b0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0,
0x14b63);
var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var Gan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
var Zhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪");
var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至");
var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758);
var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十');
var nStr2 = new Array('初','十','廿','卅','□');
var monthName = new Array("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");
var sFtv = new Array(
"0101*元旦","0204 宝贝生日",
"0214 情人节",
"0308 妇女节",
"0317 家教9.30广安大厦西单元702 13903117668",
"0319 毕业体检",
"0501 劳动节",
"0504 青年节",
"0601 儿童节",
"0701 建党节 香港回归纪念",
"0801 建军节",
"1001*国庆节");
//农历节日 *表示放假日
var lFtv = new Array(
"0101*春节",
"0115 元宵节",
"0505 端午节",
"0815 中秋节",
"0909 重阳节",
"1224 小年",
"0100*除夕");
//某月的第几个星期几。 5,6,7,8 表示到数第 1,2,3,4 个星期几
var wFtv = new Array(
"0520 母亲节 Mother's Day",
"0630 父亲节 Father's Day",
"1144 感恩节 Thanksgiving Day");
-
等级
本版专家分：295
-
//世界时间资料
var timeData = {
"Asia 亚洲": { //----------------------------------------------
"China 中国 ":["+0800","","北京、重庆、乌鲁木齐"],
"Brunei 汶莱 ":["+0800","","斯里巴加万港"],
"Burma 缅甸 ":["+0630","","仰光"],
"Khmer 柬埔寨 ":["+0700","","金边"],
"Hong kong 香港 ":["+0800","","九龙"],
"Indonesian 印尼 ":["+0700","","耶加达"],
"Japan 日本 ":["+0900","","东京、大阪、札幌"],
"Korea 韩国 ":["+0900","","汉城"],
"Laos 寮国 ":["+0700","","永珍"],
"Malaysian 马来西亚":["+0800","","吉隆坡"],
"Mongolia 蒙古 ":["+0800","03L03|09L03","库伦"],
"Philippines 菲律宾 ":["+0800","04F53|10F53","马尼拉"],
"Russia(Anadyr) 俄罗斯 ":["+1300","03L03|10L03","阿那底河"],
"Russia(Kamchatka) 俄罗斯 ":["+1200","03L03|10L03","堪察加半岛"],
"Russia(Magadan) 俄罗斯 ":["+1100","03L03|10L03","马加丹"],
"Russia(Vladivostok)俄罗斯 ":["+1000","03L03|10L03","海参威"],
"Russia(Yakutsk) 俄罗斯 ":["+0900","03L03|10L03","雅库次克"],
"Singapore 新加坡 ":["+0800","","新加坡"],
"China 北京、重庆、乌鲁木齐 ":["+0800","","北京、重庆、乌鲁木齐"],
"Thailand 泰国 ":["+0700","","曼谷"],
"Vietnam 越南 ":["+0700","","河内"]
},
"ME, India pen. 中东、印度半岛": { //------------------------------------
"Afghanistan 阿富汗 ":["+0430","","喀布尔"],
"Arab Emirates 阿拉伯联合大公国":["+0400","","阿布达比"],
"Bahrain 巴林 ":["+0300","","麦纳玛"],
"Bangladesh 孟加拉 ":["+0600","","达卡"],
"Bhutan 不丹 ":["+0600","","辛布"],
"Cyprus 赛普勒斯":["+0200","","尼古西亚"],
"Georgia 乔治亚 ":["+0500","","第比利斯"],
"India 印度 ":["+0530","","新德里、孟买、加尔各答"],
"Iran 伊朗 ":["+0330","04 13|10 13","德黑兰"],
"Iraq 伊拉克 ":["+0300","04 13|10 13","巴格达"],
"Israel 以色列 ":["+0200","04F53|09F53","耶路撒冷"],
"Jordan 约旦 ":["+0200","","安曼"],
"Kuwait 科威特 ":["+0300","","科威特市"],
"Lebanon 黎巴嫩 ":["+0200","03L03|10L03","贝鲁特"],
"Maldives 马尔地夫":["+0500","","玛律"],
"Nepal 尼泊尔 ":["+0545","","加德满都"],
"Oman 阿曼 ":["+0400","","马斯喀特"],
"Pakistan 巴基斯坦":["+0500","","喀拉蚩、伊斯兰堡"],
"Qatar 卡达 ":["+0300","","杜哈"],
"Saudi Arabia 沙乌地阿拉伯":["+0300","","利雅德"],
"Sri Lanka 斯里兰卡":["+0600","","可伦坡"],
"Syria 叙利亚 ":["+0200","04 13|10 13","大马士革"],
"Tajikistan 塔吉克 ":["+0500","","杜桑贝"],
"Turkey 土耳其 ":["+0200","","伊斯坦堡"],
"Turkmenistan 土库曼 ":["+0500","","阿什哈巴德"],
"Uzbekistan 乌兹别克斯坦":["+0500","","塔什干"],
"Yemen 叶门 ":["+0300","","沙那"]
},
-
等级
本版专家分：295
-
"North Europe 北欧": { //----------------------------------------------
"Denmark 丹麦":["+0100","04F03|10L03","哥本哈根"],
"Finland 芬兰":["+0200","03L01|10L01","赫尔辛基"],
"Iceland 冰岛":["+0000","","雷克雅未克"],
"Norwegian 挪威":["+0100","","奥斯陆"],
"Sweden 瑞典":["+0100","03L01|10L01","斯德哥尔摩"]
},
"Eastern Europe 中欧、东欧": { //----------------------------------------
"Armenia 亚美尼亚":["+0400","","叶里温"],
"Austria 奥地利 ":["+0100","03L01|10L01","维也纳"],
"Azerbaijan 亚塞拜然":["+0400","","巴库"],
"Czech 捷克 ":["+0100","","布拉格"],
"Estonia 爱沙尼亚":["+0200","","塔林"],
"Germany 德国 ":["+0100","03L01|10L01","柏林"],
"Hungarian 匈牙利 ":["+0100","","布达佩斯"],
"Kazakhstan(Almaty) 哈萨克 ":["+0600","","Almaty"],
"Kazakhstan(Aqtobe) 哈萨克 ":["+0500","","Aqtobe"],
"Kazakhstan(Aqtau) 哈萨克 ":["+0400","","Aqtau"],
"Kirghizia 吉尔吉斯":["+0500","","比斯凯克"],
"Latvia 拉脱维亚":["+0200","","里加"],
"Lithuania 立陶宛 ":["+0200","","维尔纽斯"],
"Moldova 摩尔多瓦":["+0200","","基希涅夫"],
"Poland 波兰 ":["+0100","","华沙"],
"Rumania 罗马尼亚":["+0200","","布加勒斯特"],
"Russia(Moscow) 俄罗斯 ":["+0300","03L03|10L03","莫斯科"],
"Russia(Volgograd) 俄罗斯 ":["+0300","03L03|10L03","伏尔哥格勒"],
"Slovakia 斯洛伐克":["+0100","","布拉提斯拉瓦"],
"Switzerland 瑞士 ":["+0100","","苏黎世"],
"Ukraine 乌克兰 ":["+0200","","基辅"],
"Ukraine(Simferopol)乌克兰 ":["+0300","","Simferopol"],
"Belarus 白俄罗斯":["+0200","03L03|10L03","明斯克"]
},
"Western Europe 西欧": { //----------------------------------------------
"Belgium 比利时 ":["+0100","03L01|10L01","布鲁塞尔"],
"France 法国 ":["+0100","03L01|10L01","巴黎"],
"Ireland 爱尔兰 ":["+0000","03L01|10L01","都柏林"],
"Monaco 摩纳哥 ":["+0100","","摩纳哥市"],
"Netherlands 荷兰 ":["+0100","03L01|10L01","阿姆斯特丹"],
"Luxembourg 卢森堡 ":["+0100","03L01|10L01","卢森堡市"],
"United Kingdom 英国 ":["+0000","03L01|10L01","伦敦、爱丁堡"]
},
"South Europe 南欧": { //------------------------------------------------
"Albania 阿尔巴尼亚":["+0100","","地拉那"],
"Bulgaria 保加利亚":["+0200","","索菲亚"],
"Greece 希腊 ":["+0200","03L01|10L01","雅典"],
"Holy See 教廷 ":["+0100","","梵蒂冈"],
"Italy 义大利 ":["+0100","03L01|10L01","罗马"],
"Malta 马尔他 ":["+0100","","瓦勒他"],
"Portugal 葡萄牙 ":["+0000","03L01|10L01","里斯本"],
"San Marino 圣马利诺":["+0100","","圣马利诺"],
"Span 西班牙 ":["+0100","03L01|10L01","马德里"],
"Slovenia 斯洛维尼亚":["+0100","","卢布尔雅那"],
"Serbia(前南斯拉夫) 塞尔维亚":["+0100","","贝尔格勒"]
},
"North America 北美洲": { //--------------------------------------------
"Canada(NST) 加拿大":["-0330","04F02|10L02","纽芬兰、St. John's,Goose Bay"],
"Canada(AST) 加拿大":["-0400","04F02|10L02","Pangnirtung, Glace Bay"],
"Canada(EST) 加拿大":["-0500","04F02|10L02","蒙特娄"],
"Canada(CST) 加拿大":["-0600","04F02|10L02","Swift Current, Regina, Rainy River"],
"Canada(MST) 加拿大":["-0700","04F02|10L02","Inuvik, Edmonton, Dawson Creek"],
"Canada(PST) 加拿大":["-0800","04F02|10L02","温哥华"],
"US(Eastern) 美国(东岸)":["-0500","04F02|10L02","纽约"],
"US(Indiana) 美国 ":["-0500","","印第安纳"],
"US(Central) 美国(中部)":["-0600","04F02|10L02","芝加哥"],
"US(Mountain) 美国(山区)":["-0700","04F02|10L02","丹佛"],
"US(Arizona) 美国 ":["-0700","","亚历桑那"],
"US(Pacific) 美国(西岸)":["-0800","04F02|10L02","旧金山、洛杉矶"],
"US(Alaska) 美国 ":["-0900","","朱诺"]
},
-
等级
本版专家分：8109勋章
-
- 黄花 2007年8月 VB大版内专家分月排行榜第二
-
- 蓝花 2007年12月 VB大版内专家分月排行榜第三
-
-
好复杂哦
但是好像已经很精简了
-
等级
本版专家分：295
-
现在把万年历代码贴出来大家参考一下
这里还没加上二十四节气
大家努力加上完善一下然后大家分享一下
添加三个combobox控件
四个标签"年""月""日",其中一个caption为空name 为lb作为显示日期的容器
大家参考
'日期数据定义方法如下
'前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月
'份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制。最后4位为当年农历新年-即农历1月1日所在公历
'的日期，如0131代表1月31日。FunGetDate函数使用方式如下tYear为要输入的年，tMonth为月，tDay为
'日期，YLyear是返回值，返加农历的年份，如甲子年，YLShuXing返回的是属象，如鼠。IsGetGongLi是设置是不是通过农历取公历值，如果是，
'前三个返回相应的公历日期，而且返回值是一个公历日期。
'by lichangfeng mytoday2004@163.com 2007.4.5 5:30
Function FunGetDate(tYear As Integer, tMonth As Integer, tDay As Integer, YLyear As String, YLShuXing As String, Optional IsGetGongLi As Boolean) As String
On Error Resume Next
Dim dateList(1900 To 2011) As String * 18
Dim conDate As Date, setDate As Date
Dim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integer
Dim RunYue As Boolean
If tYear > 2010 Or tYear < 1901 Then Exit Function '如果不是有效有日期，退出
'1900 to 2009
dateList(1900) = "010010110110180131"
dateList(1901) = "010010101110000219"
dateList(1902) = "101001010111000208"
dateList(1903) = "010100100110150129"
dateList(1904) = "110100100110000216"
dateList(1905) = "110110010101000204"
dateList(1906) = "011010101010140125"
dateList(1907) = "010101101010000213"
dateList(1908) = "100110101101000202"
dateList(1909) = "010010101110120122"
dateList(1910) = "010010101110000210"
dateList(1911) = "101001001101160130"
dateList(1912) = "101001001101000218"
dateList(1913) = "110100100101000206"
dateList(1914) = "110101010100150126"
dateList(1915) = "101101010101000214"
dateList(1916) = "010101101010000204"
dateList(1917) = "100101101101020123"
dateList(1918) = "100101011011000211"
dateList(1919) = "010010011011170201"
dateList(1920) = "010010011011000220"
dateList(1921) = "101001001011000208"
dateList(1922) = "101100100101150128"
dateList(1923) = "011010100101000216"
dateList(1924) = "011011010100000205"
dateList(1925) = "101011011010140124"
dateList(1926) = "001010110110000213"
dateList(1927) = "100101010111000202"
dateList(1928) = "010010010111120123"
dateList(1929) = "010010010111000210"
dateList(1930) = "011001001011060130"
dateList(1931) = "110101001010000217"
dateList(1932) = "111010100101000206"
dateList(1933) = "011011010100150126"
dateList(1934) = "010110101101000214"
dateList(1935) = "001010110110000204"
dateList(1936) = "100100110111030124"
dateList(1937) = "100100101110000211"
dateList(1938) = "110010010110170131"
dateList(1939) = "110010010101000219"
dateList(1940) = "110101001010000208"
dateList(1941) = "110110100101060127"
dateList(1942) = "101101010101000215"
dateList(1943) = "010101101010000205"
dateList(1944) = "101010101101140125"
dateList(1945) = "001001011101000213"
dateList(1946) = "100100101101000202"
dateList(1947) = "110010010101120122"
dateList(1948) = "101010010101000210"
dateList(1949) = "101101001010170129"
dateList(1950) = "011011001010000217"
dateList(1951) = "101101010101000206"
dateList(1952) = "010101011010150127"
dateList(1953) = "010011011010000214"
dateList(1954) = "101001011011000203"
dateList(1955) = "010100101011130124"
dateList(1956) = "010100101011000212"
dateList(1957) = "101010010101080131"
dateList(1958) = "111010010101000218"
dateList(1959) = "011010101010000208"
dateList(1960) = "101011010101060128"
dateList(1961) = "101010110101000215"
dateList(1962) = "010010110110000205"
dateList(1963) = "101001010111040125"
dateList(1964) = "101001010111000213"
dateList(1965) = "010100100110000202"
dateList(1966) = "111010010011030121"
dateList(1967) = "110110010101000209"
dateList(1968) = "010110101010170130"
dateList(1969) = "010101101010000217"
dateList(1970) = "100101101101000206"
dateList(1971) = "010010101110150127"
dateList(1972) = "010010101101000215"
dateList(1973) = "101001001101000203"
dateList(1974) = "110100100110140123"
dateList(1975) = "110100100101000211"
dateList(1976) = "110101010010180131"
dateList(1977) = "101101010100000218"
dateList(1978) = "101101101010000207"
dateList(1979) = "100101101101060128"
dateList(1980) = "100101011011000216"
dateList(1981) = "010010011011000205"
dateList(1982) = "101001001011140125"
dateList(1983) = "101001001011000213"
dateList(1984) = "1011001001011A0202"
dateList(1985) = "011010100101000220"
dateList(1986) = "011011010100000209"
dateList(1987) = "101011011010060129"
dateList(1988) = "101010110110000217"
dateList(1989) = "100100110111000206"
dateList(1990) = "010010010111150127"
dateList(1991) = "010010010111000215"
dateList(1992) = "011001001011000204"
dateList(1993) = "011010100101030123"
dateList(1994) = "111010100101000210"
dateList(1995) = "011010110010180131"
dateList(1996) = "010110101100000219"
dateList(1997) = "101010110110000207"
dateList(1998) = "100100110110150128"
dateList(1999) = "100100101110000216"
dateList(2000) = "110010010110000205"
dateList(2001) = "110101001010140124"
dateList(2002) = "110101001010000212"
dateList(2003) = "110110100101000201"
dateList(2004) = "010110101010120122"
dateList(2005) = "010101101010000209"
dateList(2006) = "101010101101170129"
dateList(2007) = "001001011101000218"
dateList(2008) = "100100101101000207"
dateList(2009) = "110010010101150126"
dateList(2010) = "101010010101000214"
dateList(2011) = "101101001010000214"
AddYear = tYear
RunYue = False
-
等级
本版专家分：295
-
If IsGetGongLi Then
AddMonth = Val(Mid(dateList(AddYear), 15, 2))
AddDay = Val(Mid(dateList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
AddDay = tDay
For i = 1 To tMonth - 1
AddDay = AddDay + 29 + Val(Mid(dateList(tYear), i, 1))
Next i
'MsgBox DateDiff("d", conDate, Date)
setDate = DateAdd("d", AddDay - 1, conDate)
FunGetDate = setDate
tYear = Year(setDate)
tMonth = Month(setDate)
tDay = Day(setDate)
Exit Function
End If
CHUSHIHUA:
AddMonth = Val(Mid(dateList(AddYear), 15, 2))
AddDay = Val(Mid(dateList(AddYear), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
setDate = DateSerial(tYear, tMonth, tDay)
getDay = DateDiff("d", conDate, setDate)
If getDay < 0 Then AddYear = AddYear - 1: GoTo CHUSHIHUA
' addday = NearDay
AddDay = 1: AddMonth = 1
For i = 1 To getDay
AddDay = AddDay + 1
If AddDay = 30 + Mid(dateList(AddYear), AddMonth, 1) Or (RunYue And AddDay = 30 + Mid(dateList(AddYear), 13, 1)) Then
If RunYue = False And AddMonth = Val("&H" & Mid(dateList(AddYear), 14, 1)) Then
RunYue = True
Else
RunYue = False
AddMonth = AddMonth + 1
End If
AddDay = 1
End If
Next
md$ = "初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十"
dd$ = Mid(md$, (AddDay - 1) * 2 + 1, 2)
mm$ = Mid("正二三四五六七八九十寒腊", AddMonth, 1) + "月"
YouGetDate = DateSerial(AddYear, AddMonth, AddDay)
tiangan$ = "甲乙丙丁戊已庚辛壬癸"
dizhi$ = "子丑寅卯辰巳午未申酉戌亥"
Dim ganzhi(0 To 59) As String * 2
For i = 0 To 59
ganzhi(i) = Mid(tiangan$, (i Mod 10) + 1, 1) + Mid(dizhi$, (i Mod 12) + 1, 1)
'ff$ = ff$ + ganzhi(i)
Next i
'MsgBox ff$, , Len(ff$)
YLyear = ganzhi((AddYear - 4) Mod 60)
shu$ = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
YLShuXing = Mid(shu$, ((AddYear - 4) Mod 12) + 1, 1)
If RunYue Then mm$ = "闰" + mm$
FunGetDate = mm$ + dd$
End Function
'添加三个combobox控件
'四个标签"年""月""日",其中一个caption为空name 为lb作为显示日期的容器
Private Sub Combo1_Click()
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(Combo1.Text, Combo2.Text, Combo3.Text, yl, sx, yOn) & " " & yl & " " & sx
End Sub
Private Sub Combo2_Click()
com11 = Combo3.Text
Combo3.Clear
Select Case Combo2.Text
Case 1
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 2
If Combo1.Text Mod 4 <> 0 Then
For i = 1 To 28
Combo3.AddItem i, i - 1
Next
Else
For i = 1 To 29
Combo3.AddItem i, i - 1
Next
End If
Case 3
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 4
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 5
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 6
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 7
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 8
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 9
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 10
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 11
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 12
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
End Select
Combo3.Text = com11
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(com11), yl, sx, yOn) & " " & yl & " " & sx
End Sub
Private Sub Combo3_Click()
Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean
yOn = False
If Check1.Value = 1 Then
yOn = True
End If
lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(Combo3.Text), yl, sx, yOn) & " " & yl & " " & sx
End Sub
Private Sub Form_Load()
For i = 1900 To 2011
Combo1.AddItem i, i - 1900
Next
For i = 1 To 12
Combo2.AddItem i, i - 1
Next
Select Case Combo2.Text
Case 1
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 2
If Combo1.Text Mod 4 <> 0 Then
For i = 1 To 28
Combo3.AddItem i, i - 1
Next
Else
For i = 1 To 29
Combo3.AddItem i, i - 1
Next
End If
Case 3
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 4
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 5
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 6
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 7
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 8
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 9
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 10
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
Case 11
For i = 1 To 30
Combo3.AddItem i, i - 1
Next
Case 12
For i = 1 To 31
Combo3.AddItem i, i - 1
Next
End Select
Combo1.Text = Year(Now)
Combo2.Text = Month(Now)
Combo3.Text = Day(Now)
End Sub
-
等级
本版专家分：10938 -
呵呵
楼上兄弟不错
-
等级
本版专家分：0
-
我也拿来修改一下，给论坛修饰一下．
- 万年历（带农历） VB源码
万年历（带农历） 万年历（带农历） 万年历（带农历）
- 一本万年历源代码
万年历#@~^iUkAAA==@#@&@!Z O@#@&/V6 :K/nKK`qXZ~*Zbi@#@&/sWRM+kk"+PGv*q!B**Z#I~,@#@&&MCeMeCMCeMCeCeeCeCMeCeMeCeMMCeeCMeCeeCMMeCeCeMeMMCeMeCMeCeMMCeeMMCeMeCMCeMCeC@#@&,P,~P,P~P,P~~,PP,~P,PP,~~P,P,P~P~~...
- 用vb编写的万年历包括源程序和代码
万年历，用vb做的，洗完大家下载并指导，谢谢了哈哈
- JAVA上百实例源码以及开源项目源代码
Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件，EJB来模拟银行ATM机的流程及操作：获取系统属性，初始化JNDI，取得Home对象的引用，创建EJB对象，并将当前的计数器初始化，调用每一个...
- C语言结构体的应用——万年历
万年历简述 万年历——就是输入一个日期可以查询是星期几，这个功能看起来很普通，但是如果用程序时间的话，还是药费一番周折: 我们需要保存一个固定的日期，存放它是星期几，输入一个自定义的日期，通过二者的日期...
- Java开发技术大全(500个源代码).
代码范例列表 第1章 示例描述：本章演示如何开始使用JDK进行程序的开发。 HelloWorldApp.java 第一个用Java开发的应用程序。 firstApplet.java 第一个用Java开发的Applet小程序。 firstApplet.htm 用来装载...
- 电子设计.doc
0112、nrf905射频发送电路图和C程序源代码 0113、PLC控制电梯的设计论文资料 0114、PLL电路的研究及在信号产生中的应用论文资料 0115、RCC电路间歇振荡的研究资料 0116、八位数字密码锁设计资料 0117、笔记本电脑的...
- excel vba 萬年歷 万年历 阳历 农历 阴历 记事录功能 全部vba代码 和excel公式做成
excel vba 萬年歷 万年历 阳历 农历 阴历 记事录功能 全部vba代码 和excel公式做成
- JAVA上百实例源码以及开源项目
笔者当初为了学习JAVA...这些源码反映了那时那景笔者对未来的盲目，对代码的热情、执着，对IT的憧憬、向往！此时此景，笔者只专注Android、Iphone等移动平台开发，看着这些源码心中有万分感慨，写此文章纪念那时那景！
- 从.net复制源代码中国农历阵列，必要做日历
从.net复制源代码中国农历阵列，必要做日历 const { 闰月的月份、春节的阳历日期(农历正月初一)、农历的每一个月天数 } c_arrLunarInfo: array [1900 .. 2100] of array [0 .. 15] of Integer = ( // 农历 ...
- java源码包---java 源码 大量 实例
Java绘制图片火焰效果，源代码相关注释：前景和背景Image对象、Applet和绘制火焰的效果的Image对象、Applet和绘制火焰的效果的Graphics对象、火焰效果的线程、Applet的高度,图片到图片装载器、绘制火焰效果的X坐标...
- vb源码
VB源码:HOOK 万能网游密码截取技术之（诛仙） ... ...VB源码:IP地址输入框控件 下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码 下载地址:http://www.2e3.
- 部分vc源代码合集1.rar
2012-06-11 10:19 2,425,346 VB播放器源代码(播放SWF.MP3.RM文件等).rar 2012-06-11 10:28 0 VB远程桌面连接程序.rar 2012-06-11 10:41 6,630,010 VC俄罗斯方块.zip 2012-06-11 10:26 51,200 VHDL_六位加法器.doc ...
- 用代码道歉java_c语言道歉小程序
了解更多！详情史蒂芬孙2018-12-19 00:540评论0赞同去网上搜索：C语言经典一百例详情多面体2018-09-18 17:250评论10赞同我们开发程序一般都比较的大，所以安装在2分钟以内客户都是可以接受的，FrameWork必须检测安装...
- 成百上千个Java 源码DEMO 3(1-4是独立压缩包)
Calendar万年历 1个目标文件 EJB 模拟银行ATM流程及操作源代码 6个目标文件，EJB来模拟银行ATM机的流程及操作：获取系统属性，初始化JNDI，取得Home对象的引用，创建EJB对象，并将当前的计数器初始化，调用每一个...
- Java开发技术大全(由简入深500个源码讲解)
所有的源程序（除书中特别注明的错误例子外）在以下环境调试通过： （1）操作系统：Windows 2000/XP/7 （2）编辑环境：UltraEdit/Eclipse/JCreator （3）编译和运行环境：JDK 1.5以上版本 （4）JSP...
- vc代码合集
2012-06-11 10:19 2,425,346 VB播放器源代码(播放SWF.MP3.RM文件等).rar 2012-06-11 10:28 0 VB远程桌面连接程序.rar 2012-06-11 10:41 6,630,010 VC俄罗斯方块.zip 2012-06-11 10:26 51,200 VHDL_六位加法器.doc ...
- OA系统
办公自动化（OA）是面向组织的日常运作和管理，员工及管理者使用频率最高的应用系统，自1985年国内召开第一次办公自动化规划会议以来，OA在应用内容的深度与广度、IT技术运用等方面都有了新的变化和发展，并成为组织...
- JAVA 代码
这些源码反映了那时那景笔者对未来的盲目，对代码的热情、执着，对IT的憧憬、向往！此时此景，笔者只专注Android、Iphone等移动平台开发，看着这些源码心中有万分感慨，写此文章纪念那时那景！ Java 源码包 ...
- 付费计算机毕业论文毕业设计课程设计
付费资料 驱动器 F 中的卷是 资料卷的序列号是 6B36-8880F:/论文/计算机毕业设计 的目录[.][..]-商贸有限公司销售管理系统（论文＋源代码＋答辩PPT）.rar1.ppt1.txt1计算机组装与维护.doc2.xls33个毕业设计---...
- 网页常用JavaScript代码
<script>// 弹出窗体 var url = ... win=window.showModalDialog(url,window,"dialogLeft:400;dialogTop:200;dialogWidth:560px;dialogHeight:380px;scroll:yes;menubar:no;toolbar:no;status:no
- java源码包
Java绘制图片火焰效果，源代码相关注释：前景和背景Image对象、Applet和绘制火焰的效果的Image对象、Applet和绘制火焰的效果的Graphics对象、火焰效果的线程、Applet的高度,图片到图片装载器、绘制火焰效果的X坐标...
- JavaScript代码收集
正在处理您的请求... <!-- function getObject(objectId) { if(document.getElementById) { return document.getElementById(objectId) } else if(document.all&&document.all(objectId))
- 【专题】CSDN下载频道5月热门资源top100汇总
下载频道5月下载量TOP100的资源集中整理汇总，这些资源依然以（移动开发、课程资源、开发技术）三个大类为主，希望整理的这些资源对大家会有些许帮助。 5月Download TOP 100 ...注释： 1、以下每个类别的资源都...
- java源码包3
Java绘制图片火焰效果，源代码相关注释：前景和背景Image对象、Applet和绘制火焰的效果的Image对象、Applet和绘制火焰的效果的Graphics对象、火焰效果的线程、Applet的高度,图片到图片装载器、绘制火焰效果的X坐标...