一个十分简单的问题(如何调用日期时间?)-白送分

Question

察看帮助
decodetime
dayofweek

Answer 1

也是用
decodetime(time()a,b,c)?
dayofweek这个实直接用的吗?
我很菜,请写的详细一点好吗?多谢

Answer 2

星期函数为：
FUNCTION GETWEEK(CONST DA:String):INTEGER;
VAR DASTR:STRING;
    YEAR,MONTH,DAY,DAYS,SUM,DAY1,DAY2,I:INTEGER;
BEGIN
  DASTR:=DA;  YEAR:=STRTOINT(DASTR[1]+DASTR[2]+DASTR[3]+DASTR[4]);
  if DASTR[5]<>'0' then
  MONTH:=STRTOINT(DASTR[5]+DASTR[6]) else
  MONTH:=STRTOINT(DASTR[6]);
  if DASTR[7]<>'0' then
  DAY:=STRTOINT(DASTR[7]+DASTR[8]) else
  DAY:=STRTOINT(DASTR[8]);  IF ((YEAR MOD 400)=0 ) OR (((YEAR MOD 4)=0) AND ((YEAR MOD 100)<> 0))
    THEN DAY2:=29
    ELSE DAY2:=28;//GET_DAYS;
  DAYS:=0;
  FOR I:=1 TO MONTH-1 DO
    BEGIN
    CASE I OF
     1,3,5,7,8,10,12: DAY1:=31;
            4,6,9,11: DAY1:=30;
                   2: DAY1:=DAY2;
    END;    DAYS:=DAYS+DAY1;
    END;  DAYS:=DAYS+DAY;  SUM:=(YEAR-1) + ((YEAR-1) DIV 4) - ((YEAR-1) DIV 100) +((YEAR-1) DIV 400) +DAYS;  GETWEEK:=SUM MOD 7;
END;
通过此函数可以得出所输的日期是星期几
时间用System中的Timer,将其Interval属性设为1在OnTimer事件中写代码控制，如：
begin
   Edit1.Text:=TimetoStr(Now);
end;

Answer 3

decodetime(time,a,b,c,d)
dayofweek(data)

Answer 4

formatdatetimeS := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM',StrToDateTime('2/15/95 10:30am'));

Answer 5

DayOfWeek(Now);
结果是1~7，
7表示周日
自己做一个数组，不久便成中文了简单吧！

Answer 6

var
 wyear,wmonth,wday,whour,wmin,wsec,wmsec,wweek:word;
begin
 DecodeDate(Date,wyear,wmonth,wday);
 DecodeTime(Now,whour,wmin,wsec,wmsec);
 wweek:=DayofWeek(Date);
end;Date表示当前日期，Now表示当前时间，分解出来的年，月，日，时，分，秒，毫秒都是双字节整型。wweek也是双字节整型，返回一个星期中的第几天；注意第一天是星期日，即如果wweek等于4，就是星期三。

Answer 7

var
   s:string;
begin
s:=formatdatetime('yyyy''年''mm''月''dd''日''hh''时''mm''分''',now);
end;