FC2ブログ
最初
http://blog-imgs-36.fc2.com/a/m/a/amamiyaprog/ConvertLength1.txt

修正1 5/30

# 長さの単位変換 Convert Length
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 長さの単位変換 ($ConvertLength)
sub CONVERTLENGTH{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertLength = 0;
my $MeterA = 0;
my $MeterB = 0;

# 値の確認
if($Value <= 0){
return 0;
}

# $UnitAのメートル単位
$MeterA = &METER($UnitA);
# $UnitBのメートル単位
$MeterB = &METER($UnitB);

# 長さの単位変換 Convert Length
$ConvertLength = ($MeterA / $MeterB) * $Value;

return $ConvertLength;
}

# メートル単位 Meter
# 引数 単位 ($Unit)
# 戻り値 メートル単位 ($Meter)
sub METER{
my ($Unit) = @_;
my $MeterUnit = 0;
my %Meter = (
# メートル
"m" => 1,
# ナノメートル
"nm" => 0.000000001,
# マイクロメートル
"um" => 0.000001,
# ミリメートル
"mm" => 0.001,
# センチメートル
"cm" => 0.01,
# キロメートル
"km" => 1000,
# メガメートル
"Mm" => 1000000,
# ギガメートル
"Gm" => 1000000000,
# バーレイコーン
"bar" => 0.008467,
# インチ
"in" => 0.0254,
# フィート
"ft" => 0.3048,
# ヤード
"yd" => 0.9144,
# ポール
"pole" => 5.0292,
# チェーン
"chain" => 20.1168,
# ハロン
"furl" => 201.168,
# マイル
"ml" => 1609.344,
# リーグ
"lea" => 4828.032,
# 毛
"mou" => 0.0000303,
# 厘
"rin" => 0.000303,
# 分
"bu" => 0.00303,
# 寸
"sun" => 0.0303,
# 尺
"syaku" => 0.303,
# 鯨尺
"kujira" => 0.3787,
# 間
"ken" => 1.818,
# 丈
"jou" => 3.0303,
# 町
"chou" => 109.0909,
# 里
"ri" => 3927.2727,
# 光年
"ly" => 9460730472580800,
# 天文単位
"au" => 149598000000,
# パーセク
"pc" => 30856802500000000,
# 光ナノ秒
"lns" => 0.299792458,
# 光マイクロ秒
"lmis" => 299.792458,
# 光ミリ秒
"lms" => 299792.458,
# 光秒
"ls" => 299792458,
# 光分
"lm" => 17987547480,
# 光時
"lh" => 1079252848800,
# 光日
"ld" => 25902068371200,
# 光週
"lw" => 181314478598400,
# 光月
"lmo" => 777062051136000,
# オングストローム
"ang" => 1e-10,
# ポイント
"point" => 0.00035277777,
# パイカ
"pica" => 0.00423333333,
# 海里
"nmi" => 1852,
# 口径
"cal" => 0.0254
);

# ハッシュの確認
if(exists($Meter{$Unit}) == 0){
return 0;
}

# メートル単位 Meter
$MeterUnit = $Meter{$Unit};

return $MeterUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
メートル - Wikipedia
ヤード・ポンド法 - Wikipedia
尺貫法 - Wikipedia
光秒 - Wikipedia
海里 - Wikipedia
単位の換算一覧 - Wikipedia

一言
エクセルのパイカ CONVERT(1,"Pica","m") = 0.000352778
Googleのパイカ 1pica*1m - Google 検索 = 0.00423333333
単位の意味を知らないので違いが分からん

修正1
ハッシュに変更
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS