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

修正1 5/30

# 重さの単位変換 Convert Weight
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 重さの単位変換 ($ConvertWeight)
sub CONVERTWEIGHT{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertWeight = 0;
my $GramA = 0;
my $GramB = 0;

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

# $UnitAのグラム単位
$GramA = &GRAM($UnitA);
# $UnitBのグラム単位
$GramB = &GRAM($UnitB);

# 重さの単位変換 Convert Weight
$ConvertWeight = ($GramA / $GramB) * $Value;

return $ConvertWeight;
}

# グラム単位 Gram
# 引数 重さ 単位 ($Weight, $Unit)
# 戻り値 グラム単位 ($Gram)
sub GRAM{
my ($Unit) = @_;
my $GramUnit = 0;
my %Gram = (
# グラム
"g" => 1,
# ナノグラム
"ng" => 0.000000001,
# マイクログラム
"mcg" => 0.000001,
# ミリグラム
"mg" => 0.001,
# センチグラム
"cg" => 0.01,
# キログラム
"kg" => 1000,
# メガグラム
"Mg" => 1000000,
# ギガグラム
"Gg" => 1000000000,
# グレーン
"gr" => 0.06479891,
# ドラム
"dra" => 1.7718451953125,
# ポンド (常衡)
"lb" => 453.59237,
# オンス (常衡)
"oz" => 28.3495231,
# ストーン (英)
"stone" => 6350.29318,
# クォーター (英)
"l/qua" => 12700.58636,
# クォーター (米)
"s/qua" => 11339.80925,
# ハンドレッドウェイト (英)
"l/cwt" => 50802.34544,
# ハンドレッドウェイト (英)
"s/cwt" => 45359.237,
# トン (英)
"l/t" => 1016046.9088,
# トン (米)
"s/t" => 907184.74,
# 毛
"mou" => 0.00375,
# 厘
"rin" => 0.0375,
# 分
"bu" => 0.375,
# 匁
"mom" => 3.75,
# 両
"ryo" => 37.5,
# 斤
"kin" => 600,
# 貫
"kan" => 3750,
# トロイポンド
"tp" => 373.2417216,
# トロイオンス
"toz" => 31.1034768,
# カラット
"ct" => 0.2,
# トン
"t" => 1000000,
# スラグ
"sg" => 14.593903,
# 原子質量単位
"u" => 1.66053886e-024
);

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

# グラム単位 Gram
$GramUnit = $Gram{$Unit};

return $GramUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
キログラム - Wikipedia
ヤード・ポンド法 - Wikipedia
尺貫法 - Wikipedia
トロイオンス - Wikipedia
単位の換算一覧 - Wikipedia

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

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

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

検索フォーム


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