5,930
社区成员
发帖
与我相关
我的任务
分享菜鸟请教，时间如何转换成字符？简单问题。
datetime1：2004-6-19 10:25:38，转换成字符tempstr1：20040619102538？
请给出代码,多谢。
请给出代码,多谢。
...全文
请发表友善的回复…
发表回复
CsdnRob 2004-07-02
- 打赏
- 举报
恩 可惜没做过医药方面的
其他都可以 需要定做么?
HeLiang7 2004-06-19
- 打赏
- 举报
二楼的好，我都忘了Format了，有时间没有写了，呵呵。
HeLiang7 2004-06-19
- 打赏
- 举报
以下代码在D7中通过
var
I: Integer;
tmStr: string;
begin
Edit1.Text := '';
tmStr := DateTimeToStr(Now);
for I := 0 to Length(tmStr) - 1 do // Iterate
begin
if not (tmStr[i] in ['-', ':', ' '])then
Edit1.Text := Edit1.Text + tmStr[i];
end; // for
end;
var
I: Integer;
tmStr: string;
begin
Edit1.Text := '';
tmStr := DateTimeToStr(Now);
for I := 0 to Length(tmStr) - 1 do // Iterate
begin
if not (tmStr[i] in ['-', ':', ' '])then
Edit1.Text := Edit1.Text + tmStr[i];
end; // for
end;
alphax 2004-06-19
- 打赏
- 举报
tempstr1 := FormatDateTime('yyyymmddhhnnss', datetime1);
