いつもお世話になります。
煮詰まっております。いい方法をご教授頂けたらと思います。
小数点以上は10進数、小数点以下(2桁まで)を60進数で表す数値があります。
1.30
↑↑↑
||-60進数
-区切り
-10進数
このように表す数の四則計算をして、足し算は問題なく出来ます。
それ以外を計算する方法がうまくいきません。
一度数を10進に戻して・・・と思ったのですが、繰り上がり等でおかしくなっています。
期待値は
6.30×1.30=9.45
8.00÷2.00=4.00
などです。
よろしくご教授くださいますようお願い致します。
No.1ベストアンサー
- 回答日時:
'パラ1・パラ2に値
'パラ3は0~3までの値(+-×÷)
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
いつも素早いご回答ありがとうございます。
TAGOSAKU7さんのご回答でうまくいきました。
片側が小数点以下が0の時のみ分岐を追加しました。
(*100しました)
理由:
3.00/1.3
などの時、小数点以下を0としてしまうため。
No.5
- 回答日時:
>煮詰まっております--->行き詰まっております。
の間違いでは。
>60進数で表す数値---->60進数ではないでしょう。時間の分などが背景にあるのでしょうが、60進数とは60個の文字を使うはず。
2進数--->0,1の2個
8進数--->0-7の8個。ここらまではアラビア数字
で事足りる。
16進数--->0-9の10個とA-Fの6個の計16文字で表す。A-Fは慣行。
60進数は60文字要るはず。
「時間と分を表す数字(10進数)があります」で良いのでは。(1)文字列の場合と(2)仮に小数点以上+.+小数点以下の2桁(=<0.60)で表す場合、(3)1日を1という値で表すなどがありますが。
回答そのものではないのですみませんが、気になったので
。間違っていたら教えてください。時間・分の加減は私は
ヴェクトルの加減に近いと思ってます。
(1,20)+(2,30)=(3,50)
分の要素に時間への繰り上がりがありますが。
No.4
- 回答日時:
この数値が時間を示していて(整数部が時間、小数部2桁が分)を示しているのでしたら、全部一度 分に直して(整数部×60+小数部×100)四則演算を行い、
その後、結果を60で割り、余りを100で割った値と商を足せば(商+余り/100)求める答えが出ると思います。
但し、足し算,引き算及び整数の掛け算は全て意味のある数値でしょうが、割り算及び小数を乗数に持ってくる計算に関しては一部意味不明の解となると思いますが...(あくまでもこの数値が時間を表していると仮定した場合、この場合割り算の結果については普通に計算した方が意味のある数値となると思います。)
ご回答ありがとうございます。
初めはその方法でしていたのですが、除算乗算でうまくいかなくなってしまったのです。(繰り上がりの問題?)
将来的には、十進などと入力値を切り替える事ができるようにしたいので、
今回あえてこのような方法をとっております。
No.3
- 回答日時:
速度が出るかどうかは分かりませんが・・・
0.s=1.30等の値
1.整数値は、そのままの値として計算するので、floor関数とかで小数点以下を切り捨てる。(とりあえず、xという変数)
2.小数点以下の数字は、s-xで求めることが可能なので、それを10進数に戻してやれば、あとは、単純な足し算でできるのでは、ないでしょうか?((s-x)/60が10進数で少数を表したものになるはず)
間違いがありましたらご指摘ください。
ではでは☆
ご回答ありがとうございます。
floor関数知りませんでした~(恥ずかしい)
数値をString型にキャスト
↓
Instr関数で小数点を見つける
↓
Left関数で先頭から小数点前までを取得
↓
数値型にキャスト
なんてしてました。超ムダをしまくりです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで60進法計算の仕方を教えてください
数学
-
60進法で複数セルの足し算、引き算の方法を教えて下さい。
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
65536は2の何乗なのでしょうか?
-
VBAの再計算が反映されない件に...
-
EXCELなどで「返す」という表現
-
変化させるセルが変化しない
-
排他的論理和 BCC(水平パリテ...
-
バッチファイルでウインドウを...
-
Visual C++でdebugとreleaseで...
-
モジュラス103の計算とは何でし...
-
ExcelのマクロVBA動作を軽くす...
-
VBAで関数をつくる
-
CとFORTRANの計算速度はどちら...
-
VBAでの勤務時間計算
-
PHPとJavaでSHA256の結果を同じ...
-
傾いた四角形内の範囲の条件式
-
エクセルで特定のセルのみを任...
-
モジュロ
-
VBでReplace
-
継承元と継承先での変数
-
計算量の少ないn乗根の求め方
-
CRC8を教えてください
おすすめ情報