คุยกับผู้ใช้:AkiAkira/โปรแกรมสร้างพ.ศ.

<form action=wikiyear.php method=get>
<input type=text name=year value="<?php echo $_GET['year'] +1; ?>">
<input type=submit>
</form>
<?php
$cy = "550";
if(isset($_GET['year']) && $_GET['year'] != "") {
	$cy = $_GET['year'];
}

$text = "{{กล่องปี|" . $cy . "|" . ($cy+1) . "|" . ($cy+2) . "|" . ($cy+3) . "|" . "0|" . ($cy-1) . "|" . ($cy-2) . "|" . ($cy-3) . "|" . "0|0|";
$cy2 = intval($cy/10)*10;
# B.C. decades
$text = $text . $cy2 . "|" . ($cy2+10) . "|" . ($cy2+20) . "|" . ($cy2+30) . "|" . "0|" . ($cy2-10) . "|" . ($cy2-20) . "|" . ($cy2-30) . "|" . "0|0|";
#A.D. decades
$cy2 = intval(($cy-543)/10)*10;
$text = $text . $cy2 . "|" . ($cy2+10) . "|" . ($cy2+20) . "|" . ($cy2+30) . "|" . "0|" . ($cy2-10) . "|" . ($cy2-20) . "|" . ($cy2-30) . "|" . "0|0|";
# $cy 3 Shortcut
$cy3 = intval(($cy-1)/100)+1;
# B.C. century
$text = $text . $cy3 . "|" . ($cy3+1) . "|" . "0|" . ($cy3-1) . "|" . "0|";
# A.D. century
$cy3 = ($cy-543);
$cy3 = intval(($cy-3)/100)+1;
$text = $text . ($cy3) . "|" . ($cy3+1) . "|" . "0|" . ($cy3-1) . "}}<br />";

#-------------------- DESCRIPTION ----------------------#
$text = $text . "'''พุทธศักราช " . $cy . "''' ใกล้เคียงกับ" . "<br />* เมษายน ค.ศ. " . ($cy - 543) . " - มีนาคม ค.ศ. " . ($cy - 542);
if($cy >= "621") {
 $text = $text .  "<br />*[[มหาศักราช]] " . ($cy -621);
}

#------------------ OTHER TOPIC -----------------------#
$text = $text . "<br />==เหตุการณ์==<br /><br />==วันเกิด==<br /><br />==วันถึงแก่กรรม==<br />";

#------------------ CATEGORY ----------------------#
$text = $text . "<br />[[Category:พ.ศ. " . $cy . "| ]]<br />";

#-------------------- XLang-Link ----------------------------#
$cy4 = $cy - 543;
$text = $text . "<br />[[af:" . $cy4 . "]]<br />[[ast:" . $cy4 . "]]<br />[[bg:" . $cy4 . "]]<br />[[bs:" . $cy4 . "]]<br />[[ca:" . $cy4 . "]]<br />[[cv:" . $cy4 . "]]

<br />[[cs:" . $cy4 . "]]<br />[[cy:" . $cy4 . "]]<br />[[da:" . $cy4 . "]]<br />[[de:" . $cy4 . "]]<br />[[en:" . $cy4 . "]]<br />[[et:" . $cy4 . "]]<br />[[el:" . $cy4 . 

"]]<br />[[es:" . $cy4 . "]]<br />[[eo:" . $cy4 . "]]<br />[[eu:" . $cy4 . "]]<br />[[fr:" . $cy4 . "]]<br />[[hr:" . $cy4 . "]]<br />[[io:" . $cy4 . "]]<br />[[it:" . $cy4 . 

"]]<br />[[lb:" . $cy4 . "]]<br />[[hu:" . $cy4 . "]]<br />[[mk:" . $cy4 . "]]<br />[[nl:" . $cy4 . "]]<br />[[no:" . $cy4 . "]]<br />[[nn:" . $cy4 . "]]<br />[[os:" . 

$cy4 . "]]<br />[[pl:" . $cy4 . "]]<br />[[pt:" . $cy4 . "]]<br />[[ro:" . $cy4 . "]]<br />[[ru:" . $cy4 . "]]<br />[[sk:" . $cy4 . "]]<br />[[sl:" . $cy4 . "]]<br />[[sr:" . 

$cy4 . "]]<br />[[fi:" . $cy4 . "]]<br />[[sv:" . $cy4 . "]]<br />[[tt:" . $cy4 . "]]<br />[[tr:" . $cy4 . "]]<br />[[uk:" . $cy4 . "]]";

echo $text;
?>