ITPub博客

function TmainForm.tysswr(n,i:integer;s:string):string; //n间隔四舍六入 var temp:real; t:string; begin temp:=strtofloat(s)/n; t:=mainForm.sswr(floattostr(temp),i); temp:=strtofloat(t)*n; t:=mainForm.sswr(floattostr(temp),i); result:=t; end;[@more@]

function TmainForm.WorksDay( //计算两个日期间有多少个工作日 mStartDate: TDate; //开始日期 mEndDate: TDate //终止日期 ): Integer; //返回两个日期间的工作日，如果输入错误则返回-1 var m,n:integer; begin Result := -1; if mEndDate < mStartDate then Exit; m:=DaysBetween(mStartDate,mEndDate); n:=(m div 7)*2; if m mod 7<>0 then begin if DayOfWeek(mStartDate)>DayOfWeek(m

function TmainForm.sswr(s:string;i:integer):string;var str,str20,temp,temp0,temp1,r:string;beginstr:=s;str20:=copy(str,pos('.',str)+1,length(str));//showmessage(str20);temp:=copy(str20,i+1,1);temp0:=copy(str20,i,1);temp1:=copy(str20,i+2,length(str20));if ((length(str20)<=i)and(length(str20)>0 )) thenbeginr:=str+'00000000000';r:=copy(r,1,pos('.',str)+i);end elseif (length(temp1)=0 )and (strtoint(temp)=5 ) and (strtoint(temp0)mod 2=0) thenbeginr:=copy(str,1,pos('.',str)+i);end elsebeginif i=

function GetPYIndexChar( hzchar:string):char;begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := 'A'; $B0C5..$B2C0 : result := 'B'; $B2C1..$B4ED : result := 'C'; $B4EE..$B6E9 : result := 'D'; $B6EA..$B7A1 : result := 'E'; $B7A2..$B8C0 : result := 'F'; $B8C1..$B9FD : result := 'G'; $B9FE..$BBF6 : result := 'H'; $BBF7..$BFA5 : result := 'J'; $BFA6..$C0AB : result := 'K'; $C0AC..$C2E7 : result := 'L'; $C2E8..$C4C2 : result := '

function TgjcForm.IncreamNo(sNo: String): String;variPos : Integer;iLen : Integer;iNo : Integer;beginiPos := Length(sNo);while (iPos > 0) and (sNo[iPos] in ['0'..'9']) do dec(iPos);if iPos > 0 thenbeginiLen := Length(sNo) - iPos;iNo := StrToInt(Copy(sNo, iPos + 1, iLen));Result := Copy(sNo, 1, iPos) + RightStr(StringOfChar('0', iLen) + IntToStr(iNo + 1), iLen);endelseResult := sNo;end;procedure TgjcForm.Button4Click(Sender: TObject);beginShowMessage (IncreamNo('fg00100227'));end;[@more@]