怎样显示毫秒信息

[zhangcg]

用Now().formatting函数只能显示当前时间的秒，怎样才能把当前时间的毫秒信息显示出来？
------------------------------------
《CSDN论坛新助手 CSDN's forum Explorer》

[zhangcg]

有人知道吗？

[futulove]

显示毫秒有什么用呀，他很快的看不清呀

[hongxia]

void __fastcall TForm1::Button1Click(TObject *Sender)

{
Word Year, Month, Day, Hour, Min, Sec, MSec;
TDateTime dtPresent = Now();
DecodeDate(dtPresent, Year, Month, Day);
Label1->Caption = AnsiString("Today is Day ") + IntToStr(Day) + AnsiString(" of Month ") + IntToStr(Month) + AnsiString(" of Year ") + IntToStr(Year);
DecodeTime(dtPresent, Hour, Min, Sec, MSec);
Label2->Caption = AnsiString("The time is Minute ") + IntToStr(Min) + AnsiString(" of Hour ") + IntToStr(Hour);

}
MSec中就是毫秒

[1cctv]

如果有个100分的贴,我教你怎么显示ns.