60進数の四則計算

Question

いつもお世話になります。
煮詰まっております。いい方法をご教授頂けたらと思います。

小数点以上は10進数、小数点以下(2桁まで）を60進数で表す数値があります。

１.３０
↑↑↑
｜｜－６０進数
　－区切り
－１０進数


このように表す数の四則計算をして、足し算は問題なく出来ます。

それ以外を計算する方法がうまくいきません。
一度数を１０進に戻して・・・と思ったのですが、繰り上がり等でおかしくなっています。

期待値は
６.３０×１.３０＝９.４５
８.００÷２.００＝４.００
などです。

よろしくご教授くださいますようお願い致します。

TAGOSAKU7 · Accepted Answer

'パラ１・パラ２に値
'パラ３は０～３までの値（＋－×÷）
Function TimeCalc(inSng1 As Single, inSng2 As Single, inMode As Byte) As Single
　　Dim sngCalc As Single
　　Dim strWk　 As String
　　
　　Dim sngWk1　As Single
　　Dim sngWk2　As Single

　　sngWk1 = Convert10(inSng1)
　　sngWk2 = Convert10(inSng2)
　　
　　Select Case inMode
　　　　Case 0: sngCalc = sngWk1 + sngWk2
　　　　Case 1: sngCalc = sngWk1 - sngWk2
　　　　Case 2: sngCalc = (sngWk1 * sngWk2) / 100
　　　　Case 3: sngCalc = (sngWk1 / sngWk2) * 100
　　End Select
　　
　　TimeCalc = (sngCalc \ 100) & "." & Format(((sngCalc Mod 100) * 60 / 100), "00")
End Function

'一次変換用
Function Convert10(inSng As Single) As Single
　　Dim strWk　 As String
　　
　　strWk = Right(Format(inSng, "#.#0"), 2)
　　Convert10 = CSng(Int(inSng) & (CSng(strWk) / 60 * 100))
End Function

imogasi · Answer

＞煮詰まっております－－－＞行き詰まっております。の
間違いでは。
＞60進数で表す数値－－－－＞６０進数ではないでしょう。時間の分などが背景にあるのでしょうが、６０進数とは６０個の文字を使うはず。
２進数－－－＞０，１の２個
８進数－－－＞０－７の８個。ここらまではアラビア数字
で事足りる。
１６進数－－－＞０－９の１０個とA-Fの６個の計１６文字で表す。A-Fは慣行。
６０進数は６０文字要るはず。
「時間と分を表す数字（１０進数）があります」で良いのでは。（１）文字列の場合と（２）仮に小数点以上＋．＋小数点以下の２桁（＝＜０．６０）で表す場合、（３）１日を１という値で表すなどがありますが。
回答そのものではないのですみませんが、気になったので
。間違っていたら教えてください。時間・分の加減は私は
ヴェクトルの加減に近いと思ってます。
（１，２０）＋（２，３０）＝（３，５０）
分の要素に時間への繰り上がりがありますが。

a0123456789 · Answer

この数値が時間を示していて(整数部が時間、小数部２桁が分)を示しているのでしたら、全部一度　分に直して(整数部×６０＋小数部×１００）四則演算を行い、
その後、結果を６０で割り、余りを１００で割った値と商を足せば(商＋余り／１００)求める答えが出ると思います。
　但し、足し算,引き算及び整数の掛け算は全て意味のある数値でしょうが、割り算及び小数を乗数に持ってくる計算に関しては一部意味不明の解となると思いますが...(あくまでもこの数値が時間を表していると仮定した場合、この場合割り算の結果については普通に計算した方が意味のある数値となると思います。)

noname#9414 · Answer

速度が出るかどうかは分かりませんが・・・
0.s=1.30等の値
1.整数値は、そのままの値として計算するので、floor関数とかで小数点以下を切り捨てる。(とりあえず、xという変数)
2.小数点以下の数字は、s-xで求めることが可能なので、それを10進数に戻してやれば、あとは、単純な足し算でできるのでは、ないでしょうか？((s-x)/60が10進数で少数を表したものになるはず)

間違いがありましたらご指摘ください。
ではでは☆

yotta · Answer

小数点以下の数値を６０で割って１０進数の小数点として計算し
計算後小数点以下を６０を掛けて６０進数に戻す

例では
６.３０×１.３０＝９.４５ 
30÷60＝0.5 なので
６．５×１．５＝９．７５
0.75×60＝45 となり答えは ９.４５

８.００÷２.００＝４.００ 
は小数点以下がないのでこのままでよい

60進数の四則計算

'パラ１・パラ２に値

＞煮詰まっております－－－＞行き詰まっております。

この数値が時間を示していて(整数部が時間、小数部２桁が分)を示しているのでしたら、全部一度 分に直して(整数部×６０＋小数部×１００）四則演算を行い、

速度が出るかどうかは分かりませんが・・・

小数点以下の数値を６０で割って１０進数の小数点として計算し

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

この数値が時間を示していて(整数部が時間、小数部２桁が分)を示しているのでしたら、全部一度　分に直して(整数部×６０＋小数部×１００）四則演算を行い、