variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系統參數(1);
str1:='
今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm [p],0)+'月'
+數字轉化為字符串(fd[p],0)+'日, '+wday[wd[p]+1];
================================================
例如 2009年4月15日
我想改 98年4月15日

fy:=年份;
FY:=FY-1911;

__________________
至誠能勝天下至偽
至拙能勝天下至巧

引用:

---

最初由 peter109 發表
fy:=年份;
FY:=FY-1911;

---