decodedate(now ,year,month,day);
decodetime(now,hour,min,sec,msec);
decodetime(now,hour,min,sec,msec);
解决方案 »
- 关于DevExpress和 ExpressBar的问题。
- RMB求高手帮忙翻译一个VC++程序代码成delphi
- delphi StringGrid输入自动显示问题。高手入!!
- 用database如何处理数据库的连接?
- 简单问题:怎样将DB格式文件转换为Excel格式文件?
- 如何关闭一个已知文件名的程序?
- 请问如何截获本窗体中TListView中的LVM_SETCOLUMNWIDTH消息?
- 如何实现SQLSERVER7物理数据库的备份???
- findkey的问题?
- QRPreview上怎样显示数据?
- 众位高手,我想问一下有没有像WINDOWS资料管理器那样的,可以拖拉大小的Treeview跟Listview的第三方控件?最好是不用手工写代码的!
- 如何远程连接SQL数据库?
微秒!
Hour, Min, Sec: String;
S: String;
begin
S := TimeToStr(formatDateTime('HH:MM:SS',Time));
Hour := Copy(S, 1, 2);
Min := Copy(s, 4, 2);
Sec := Copy(S, 7, 2);
end;