Question

delphi中如何给FormatdateTime赋初值,让后显示在label。caption中？

比如，label。caption显示：2008年8月8日星期二这种格式

Answer 1

var
Year, Month, Day: Word;
days: array[1..7] of string ;
begin
days[1] := '日 ';
days[2] := '一 ';
days[3] := '二 ';
days[4] := '三 ';
days[5] := '四 ';
days[6] := '五 ';
days[7] := '六 ';
DecodeDate(Now, Year, Month, Day);
label1.Caption:= IntToStr(Year) + '年' +
IntToStr(Month)+ '月' +
IntToStr(Day) + '日' +
' 星期 ' + days[DayOfWeek(now)];
end;

Answer 2

formatdatetime （时间,格式），这个函数就会返回 时间的字符串。
1，参数 ：“时间” 是一个 Tdatetime类型，你可以用date 取当前日期试一下。
2，参数：“格式”的写法 你可以百度 一下，别太懒哦

追问

用Label1.Caption:=FormatdateTime('dddddd ',now);取出来直接就是这种格式的日期，这是取系统的日期我知道，我想要的是自己随便设置日期，比如今天是2011年8月4日 星期四，但我想让Label1.Caption显示任意一天，就是设置Label1.Caption显示的初始日期为xx年xx月xx日星期xx

追答

你是说 你不知道你要设置的那一天怎么写成 datetime再转成 string 去赋值给label1.caption ?
你可以尝试用 TDateTimePicker 就可以 随便设置日期了，然后你就可以付赋值给 label1了