Удар я дал код, который может быть преобразован в SQL-запрос ?
Public Sub Proc_Data Dim var_17C As String var_90 = CStr(Ucase(Left(Format(DateAdd("m", CSng((Format(Date, "MM") Mod 4)), Date), "MMMM"), 3))) For var_178 = 1 To CInt(Len(var_90)): MemVar_27041A0 = var_178 'Integer var_8C = CStr(CVar(vbNullString) & Chr(CLng((&H41 + (Asc(CStr(Mid(var_90, CLng(MemVar_27041A0), 1))) Mod &H1A))))) If (MemVar_27041A0 < 3) Then var_17C = CStr(Mid(CStr(Format(DateAdd("M", CSng((Format(Date, "YY") * Format(Date, "MM"))), Date), "YY")), CLng(MemVar_27041A0), 1)) var_8C = var_8C & CStr(((((Asc(var_17C) * &H4D) * MemVar_27041A0) + 7) Mod &HA)) Else var_8C = CStr(CVar(var_8C) & Chr(CLng((&H41 + ((Asc(CStr(Mid(var_90, CLng(MemVar_27041A0), 1))) + 7) Mod &H1A))))) End If Next var_178 'Integer var_88 = CStr(LCase(var_8C)) Exit Sub End Sub
Что я уже пробовал:
Я попытался сделать sql - запрос, но у меня ничего не вышло.