我要截取日期字段(当然是动态的),如'5月8日'中的8.怎么都截不到。请问为什么?
代码如下:
var selDate,yeahMask,Mathmask,daymask:string;
i,j:integer;
begin
SelDate := '5月8日';
i:= pos('月',SelDAte);
j:= pos('日',SelDate);
// showmessage(inttostr());
YeahMask := FormatDateTime('yy',now);
Mathmask := copy(SelDate,1,i-1);
// DayMask := copy(SelDate,i+1,j-1); 下面语句 showmessage(DayMask)显示为'日'
// DayMask := copy(SelDate,i+1,j); 下面语句 showmessage(DayMask)显示为'日'
// DayMask := copy(SelDate,i,j-1); // 下面语句 showmessage(DayMask)显示为'月8'
DayMask := copy(SelDate,i,j); // 下面语句 showmessage(DayMask)显示为'月8日'
showmessage(MathMask);
showmessage(DayMask);
end;
代码如下:
var selDate,yeahMask,Mathmask,daymask:string;
i,j:integer;
begin
SelDate := '5月8日';
i:= pos('月',SelDAte);
j:= pos('日',SelDate);
// showmessage(inttostr());
YeahMask := FormatDateTime('yy',now);
Mathmask := copy(SelDate,1,i-1);
// DayMask := copy(SelDate,i+1,j-1); 下面语句 showmessage(DayMask)显示为'日'
// DayMask := copy(SelDate,i+1,j); 下面语句 showmessage(DayMask)显示为'日'
// DayMask := copy(SelDate,i,j-1); // 下面语句 showmessage(DayMask)显示为'月8'
DayMask := copy(SelDate,i,j); // 下面语句 showmessage(DayMask)显示为'月8日'
showmessage(MathMask);
showmessage(DayMask);
end;
解决方案 »
- StringGrid 同一个单元格 显示 不同颜色的字体
- Expressbar 6安装问题
- 请求大家帮忙看一下这些代码?
- 如何获取程序外屏幕上任意一点的鼠标坐标?
- 问一下,形如function RivestFile(FileName: string): string;的函数,导出到DLL里,然后再在VC里面调用,在VC里这个函数应该声明成什么
- 谁帮我看一下VF的程序,小弟很急,考试题目在线等。。。。。
- 为什么在Delphi6中找不到designintf.dcu文件?
- 请大家帮忙!(关于报表显示的问题)
- 怎样实现分组打印
- 怎样使Webbrowser下载页面时,直下载文本,图像等其他二进制文件都不下载,但不影响IE设置?
- 虽然我不愿意,但我还是升两星了,一点感想!请斑竹不要删,我揭贴时会移走的!
- 将数据插入系统中时发生错误。。。
在sql语句中有
day()就可以拉
SelDate := '5月8日';
i:= pos('月',SelDAte);
j:= pos('日',SelDate);
DayMask := copy(SelDate,i+2,j-i-2); // 下面语句 showmessage(DayMask)显示为'月8日'
DayMask := copy(SelDate,j-1,1);
就可以了