5,388
社区成员
发帖
与我相关
我的任务
分享如何把DateTimePicker里面的日期转化为?
如何把DateTimePicker里面的日期转化
比如是2003- 5-10 转化为030510?
比如是2003- 5-10 转化为030510?
...全文
请发表友善的回复…
发表回复
xiaorou00 2003-05-10
- 打赏
- 举报
不懂，
xylyge 2003-05-10
- 打赏
- 举报
str:=datetostr(DateTimePicker.date);
s:=''
for i:=0 to length(str)-1 do
begin
if str[i]<>'-' then
s:=s+str[i];
end;
s:=''
for i:=0 to length(str)-1 do
begin
if str[i]<>'-' then
s:=s+str[i];
end;
u2m 2003-05-10
- 打赏
- 举报
function ConvertTime(AStr: string): TTime;
var
H, N, S: string;
begin
H := copy(Astr, 1, 4);
N := copy(AStr, 6, 2);
S := copy(AStr, 9, 2);
Result := strtoTime(Format('%s%s%s', [H, N, S]));
end;
var
H, N, S: string;
begin
H := copy(Astr, 1, 4);
N := copy(AStr, 6, 2);
S := copy(AStr, 9, 2);
Result := strtoTime(Format('%s%s%s', [H, N, S]));
end;
