计算农历天干、地支、月、日

答案：
isEnd = 0
m = 0
Do
  If (NongliData(m) < 4095) Then
  k = 11
  Else
  k = 12
  End If
  n = k
  Do
  If (n < 0) Then
  Exit Do
  End If
  '获取NongliData(m)的第n个二进制位的值
  bit = NongliData(m)
  For q = 1 To n Step 1
  bit = Int(bit / 2)
  Next
  bit = bit Mod 2
  If (TheDate <= 29 + bit) Then
  isEnd = 1
  Exit Do
  End If
  TheDate = TheDate - 29 - bit
  n = n - 1
  Loop
  If (isEnd = 1) Then
  Exit Do
  End If
  m = m + 1
Loop
curYear = 1921 + m
curMonth = k - n + 1
curDay = TheDate
If (k = 12) Then
  If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then
  curMonth = 1 - curMonth
  ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then
  curMonth = curMonth - 1
  End If
End If

上一个：asp如何回到先前的页面
下一个：ASP与SQL数据库连接