十二生肖 php版/Delphi版 |
|
|
|
qoo1234
版主   發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
參考文件：http://ako.idv.tw/index.files/Page570.htm
php版 程式碼：
<?
function yearami() {
$Y=date("Y");
$G= $Y % 12;
if ($G=='4') {return '鼠';}
if ($G=='5') {return '牛';}
if ($G=='6') {return '虎';}
if ($G=='7') {return '兔';}
if ($G=='8') {return '龍';}
if ($G=='9') {return '蛇';}
if ($G=='10') {return '馬';}
if ($G=='11') {return '羊';}
if ($G=='0') {return '猴';}
if ($G=='1') {return '雞';}
if ($G=='2') {return '狗';}
if ($G=='3') {return '豬';}
} //使用方式：
echo "[生肖]".yearami();
?> =======================================================
Delphi版 程式碼： function YearAmi:string;
var
FYear,FMonth,FDay,G:word;
begin
DecodeDate(now, FYear, FMonth, FDay);
G:= FYear mod 12; //FYear取西元
if (G=4) then Result:= '鼠';
if (G=5) then Result:= '牛';
if (G=6) then Result:= '虎';
if (G=7) then Result:= '兔';
if (G=8) then Result:= '龍';
if (G=9) then Result:= '蛇';
if (G=10) then Result:= '馬';
if (G=11) then Result:= '羊';
if (G=0) then Result:= '猴';
if (G=1) then Result:= '雞';
if (G=2) then Result:= '狗';
if (G=3) then Result:= '豬';
end; //使用方式：
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=YearAmi;
end; 發表人 - qoo1234 於 2004/06/16 12:26:32
|
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
|
|
conundrum
尊榮會員 發表：893 回覆：1272 積分：643 註冊：2004-01-06 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
發表時間：2004-06-16 03:23:18
IP:218.163.xxx.xxx 未訂閱
系統時間：2024-12-04 2:58:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |