求助！公元年与纪元年换算问题加分100

Question

我也想要：
[email protected]

Answer 1

我也想要：
  [email protected]

Answer 2

有没有网站就是可以算出来，不错，
www.nongli.com或
www.nongli.net网站
参考一下。

Answer 3

'  Dim T(9) As String
'  Dim D(11) As String
'  Dim MyStr As String
'  j = 6
'  k = 8
'  i = 0
'
'  T(0) = "甲"
'  T(1) = "已"
'  T(2) = "丙"
'  T(3) = "丁"
'  T(4) = "戊"
'  T(5) = "己"
'  T(6) = "庚"
'  T(7) = "辛"
'  T(8) = "壬"
'  T(9) = "癸"
'  D(0) = "子"
'  D(1) = "丑"
'  D(2) = "寅"
'  D(3) = "卯"
'  D(4) = "辰"
'  D(5) = "巳"
'  D(6) = "午"
'  D(7) = "未"
'  D(8) = "申"
'  D(9) = "酉"
'  D(10) = "戌"
'  D(11) = "亥"
'
'
'  rs.Open "select * from 纪年表", cn, adOpenDynamic, adLockOptimistic
'    For i = 841 To 1 Step -1
'      rs.AddNew
'      rs(0).Value = "公元前" + CStr(i) + "年"
'      rs.Update
'     Next
'     For i = 1 To 2000
'      rs.AddNew
'      rs(0).Value = "公元" + CStr(i) + "年"
'      rs.Update
'     Next
'   If Not rs.BOF Then rs.MoveFirst
'
''    For i = 0 To 2840'-----天干地支循环
'      Do Until rs.EOF
'       rs(1).Value = T(j) + D(k)
'        k = k + 1
'        j = j + 1
'            If j > 9 Then
'            j = 0
'            End If
'
'            If k > 11 Then
'             k = 0
'            End If
'     rs.Update
'     rs.MoveNext
'     Loop
'
''     Next
'
'  rs.Close
'
'End Sub