|
|
|
一个自杀程序 2002-09-19 |
下面的代码演示将一个程序在执行时将自己删除。新建一个窗体,并加一上按钮,添如下代码Private Sub Command1_Click() KillMeEnd SubSub KillMe() Path = App.Path If Right(Path, 1) <> "\" Then Path = Path + "\" PathName = Path + Ap...[全部内容] |
|
用VB把数字转成中文字符串 2002-09-13 |
根据数字的读法,写了一个把数字转成中文字符串的程序参数一为数字参数二为是不是反回人民币大写参数三为是不是直接读数字,否则带有十百等单位参数四为设置小数点后面的位数,默认为4使用方法是t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”t=G...[全部内容] |
|
VB计算农历的算法 2002-09-13 |
VB计算农历的算法'下面是一个关于VB的农历算法'日期数据定义方法如下'前12个字节代表1-12月为大月或是小月,1为大月30天,0为小月29天,'第13位为闰月的情况,1为大月30天,0为小月29天,第14位为闰月的月'份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来...[全部内容] |
|
用VB把数字转成中文字符串 2002-09-13 |
根据数字的读法,写了一个把数字转成中文字符串的程序参数一为数字参数二为是不是反回人民币大写参数三为是不是直接读数字,否则带有十百等单位参数四为设置小数点后面的位数,默认为4使用方法是t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”t=G...[全部内容] |
|
VB计算农历的算法 2002-09-13 |
VB计算农历的算法'下面是一个关于VB的农历算法'日期数据定义方法如下'前12个字节代表1-12月为大月或是小月,1为大月30天,0为小月29天,'第13位为闰月的情况,1为大月30天,0为小月29天,第14位为闰月的月'份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来...[全部内容] |
| |
| |
|