<%
'软件名称：龙品软件会议室网上预约系统W10.0
'源码作者：岑品雄
'官方网站：http://www.wzcen.com
'联系方式：QQ：295011549　邮箱：lxzx2488@163.com 手机号:18277450676　（只收短信，不接来电）
'请勿修改下列任何代码,以保证程序正常运行

Dim MDMDMD,MDMDMM,MDMMDD,MDMMDM,MDMMMD
Set MDMMDD=Response:Set MDMDMM=Request:Set MDMMMD=Session:Set MDMDMD=Application:Set MDMMDM=Server
If Date > CDate(MMMDMD("a_`f\`\`")) Then MDMMDD.Write MMMDMD("寴@丈@赲@，,朧@罌@竔@糶@绚@佺@産@朾@陋@巭@迂@朚@！,欝@迉@质@乫@歞@弊@牃@，,電@襼@诲@聏@糶@""""：,ahd_``dch ,邩@箬@：,=IKIacggo`eb]4@> ,扆@朵@：,`gaffcd_efe"):MDMMDD.End
Private Const MDMMDMM =8
Private Const MDMMMDD =4
Private Const MDMMMDM =32
Private MMMMMM(30)
Private MDDDDDD(30)
Private Function MDMMMM(MMMDDDD, MMMDDDM)
If MMMDDDM = 0 Then
MDMMMM = MMMDDDD
Exit Function
ElseIf MMMDDDM = 31 Then
If MMMDDDD And 1 Then
MDMMMM = &H80000000
Else
MDMMMM = (28 * 87 - 2436)
End If
Exit Function
ElseIf MMMDDDM < 0 Or MMMDDDM > 31 Then
Err.Raise 6
End If
If (MMMDDDD And MDDDDDD(31 - MMMDDDM)) Then
MDMMMM = ((MMMDDDD And MMMMMM(31 - (MMMDDDM + 1))) * MDDDDDD(MMMDDDM)) Or &H80000000
Else
MDMMMM = ((MMMDDDD And MMMMMM(31 - MMMDDDM)) * MDDDDDD(MMMDDDM))
End If
End Function
Private Function MMDDDD(MMMDDDD, MMMDDDM)
If MMMDDDM = 0 Then
MMDDDD = MMMDDDD
Exit Function
ElseIf MMMDDDM = 31 Then
If MMMDDDD And &H80000000 Then
MMDDDD = (73 * 75 - 5474)
Else
MMDDDD = (28 * 87 - 2436)
End If
Exit Function
ElseIf MMMDDDM < 0 Or MMMDDDM > 31 Then
Err.Raise 6
End If
MMDDDD = (MMMDDDD And &H7FFFFFFE) \ MDDDDDD(MMMDDDM)
If (MMMDDDD And &H80000000) Then
MMDDDD = (MMDDDD Or (&H40000000 \ MDDDDDD(MMMDDDM - 1)))
End If
End Function
Private Function MMDDDM(MMMDDDD, MMMDDDM)
MMDDDM = MDMMMM(MMMDDDD, MMMDDDM) Or MMDDDD(MMMDDDD, (32 - MMMDDDM))
End Function
Private Function MMDDMD(MMMDDMD, MMMDDMM)
Dim MDDDDDM
Dim MDDDDMD
Dim MDDDDMM
Dim MDDDMDD
Dim MDDDMDM
MDDDDMM = MMMDDMD And &H80000000
MDDDMDD = MMMDDMM And &H80000000
MDDDDDM = MMMDDMD And &H40000000
MDDDDMD = MMMDDMM And &H40000000
MDDDMDM = (MMMDDMD And &H3FFFFFFF) + (MMMDDMM And &H3FFFFFFF)
If MDDDDDM And MDDDDMD Then
MDDDMDM = MDDDMDM Xor &H80000000 Xor MDDDDMM Xor MDDDMDD
ElseIf MDDDDDM Or MDDDDMD Then
If MDDDMDM And &H40000000 Then
MDDDMDM = MDDDMDM Xor &HC0000000 Xor MDDDDMM Xor MDDDMDD
Else
MDDDMDM = MDDDMDM Xor &H40000000 Xor MDDDDMM Xor MDDDMDD
End If
Else
MDDDMDM = MDDDMDM Xor MDDDDMM Xor MDDDMDD
End If
MMDDMD = MDDDMDM
End Function
Private Function MMDDMM(MDDMMMD, MMMDMDD, MMMDMDM)
MMDDMM = (MDDMMMD And MMMDMDD) Or ((Not MDDMMMD) And MMMDMDM)
End Function
Private Function MMDMDD(MDDMMMD, MMMDMDD, MMMDMDM)
MMDMDD = (MDDMMMD And MMMDMDM) Or (MMMDMDD And (Not MMMDMDM))
End Function
Private Function MMDMDM(MDDMMMD, MMMDMDD, MMMDMDM)
MMDMDM = (MDDMMMD Xor MMMDMDD Xor MMMDMDM)
End Function
Private Function MMDMMD(MDDMMMD, MMMDMDD, MMMDMDM)
MMDMMD = (MMMDMDD Xor (MDDMMMD Or (Not MMMDMDM)))
End Function
Private Sub MMMDMM(MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD, MMMDMMD, MMMDMMM)
MDMDMDD = MMDDMD(MDMDMDD, MMDDMD(MMDDMD(MMDDMM(MDMDMDM, MDMDMMD, MDMDMMM), MDDMMMD), MMMDMMM))
MDMDMDD = MMDDDM(MDMDMDD, MMMDMMD)
MDMDMDD = MMDDMD(MDMDMDD, MDMDMDM)
End Sub
Private Sub MMMMDD(MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD, MMMDMMD, MMMDMMM)
MDMDMDD = MMDDMD(MDMDMDD, MMDDMD(MMDDMD(MMDMDD(MDMDMDM, MDMDMMD, MDMDMMM), MDDMMMD), MMMDMMM))
MDMDMDD = MMDDDM(MDMDMDD, MMMDMMD)
MDMDMDD = MMDDMD(MDMDMDD, MDMDMDM)
End Sub
Private Sub MMMMDM(MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD, MMMDMMD, MMMDMMM)
MDMDMDD = MMDDMD(MDMDMDD, MMDDMD(MMDDMD(MMDMDM(MDMDMDM, MDMDMMD, MDMDMMM), MDDMMMD), MMMDMMM))
MDMDMDD = MMDDDM(MDMDMDD, MMMDMMD)
MDMDMDD = MMDDMD(MDMDMDD, MDMDMDM)
End Sub
Private Sub MMMMMD(MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD, MMMDMMD, MMMDMMM)
MDMDMDD = MMDDMD(MDMDMDD, MMDDMD(MMDDMD(MMDMMD(MDMDMDM, MDMDMMD, MDMDMMM), MDDMMMD), MMMDMMM))
MDMDMDD = MMDDDM(MDMDMDD, MMMDMMD)
MDMDMDD = MMDDMD(MDMDMDD, MDMDMDM)
End Sub
Private Function MMDMMM(MMMMDDD)
Dim MDDDMMD
Dim MDDDMMM
Dim MDDMDDD()
Dim MDDMDDM
Dim MDDMDMD
Dim MDDMDMM
Const MDMMMMD =512
Const MDMMMMM =448
MDDDMMD = Len(MMMMDDD)
MDDDMMM = (((MDDDMMD + ((MDMMMMD - MDMMMMM) \ MDMMDMM)) \ (MDMMMMD \ MDMMDMM)) + 1) * (MDMMMMD \ MDMMMDM)
ReDim MDDMDDD(MDDDMMM - 1)
MDDMDDM = (28 * 87 - 2436)
MDDMDMD = (28 * 87 - 2436)
Do Until MDDMDMD >= MDDDMMD
MDDMDMM = MDDMDMD \ MDMMMDD
MDDMDDM = (MDDMDMD Mod MDMMMDD) * MDMMDMM
MDDMDDD(MDDMDMM) = MDDMDDD(MDDMDMM) Or MDMMMM(Asc(Mid(MMMMDDD, MDDMDMD + 1, 1)), MDDMDDM)
MDDMDMD = MDDMDMD + (73 * 75 - 5474)
Loop
MDDMDMM = MDDMDMD \ MDMMMDD
MDDMDDM = (MDDMDMD Mod MDMMMDD) * MDMMDMM
MDDMDDD(MDDMDMM) = MDDMDDD(MDDMDMM) Or MDMMMM(&H80, MDDMDDM)
MDDMDDD(MDDDMMM - 2) = MDMMMM(MDDDMMD, 3)
MDDMDDD(MDDDMMM - 1) = MMDDDD(MDDDMMD, 29)
MMDMMM = MDDMDDD
End Function
Private Function MMMDDD(MMMDDDD)
Dim MDDMMDD
Dim MDDMMDM
For MDDMMDM = 0 To 3
MDDMMDD = MMDDDD(MMMDDDD, MDDMMDM * MDMMDMM) And MMMMMM(MDMMDMM - 1)
MMMDDD = MMMDDD & Right("0" & Hex(MDDMMDD), 2)
Next
End Function
Public Function MMMDDM(MMMMDDD)
MMMMMM(0) = CLng(1)
MMMMMM(1) = CLng(3)
MMMMMM(2) = CLng(7)
MMMMMM(3) = CLng(15)
MMMMMM(4) = CLng(31)
MMMMMM(5) = CLng(63)
MMMMMM(6) = CLng(127)
MMMMMM(7) = CLng(255)
MMMMMM(8) = CLng(511)
MMMMMM(9) = CLng(1023)
MMMMMM(10) = CLng(2047)
MMMMMM(11) = CLng(4095)
MMMMMM(12) = CLng(8191)
MMMMMM(13) = CLng(16383)
MMMMMM(14) = CLng(32767)
MMMMMM(15) = CLng(65535)
MMMMMM(16) = CLng(131071)
MMMMMM(17) = CLng(262143)
MMMMMM(18) = CLng(524287)
MMMMMM(19) = CLng(1048575)
MMMMMM(20) = CLng(2097151)
MMMMMM(21) = CLng(4194303)
MMMMMM(22) = CLng(8388607)
MMMMMM(23) = CLng(16777215)
MMMMMM(24) = CLng(33554431)
MMMMMM(25) = CLng(67108863)
MMMMMM(26) = CLng(134217727)
MMMMMM(27) = CLng(268435455)
MMMMMM(28) = CLng(536870911)
MMMMMM(29) = CLng(1073741823)
MMMMMM(30) = CLng(2147483647)
MDDDDDD(0) = CLng(1)
MDDDDDD(1) = CLng(2)
MDDDDDD(2) = CLng(4)
MDDDDDD(3) = CLng(8)
MDDDDDD(4) = CLng(16)
MDDDDDD(5) = CLng(32)
MDDDDDD(6) = CLng(64)
MDDDDDD(7) = CLng(128)
MDDDDDD(8) = CLng(256)
MDDDDDD(9) = CLng(512)
MDDDDDD(10) = CLng(1024)
MDDDDDD(11) = CLng(2048)
MDDDDDD(12) = CLng(4096)
MDDDDDD(13) = CLng(8192)
MDDDDDD(14) = CLng(16384)
MDDDDDD(15) = CLng(32768)
MDDDDDD(16) = CLng(65536)
MDDDDDD(17) = CLng(131072)
MDDDDDD(18) = CLng(262144)
MDDDDDD(19) = CLng(524288)
MDDDDDD(20) = CLng(1048576)
MDDDDDD(21) = CLng(2097152)
MDDDDDD(22) = CLng(4194304)
MDDDDDD(23) = CLng(8388608)
MDDDDDD(24) = CLng(16777216)
MDDDDDD(25) = CLng(33554432)
MDDDDDD(26) = CLng(67108864)
MDDDDDD(27) = CLng(134217728)
MDDDDDD(28) = CLng(268435456)
MDDDDDD(29) = CLng(536870912)
MDDDDDD(30) = CLng(1073741824)
Dim MDDMMMD
Dim MDDMMMM
Dim MDMDDDD
Dim MDMDDDM
Dim MDMDDMD
Dim MDMDDMM
Dim MDMDMDD
Dim MDMDMDM
Dim MDMDMMD
Dim MDMDMMM
Const MMDDDDD =7
Const MMDDDDM =12
Const MMDDDMD =17
Const MMDDDMM =22
Const MMDDMDD =5
Const MMDDMDM =9
Const MMDDMMD =14
Const MMDDMMM =20
Const MMDMDDD =4
Const MMDMDDM =11
Const MMDMDMD =16
Const MMDMDMM =23
Const MMDMMDD =6
Const MMDMMDM =10
Const MMDMMMD =15
Const MMDMMMM =21
MDDMMMD = MMDMMM(MMMMDDD)
MDMDMDD = &H67452301
MDMDMDM = &HEFCDAB89
MDMDMMD = &H98BADCFE
MDMDMMM = &H10325476
For MDDMMMM = 0 To UBound(MDDMMMD) Step (95 * 54 - 5114)
MDMDDDD = MDMDMDD
MDMDDDM = MDMDMDM
MDMDDMD = MDMDMMD
MDMDDMM = MDMDMMM
MMMDMM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 0), MMDDDDD, &HD76AA478
MMMDMM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 1), MMDDDDM, &HE8C7B756
MMMDMM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 2), MMDDDMD, &H242070DB
MMMDMM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 3), MMDDDMM, &HC1BDCEEE
MMMDMM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 4), MMDDDDD, &HF57C0FAF
MMMDMM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 5), MMDDDDM, &H4787C62A
MMMDMM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 6), MMDDDMD, &HA8304613
MMMDMM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 7), MMDDDMM, &HFD469501
MMMDMM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 8), MMDDDDD, &H698098D8
MMMDMM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 9), MMDDDDM, &H8B44F7AF
MMMDMM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 10), MMDDDMD, &HFFFF5BB1
MMMDMM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 11), MMDDDMM, &H895CD7BE
MMMDMM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 12), MMDDDDD, &H6B901122
MMMDMM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 13), MMDDDDM, &HFD987193
MMMDMM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 14), MMDDDMD, &HA679438E
MMMDMM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 15), MMDDDMM, &H49B40821
MMMMDD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 1), MMDDMDD, &HF61E2562
MMMMDD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 6), MMDDMDM, &HC040B340
MMMMDD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 11), MMDDMMD, &H265E5A51
MMMMDD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 0), MMDDMMM, &HE9B6C7AA
MMMMDD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 5), MMDDMDD, &HD62F105D
MMMMDD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 10), MMDDMDM, &H2441453
MMMMDD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 15), MMDDMMD, &HD8A1E681
MMMMDD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 4), MMDDMMM, &HE7D3FBC8
MMMMDD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 9), MMDDMDD, &H21E1CDE6
MMMMDD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 14), MMDDMDM, &HC33707D6
MMMMDD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 3), MMDDMMD, &HF4D50D87
MMMMDD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 8), MMDDMMM, &H455A14ED
MMMMDD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 13), MMDDMDD, &HA9E3E905
MMMMDD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 2), MMDDMDM, &HFCEFA3F8
MMMMDD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 7), MMDDMMD, &H676F02D9
MMMMDD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 12), MMDDMMM, &H8D2A4C8A
MMMMDM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 5), MMDMDDD, &HFFFA3942
MMMMDM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 8), MMDMDDM, &H8771F681
MMMMDM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 11), MMDMDMD, &H6D9D6122
MMMMDM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 14), MMDMDMM, &HFDE5380C
MMMMDM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 1), MMDMDDD, &HA4BEEA44
MMMMDM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 4), MMDMDDM, &H4BDECFA9
MMMMDM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 7), MMDMDMD, &HF6BB4B60
MMMMDM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 10), MMDMDMM, &HBEBFBC70
MMMMDM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 13), MMDMDDD, &H289B7EC6
MMMMDM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 0), MMDMDDM, &HEAA127FA
MMMMDM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 3), MMDMDMD, &HD4EF3085
MMMMDM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 6), MMDMDMM, &H4881D05
MMMMDM MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 9), MMDMDDD, &HD9D4D039
MMMMDM MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 12), MMDMDDM, &HE6DB99E5
MMMMDM MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 15), MMDMDMD, &H1FA27CF8
MMMMDM MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 2), MMDMDMM, &HC4AC5665
MMMMMD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 0), MMDMMDD, &HF4292244
MMMMMD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 7), MMDMMDM, &H432AFF97
MMMMMD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 14), MMDMMMD, &HAB9423A7
MMMMMD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 5), MMDMMMM, &HFC93A039
MMMMMD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 12), MMDMMDD, &H655B59C3
MMMMMD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 3), MMDMMDM, &H8F0CCC92
MMMMMD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 10), MMDMMMD, &HFFEFF47D
MMMMMD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 1), MMDMMMM, &H85845DD1
MMMMMD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 8), MMDMMDD, &H6FA87E4F
MMMMMD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 15), MMDMMDM, &HFE2CE6E0
MMMMMD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 6), MMDMMMD, &HA3014314
MMMMMD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 13), MMDMMMM, &H4E0811A1
MMMMMD MDMDMDD, MDMDMDM, MDMDMMD, MDMDMMM, MDDMMMD(MDDMMMM + 4), MMDMMDD, &HF7537E82
MMMMMD MDMDMMM, MDMDMDD, MDMDMDM, MDMDMMD, MDDMMMD(MDDMMMM + 11), MMDMMDM, &HBD3AF235
MMMMMD MDMDMMD, MDMDMMM, MDMDMDD, MDMDMDM, MDDMMMD(MDDMMMM + 2), MMDMMMD, &H2AD7D2BB
MMMMMD MDMDMDM, MDMDMMD, MDMDMMM, MDMDMDD, MDDMMMD(MDDMMMM + 9), MMDMMMM, &HEB86D391
MDMDMDD = MMDDMD(MDMDMDD, MDMDDDD)
MDMDMDM = MMDDMD(MDMDMDM, MDMDDDM)
MDMDMMD = MMDDMD(MDMDMMD, MDMDDMD)
MDMDMMM = MMDDMD(MDMDMMM, MDMDDMM)
Next
MMMDDM=LCase(MMMDDD(MDMDMDM) & MMMDDD(MDMDMMD))
End Function
Function MMMDMD(ByVal MDMDMMD)
Dim MDMMDDD, MDMMDDM, MDMMDMD
MDMDMMD = Replace(MDMDMMD, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For MDMMDDM = 1 To Len(MDMDMMD)
If MDMMDDM <> MDMMDMD Then
MDMMDDD = AscW(Mid(MDMDMMD, MDMMDDM, 1))
If MDMMDDD >= 33 And MDMMDDD <= 79 Then
MMMDMD = MMMDMD & Chr(MDMMDDD + 47)
ElseIf MDMMDDD >= 80 And MDMMDDD <= 126 Then
MMMDMD = MMMDMD & Chr(MDMMDDD - 47)
Else
MDMMDMD = MDMMDDM + 1
If Mid(MDMDMMD, MDMMDMD, 1) = MMMDMD("o") Then MMMDMD = MMMDMD & ChrW(MDMMDDD + 5) Else MMMDMD = MMMDMD & Mid(MDMDMMD, MDMMDDM, 1)
End If
End If
Next
End Function
%>