<?php
function to_lat_long($meshcode)
{
	$mesh = sscanf($meshcode, "%2d%2d%1d%1d%1d%1d%1d");
	if (count($mesh)<7){
		echo "invalid meshcode.";
		return 0;
	}
	
	$I = $mesh[0]*2400 + $mesh[2]*300 + $mesh[4]*30;
	$K = $mesh[1]*3600 + $mesh[3]*450 + $mesh[5]*45;
	
	$I = array(
		intval($I/3600),
		intval(($I%3600)/60),
		$I - intval($I/3600)*3600 - intval(($I%3600)/60)*60
		);
	
	$K = array(
		intval($K/3600) + 100,
		intval(($K%3600)/60),
		$K - intval($K/3600)*3600 - intval(($K%3600)/60)*60
		);
	
	if ($mesh[6]==3 || $mesh[6]==4){
		$I[2]+=15;
	}
	if ($mesh[6]==2 || $mesh[6]==4){
		$K[2]+=23;
	}
	
	
	return array($I, $K);
}


function to_mesh_code($ido=array(),$keido=array())
{
	$meshcode = '';

	if (count($ido)<3 || count($keido)<3){
		echo "invalid params";
		return 0;
	}
	
	$I = $latitude = $ido[0]*3600 + $ido[1]*60 + $ido[2];
	$K = $longitude = ($keido[0]-100)*3600 + $keido[1]*60 + $keido[2];
	
	$meshcode = sprintf("%d%d%d%d%d%d",
						substr(intval($I/2400+100), 1,2) ,
						substr(intval($K/3600+100), 1,2) ,
						intval(($I%2400)/300),
						intval(($K%3600)/450),
						intval((($I%2400)%300)/30),
						intval((($K%3600)%450)/45)
						);
	// 4次メッシュ
	list($i, $k) = to_lat_long($meshcode);
	$i_4 = $I - $i[0]*3600 - $i[1]*60 - $i[2];
	$k_4 = $K - ($k[0]-100)*3600 - $k[1]*60 - $k[2];
	if ($i_4>=15){
		$mesh_4 = ($k_4>=23) ? 4 : 3;
	} else {
		$mesh_4 = ($k_4>=23) ? 2 : 1;
	}
	
	return $meshcode.$mesh_4 ;
}


if (isset($_GET['to_mesh'])){
	$meshcode =  to_mesh_code($_GET['latitude'],$_GET['longitude']);
	$lat_0 = $_GET['latitude'][0];
	$lat_1 = $_GET['latitude'][1];
	$lat_2 = $_GET['latitude'][2];
	$long_0 = $_GET['longitude'][0];
	$long_1 = $_GET['longitude'][1];
	$long_2 = $_GET['longitude'][2];
}

if (isset($_GET['to_lat_long'])){
	$meshcode = $_GET['meshcode'];
	list($lat, $long) = to_lat_long($_GET['meshcode']);
	$lat_0 = $lat[0];
	$lat_1 = $lat[1];
	$lat_2 = $lat[2];
	$long_0 = $long[0];
	$long_1 = $long[1];
	$long_2 = $long[2];
}
?>
<form action="./meshcode.php">
<center>
緯度：
<input type="text" size="3" name="latitude[0]" value="<?=$lat_0?>">度
<input type="text" size="3" name="latitude[1]" value="<?=$lat_1?>">分
<input type="text" size="8" name="latitude[2]" value="<?=$lat_2?>">秒<br>
経度：
<input type="text" size="3" name="longitude[0]" value="<?=$long_0?>">度
<input type="text" size="3" name="longitude[1]" value="<?=$long_1?>">分
<input type="text" size="8" name="longitude[2]" value="<?=$long_2?>">秒
<br><br>
<input type="submit" name="to_mesh" value="メッシュコードへ">&nbsp;
<br><br><br>
メッシュコード：
<input type="text" size="18" name="meshcode" value="<?=$meshcode?>"><br><br>
<input type="submit" name="to_lat_long" value="緯度経度へ"><br><br>
</center>
</form>

<?php
var_dump(call_user_func_array("mktime", sscanf("2007-4-1 12:34:56", "%6$4d-%4$2d-%5$2d %1$2d:%2$2d:%3$2d")));
?>

<?php
var_dump(sscanf("2007-4-1 12:34:56", "%6$4d-%4$2d-%5$2d %1$2d:%2$2d:%3$2d"));
?>