王峰炬

摘要： ?笔者曾利用进制转换实现不重复序列全排列（http://blog.csdn.net/northwolves/archive/2004/07/21/47400.aspx），但从0 循环到n^(n-1)-1,效率实在不高，经过仔细分析，发现一个另人激动的规律，详情见下表： ? A ? BA ... 阅读全文

摘要： 下面给出一个回溯算法的代码，在VertyNew(华) 网友提供代码（http://community.csdn.net/Expert/topic/2909/2909080.xml?temp=.9990503）基础上稍作修改： Sub pailie2(ParamArray x())Dim start... 阅读全文

摘要： 笔者曾写过利用递归实现不重复序列全排列的例子http://blog.csdn.net/northwolves/archive/2004/04/07/19590.aspx 现在给出另一个利用进制实现的代码： Sub pailie1(ParamArray x())Dim starttime As Si... 阅读全文

摘要： 下面的代码可以将任意日期（1000-01-01 0:0:0------>9999-12-31 23:59:59）转换为汉字显示 Function datename(ByVal mydate As String) As String Dim i As Long, mystr(6) As String... 阅读全文