癫狂编程

摘要： procedure TForm1.Button1Click(Sender: TObject); var D:TDateTime; s:string; begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D); showmessage(s); end; 阅读全文

摘要： 1.Format 根据指定所需要的格式，格式化字符串。 原型： function Format(const Format: string const Args: array of const): string 例子： 2.FormatDateTime 格式化日期值 原型： function Form 阅读全文

摘要： 给DatetimePicker赋值时，可以通过界面设置赋值，也可以通过代码赋值。 通常，我们会给表示起始时间的dtp赋值为 00:00:00，给表示结束时间的dtp赋值为23:59:59。 代码如下： dtp1.time:=strtodatetime('00:00:00'); dtp2.time:= 阅读全文