SysUtils定义了变量ShortDateFormat 和LongDateFormat。procedure TForm1.Button1Click(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'm/d/yyyy';
Label1.Caption := DateToStr(Date);
end;
begin
DateSeparator := '-';
ShortDateFormat := 'm/d/yyyy';
Label1.Caption := DateToStr(Date);
end;
解决方案 »
- EVariantInvalidArgError Invalid argument
- ADOStoredProc 取@return_value 参数返回值错误
- 编译delphi,提示没有找到dxDBGrid.dcu. 请问怎么解决?谢谢。
- 怎么判断某个字符串中指定字符的个数
- 写个小软件 将<input type="checkbox" name="checkbox2" value="checkbox">等控件转换成.NET服务器端的控件;页面格式不能改变;请问这个
- XML应用的实例!
- 看Socket问题,大家都来看看一看,我很急,出不来就死定了,(块救人啊)!!!!
- 我想在form的click事件里触发一个button的click事件,参数该怎样写呢?
- 奇怪的DELPHI
- 请问在D5+ADO+ACCESS的程序中是否还需要BDE?如何手工打包BDE?
- 高分求一个过河的问题的算法
- WINSOCK问题:gethostbyname怎么用?
就是这样!
什么时候都不要忘了format,呵呵~~~~~
begin
Label1.Caption := FormatDateTime('dddddd',Date);//格式dddddd为长日期格式
end;