奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請問:如何將西元ㄉ年份改為民國年份? (http://www.chiefox.com.tw/bbs/showthread.php?threadid=11454)

請問:如何將西元ㄉ年份改為民國年份?

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;

---