您现在正在浏览：站长之家 >> 数据库 >> 详细内容

在access中增加农历支持模块

时间:2007-12-23 来源:不详作者:迈克DB

daList(56) = "010100101011000212"
daList(57) = "101010010101080131"
daList(58) = "111010010101000218"
daList(59) = "011010101010000208"
daList(60) = "101011010101060128"
daList(61) = "101010110101000215"
daList(62) = "010010110110000205"
daList(63) = "101001010111040125"
daList(64) = "101001010111000213"
daList(65) = "010100100110000202"
daList(66) = "111010010011030121"
daList(67) = "110110010101000209"
daList(68) = "010110101010170130"
daList(69) = "010101101010000217"
daList(70) = "100101101101000206"
daList(71) = "010010101110150127"
daList(72) = "010010101101000215"
daList(73) = "101001001101000203"
daList(74) = "110100100110140123"
daList(75) = "110100100101000211"
daList(76) = "110101010010180131"
daList(77) = "101101010100000218"
daList(78) = "101101101010000207"
daList(79) = "100101101101060128"
daList(80) = "100101011011000216"
daList(81) = "010010011011000205"

本文来自织梦

daList(82) = "101001001011140125"
daList(83) = "101001001011000213"
daList(84) = "1011001001011A0202"
daList(85) = "011010100101000220"
daList(86) = "011011010100000209"
daList(87) = "101011011010060129"
daList(88) = "101010110110000217"
daList(89) = "100100110111000206"
daList(90) = "010010010111150127"
daList(91) = "010010010111000215"
daList(92) = "011001001011000204"
daList(93) = "011010100101030123"
daList(94) = "111010100101000210"
daList(95) = "011010110010180131"
daList(96) = "010110101100000219"
daList(97) = "101010110110000207"
daList(98) = "100100110110050128"
daList(99) = "100100101110000216"
daList(100) = "110010010110000205"
daList(101) = "110101001010140124"
daList(102) = "110101001010000212"
daList(103) = "110110100101000201"
daList(104) = "010110101010120122"
daList(105) = "010101101010000209"
daList(106) = "101010101101170129"
daList(107) = "001001011101000218" copyright dedecms
daList(108) = "100100101101000207"
daList(109) = "110010010101150126"
daList(110) = "101010010101000214"
daList(111) = "101101001010000214"

On Error Resume Next
Dim conDate As Date
Dim tYear, AddMonth, AddDay, AddYear, getDay, i As Integer
Dim RunYue As Boolean

tYear = Year(gldate)

If tYear > 2010 Or tYear < 1901 Then
glgetnl = " "
Exit Function '假如不是有效有日期，退出
End If

RunYue = False
AddYear = tYear

Do
AddMonth = CInt(Mid(daList(AddYear - 1900), 15, 2))
AddDay = CInt(Mid(daList(AddYear - 1900), 17, 2))
conDate = DateSerial(AddYear, AddMonth, AddDay)
getDay = DateDiff("d", conDate, gldate)
If getDay < 0 Then AddYear = AddYear - 1
Loop While getDay < 0

AddDay = 1
AddMonth = 1
For i = 1 To getDay
AddDay = AddDay 1
If AddDay = 30 CInt(Mid(daList(AddYear - 1900), AddMonth, 1)) Or (RunYue And AddDay = 30 CInt(Mid(daList(AddYear - 1900), 13, 1))) Then