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

修正1 5/30

# 体積の単位変換 Convert Volume
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 体積の単位変換 ($ConvertVolume)
sub CONVERTVOLUME{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertVolume = 0;
my $CubicMeterA = 0;
my $CubicMeterB = 0;

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

# $UnitAの立方メートル単位
$CubicMeterA = &CUBICMETER($UnitA);
# $UnitBの立方メートル単位
$CubicMeterB = &CUBICMETER($UnitB);

# 体積の単位変換 Convert Volume
$ConvertVolume = ($CubicMeterA / $CubicMeterB) * $Value;

return $ConvertVolume;
}

# 立方メートル単位 Cubic Meter
# 引数 単位 ($Unit)
# 戻り値 立方メートル単位 ($CubicMeter)
sub CUBICMETER{
my ($Unit) = @_;
my $CubicMeterUnit = 0;
my %CubicMeter = (
# 立方メートル
"m" => 1,
# 立方ミリメートル
"mm" => 0.000000001,
# 立方センチメートル
"cm" => 0.000001,
# 立方キロメートル
"km" => 1000000000,
# 立方メガメートル
"Mm" => 1000000000000000000,
# リットル
"L" => 0.001,
# ナノリットル
"nL" => 0.000000000001,
# マイクロリットル
"uL" => 0.000000001,
# ミリリットル
"mL" => 0.000001,
# センチリットル
"cL" => 0.00001,
# デシリットル
"dL" => 0.0001,
# キロリットル
"kL" => 1,
# メガリットル
"ML" => 1000,
# 立法インチ
"in" => 0.000016387064,
# 立法フィート
"ft" => 0.0283168466,
# 立法ヤード
"yd" => 0.764554858,
# 立法チェーン
"chain" => 8140.98013,
# 立法ハロン
"furl" => 8140980.13,
# 立法マイル
"ml" => 4168181830,
# 立法リーグ
"lea" => 171508919616,
# ドラム (英)
"uk/dram" => 0.0000036966911953125,
# ドラム (米)
"us/dram" => 0.0000035516328125,
# 液量オンス(英)
"uk/oz" => 0.0000284130625,
# 液量オンス(米)
"us/oz" => 0.0000295735295625,
# ジル(英)
"uk/gill" => 0.000142,
# ジル(米)
"us/gill" => 0.00012,
# パイント(英)
"uk/pint" => 0.00056826125,
# パイント(米液量)
"us/pintF" => 0.000473176473,
# パイント(米乾量)
"us/pintD" => 0.0005506104713575,
# クォート(英)
"uk/quart" => 0.0011365225,
# クォート(米液量)
"us/quartF" => 0.000946352,
# クォート(米乾量)
"us/quartD" => 0.00110122,
# ガロン(英)
"uk/gal" => 0.00454609,
# ガロン(米液量)
"us/galF" => 0.003785411784,
# ガロン(米乾量)
"us/galD" => 0.004404842803,
# ペック(英)
"uk/peck" => 0.00909218,
# ペック(米)
"us/peck" => 0.00880977,
# ケニング(英)
"uk/ken" => 0.01818436,
# ケニング(米)
"us/ken" => 0.01761954,
# ブッシェル(英)
"uk/bsh" => 0.03636872,
# ブッシェル(米)
"us/bsh" => 0.03523907017,
# ファーキン
"fir" => 0.01761954,
# キルダーキン
"kil" => 0.08182962,
# バレル(石油用バレル)
"bbl" => 0.158987294928,
# バレル(米液量バレル)
"us/bblF" => 0.119240471196,
# バレル(標準乾量バレル)
"us/bblD" => 0.1156,
# ホッグズヘッド
"hog" => 0.24548886,
# クォーター
"qua" => 0.29094976,
# 立方分
"bu" => 0.0000000278264741,
# 立方寸
"sun" => 0.0000278264741,
# 立方尺
"syaku" => 0.0278264741,
# 立方間
"ken" => 6.01051841,
# 立方丈
"jou" => 27.8264741,
# 立方町
"chou" => 1298271.98,
# 立方里
"ri" => 60572177300,
# 弗
"futsu" => 0.00000018039,
# 才
"sai" => 0.0000018039,
# 勺
"syaku" => 0.000018039,
# 合
"gou" => 0.00018039,
# 升
"syoy" => 0.0018039,
# 斗
"to" => 0.018039,
# 石
"koku" => 0.18039,
# 東京ドーム
"tokyo" => 1240000,
# ティースプーン
"tsp" => 0.000005,
# ティースプーン (英)
"uk/tsp" => 0.00000591939047,
# ティースプーン (米)
"us/tsp" => 0.000004929994084,
# ティースプーン
"table" => 0.000015,
# ティースプーン (英)
"uk/table" => 0.000017.7581714,
# ティースプーン (米)
"us/table" => 0.0000147867648,
# 計量カップ
"cup" => 0.0002,
# 計量カップ (米)
"us/cup" => 0.0002365882365,
# ボードフィート
"FBM" => 0.002359737216
);

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

# 立方メートル単位 Cubic Meter
$CubicMeterUnit = $CubicMeter{$Unit};

return $CubicMeterUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
立方メートル - Wikipedia
リットル - Wikipedia
ヤード・ポンド法 - Wikipedia
尺貫法 - Wikipedia
単位の換算一覧 - Wikipedia

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

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

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

検索フォーム


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