关于pchar类型的运算 ( 积分: 20 )

我的函数是这样的
function IssueCustomerCard(pCardNo: pchar
aBuildingNum,aFloorNum,aRoomNum,
pLossTimeTag,pStartTime,pEndTime: pchar): integer;stdcall
// 发客人卡
var
cBuildingNum,cFloorNum,cRoomNum: char;
begin
cBuildingNum := aBuildingNum^;
cFloorNum := aFloorNum^;
cRoomNum := aRoomNum^;

result := IssueCardTypeB(pCardNo,chr(CUSTOMER_CARD),cBuildingNum,cFloorNum,cRoomNum,
pLossTimeTag,pStartTime,pEndTime,ISSUEMODE);
end;

我现在要把这个函数的两个参数（pStartTime,pEndTime: pchar）要在这原来的基础上加上一个值和减去一个值。我现在的目的是要把开始时间（pStartTime:=pStartTime-30）加上一个值赋予它然后再传出去和结束时间（pEndTime:=pEndTime+30），请问怎么实现啊？

我的函数是这样的
function IssueCustomerCard(pCardNo: pchar
aBuildingNum,aFloorNum,aRoomNum,
pLossTimeTag,pStartTime,pEndTime: pchar): integer;stdcall
// 发客人卡
var
cBuildingNum,cFloorNum,cRoomNum: char;
begin
cBuildingNum := aBuildingNum^;
cFloorNum := aFloorNum^;
cRoomNum := aRoomNum^;

result := IssueCardTypeB(pCardNo,chr(CUSTOMER_CARD),cBuildingNum,cFloorNum,cRoomNum,
pLossTimeTag,pStartTime,pEndTime,ISSUEMODE);
end;

我现在要把这个函数的两个参数（pStartTime,pEndTime: pchar）要在这原来的基础上加上一个值和减去一个值。我现在的目的是要把开始时间（pStartTime:=pStartTime-30）加上一个值赋予它然后再传出去和结束时间（pEndTime:=pEndTime+30），请问怎么实现啊？

就是pchar类型的值加上一个数值啊,用什么函数实现呢?

好象是ADEL的门锁的入口函数啊嘿嘿

pchar(inttostr((strtoint(strpas(pStartTime))-30)))

谢谢!