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

修正1

# 力の単位変換 Convert Force
# 引数 値 単位A 単位B ($Value, $UnitA, $UnitB)
# 戻り値 力の単位変換 ($ConvertForce)
sub CONVERTFORCE{
my ($Value, $UnitA, $UnitB) = @_;
my $ConvertForce = 0;
my $NewtonA = 0;
my $NewtonB = 0;

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

# $UnitAのニュートン単位
$NewtonA = &NEWTON($UnitA);
# $UnitBのニュートン単位
$NewtonB = &NEWTON($UnitB);

# 力の単位変換 Convert Force
$ConvertForce = ($NewtonA / $NewtonB) * $Value;

return $ConvertForce;
}

# ニュートン単位 Newton
# 引数 単位 ($Unit)
# 戻り値 ニュートン単位 ($Newton)
sub NEWTON{
my ($Unit) = @_;
my $NewtonUnit = 0,
my %Newton = (
# ニュートン
"N" => 1,
# マイクロニュートン
"uN" => 0.000001,
# ミリニュートン
"mN" => 0.001,
# キロニュートン
"kN" => 1000,
# メガニュートン
"MN" => 1000000,
# ダイン
"dyn" => 0.00001,
# メガダイン
"Mdyn" => 10,
# 重量キログラム
"kgf" => 9.80665,
# 重量グラム
"gf" => 0.00980665,
# 重量オンス
"ozf" => 0.2780138509537812,
# 重量ポンド
"lbf" => 4.4482216152605,
# 重量キップ
"kipf" => 4448.2216152605,
# 重量トン
"tnf" => 8896.443230521,
# 力の原子単位
"au" => 0.00000008238722241,
# パウンダル
"pdl" => 0.138254954376,
# ステーヌ
"sn" => 1000
);

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

# ニュートン単位 Newton
$NewtonUnit = $Newton{$Unit};

return $NewtonUnit;
}


参考URL
CONVERT - Excel - Microsoft Office Online
ニュートン - Wikipedia
単位の換算一覧 - Wikipedia
計量単位一覧 - Wikipedia

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

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

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

検索フォーム


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