- 博客(8)
- 收藏
- 关注
转载 自造字与生僻字输入
一、自造字处理(xp系统下,其他系统适当修改)1、字库更新:拷贝下列内容至新建文本文件Windows Registry Editor Version 5.00[HKEY_CURRENT_USEREUDC936]"SystemDe...
2011-12-13 11:26:47
616
转载 n间隔四舍六入
function TmainForm.tysswr(n,i:integer;s:string):string; //n间隔四舍六入 var temp:real; t:string; begin temp:=strto...
2008-09-25 09:29:01
95
转载 计算两个日期间有多少个工作日
function TmainForm.WorksDay( //计算两个日期间有多少个工作日 mStartDate: TDate; //开始日期 mEndDate: TDate //终止...
2008-09-25 09:27:29
206
转载 delphi四舍六入函数
function TmainForm.sswr(s:string;i:integer):string;var str,str20,temp,temp0,temp1,r:string;beginstr:=s;str20:=copy...
2008-09-25 09:25:35
159
转载 取得汉字的第一个字母
function GetPYIndexChar( hzchar:string):char;begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C...
2008-09-25 09:02:20
74
转载 字符串递增
function TgjcForm.IncreamNo(sNo: String): String;variPos : Integer;iLen : Integer;iNo : Integer;beginiPos := Lengt...
2008-03-18 14:21:05
150
转载 按月流水
create function funr(@受理时间 datetime)returns varchar(100)asbegindeclare @re varchar(100)select @re=max(流水号) from 器具...
2007-09-12 14:39:02
53
转载 四舍六入函数
CREATE function tttRound(@num varchar(20),@i int)returns varchar(20)asbegindeclare @str varchar(20) /*转换成字符类型*/dec...
2007-09-12 14:23:53
210
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人