こんばんわ。
vb6使用で、色々探してみたのですが、わかりませんでした。
12313133→そのまま
9797879797977896→9797977896
121212→そのまま
等を10桁に変換する関数です。
If IsNumeric(val) Then
val = Format(val, "##########")
endif
これで10桁にできないのですが、正しい方法を教えてほしいです。
同様に
111.938
を
11.9(3は四捨五入)
にする方法も、##.0ではないでしょうか?
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
10桁ぞろえの場合
tmp = Right( Format( tmp, "#" ), nLen )
を
tmp = Right( Format( tmp, "#0" ), nLen )
少数の場合
Right(format( 111.938, "#0.0"),4)
としてみてください
No.1
- 回答日時:
10桁の桁あわせはCDecとRightを組み合わせてやる方法でしょう
Function Dec2Str( ss as String, nLen as Integer) as string
dim tmp as Variant
tmp = CDec( ss )
tmp = Right( Format( tmp, "#" ), nLen )
Dec2Str = tmp
End Function
##.0では出来ません
Right(format( 111.938, "#.0"),4)
といった具合でしょう
ありがとうございます。
10桁の例で、0の場合が空白になってしまうのは、他のコード追加で、
対処した方がよさそうでしょうか。
少数点の、0.1の場合、.1 になってしまうのも同様でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- その他(プログラミング・Web制作) ColabでのPytorchのエラー 1 2022/11/19 20:51
- C言語・C++・C# C++のcinの動作 5 2023/02/26 00:13
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Ruby vscode 文字化け 1 2022/05/21 19:17
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- 統計学 機械学習(最適化問題)のプログラムで、以下の2つの関数がどんな関数なのかご存知の方はおりますか? d 5 2022/06/23 00:35
- C言語・C++・C# leetcode 155 minstack 1 2022/05/07 16:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VB6でユーザー定義型がNothingかどうか調べるには?
Visual Basic(VBA)
-
DoEventsがやはり分からない
Visual Basic(VBA)
-
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
Visual Basic(VBA)
-
-
4
VB6.0 のformat関数について
Visual Basic(VBA)
-
5
コンパイルエラー:ユーザ定義型は定義されていません、と出るのですがどのライブラリファイルかわかりません。
Visual Basic(VBA)
-
6
VB6 配列を初期化したい
Visual Basic(VBA)
-
7
Visual Basicから Spreadのスクロールを制御する方法
Visual Basic(VBA)
-
8
VB6.0でテキストボックスの書式設定をしたいのですが、
Visual Basic(VBA)
-
9
CloseとDisposeの違い
Visual Basic(VBA)
-
10
VBの「As String * 128」とは?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
n進数の値を10進数の値に変換す...
-
VB6.0の「vbFromUnicode」はVB....
-
文字型を日付/時刻型に変換する...
-
対数変換のついて
-
ASPでVBのFormat関数のような機...
-
c++ CString char* BSTR textbo...
-
C#でListとDictionaryの判別方法
-
Boolean型変数の値を反転する方法
-
2進数から10進数へ変換
-
VBA 変数名に変数を使用したい。
-
INT64対応のprintf系関数はあり...
-
VBとアクセスでSQL文に変...
-
DataTableに特定のフィールドが...
-
C#でbyte配列から画像を表示さ...
-
EXCEL VBAの課題です
-
CSVファイルのエクスポートでソ...
-
エクセルでXY座標に並べられた...
-
vba フィルター 複数条件 3つ以...
-
VBAでアクセスDBからデータの取...
-
コンボボックスのインデックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6.0の「vbFromUnicode」はVB....
-
VB.NETで1→A、2→B、26→Z、27→AA...
-
C++ 文字列変数と16進数の比較
-
16進をASCIIコードに変換する...
-
バイト型のデータをLong型に変換
-
16進コード文字列を文字列に変換
-
WORD型をCString型に変換する方法
-
textbox.textやlabel.captionの...
-
2の補数の計算について
-
Boolean型変数の値を反転する方法
-
vb6の桁数指定
-
VC++ std::stringからLPCWSTRに...
-
VB6.0 String型→Long型変換方法...
-
n進数の値を10進数の値に変換す...
-
【C++/CLI】int型からString型...
-
エクセルでメールヘッダーを解...
-
C#でListとDictionaryの判別方法
-
2進数から10進数へ変換
-
VB6 case文について
-
文字型を日付/時刻型に変換する...
おすすめ情報