chibita_papa の回答履歴

いつも世話になっております。 個人事業主で青色申告です。 １００％業務に使用している車両にカーナビゲーションシステムを取り付けました。 本体＋取付け工賃＋消費税＝\２００，０００－です （本体＋工賃＝￥１９０，４７６－　消費税＝￥９，５２４－） どのような仕分けが最適でしょうか？ １、車両費で、ナビ取り付け整備　本体込み２０万円 ２、消耗品　カーナビ取付け工賃含む２０万円 ３、車両運搬器具に２０万円計上　減価償却 ４、工具器具備品に２０万円計上　減価償却 よろしくお願いします。

簿記を勉強している学生です。 売掛金と売上手形の会計処理上の違いは理解しています。 しかし、実務において、この使い分けはどうしているのでしょうか？ つまり、売り上げたときに相手は、 どのような場合に手形を振り出して、 どのような場合に振り出さないのでしょうか？（売掛金）

今年度から青色初心者です。 主人が自営なのですが、自動車ローンの銀行引落の勘定科目が分からず教えていただけたらと思います。 100％事業用で、今年度で減価償却終了です。 事業用通帳から毎月自動車ローンが引かれています。 減価償却で車両代を経費として計上しているので、 引落し分は、勘定科目何にすればよいのでしょうか。。 初歩的な質問で申し訳ありませんが 宜しくお願いいたします。

今年度から青色初心者です。 主人が自営なのですが、自動車ローンの銀行引落の勘定科目が分からず教えていただけたらと思います。 100％事業用で、今年度で減価償却終了です。 事業用通帳から毎月自動車ローンが引かれています。 減価償却で車両代を経費として計上しているので、 引落し分は、勘定科目何にすればよいのでしょうか。。 初歩的な質問で申し訳ありませんが 宜しくお願いいたします。

当方は法人ですが、外注で個人宛に仕事を依頼したところ、請求書が支払額に消費税をプラスしてきました。振込先口座名義は個人名です。この場合は消費税ではなく、個人扱いとして源泉税を引いた額を振り込み、当方で源泉処理をするのではないでしょうか？個人口座名義での個人事業主という扱いで消費税を加算してきたのでしょうか？教えてください。

Visual Basic６について質問です。 現在、テキストボックスが空白の場合そこに0が入るようにしているのですが以下のソースよりもっとスマートな制御法ってありますでしょうか？ For i = 0 To 2 If Text(i).Text = "" Then Text(i).Text = 0 End If Next i abc = Format(Text(0).Text, "0000") & Format(Text(1).Text, "00") & Format(Text(2).Text, "00")

モップのレンタル業に携わっています。棚卸でお客様から代金をいただかずに無償でお貸しするハンドル類も、数えて仕入単価をかけて計算しています。これは妥当なのでしょうか。私のイメージでは、仕入時に別の費用科目で計上しておしまい　という気がするのですが、よくわかりません。よろしくお願いします。

弥生青色申告２を使って作ったバックアップのフロッピーで　復元しようとしたのですが、途中で　復元元のファイルが壊れてます　と表示され　復元できません、ＯＳ入れ替えで初期化した為　フロッピーのデータしかありません 半年分以上入れなおすのは　大変で　凄く困ってます、どなたか　お教え頂けませんでしょうか。 データのバージョンは　ａｂ８です

弥生青色申告２を使って作ったバックアップのフロッピーで　復元しようとしたのですが、途中で　復元元のファイルが壊れてます　と表示され　復元できません、ＯＳ入れ替えで初期化した為　フロッピーのデータしかありません 半年分以上入れなおすのは　大変で　凄く困ってます、どなたか　お教え頂けませんでしょうか。 データのバージョンは　ａｂ８です

モップのレンタル業に携わっています。棚卸でお客様から代金をいただかずに無償でお貸しするハンドル類も、数えて仕入単価をかけて計算しています。これは妥当なのでしょうか。私のイメージでは、仕入時に別の費用科目で計上しておしまい　という気がするのですが、よくわかりません。よろしくお願いします。

収入印紙が必要かどうか教えてください。 勤め先の印刷会社で、お年玉付年賀ハガキに 絵柄・文字を印刷して販売しています。 あるお客様の領収証を発行しようとしたところ、 印刷代18,000円+ハガキ代20,000円=38,000円になりました。 当社の売り上げが30,000円に満たないので、 「20,000円は葉書代の立替金とする。」などと 但し書きをつければ収入印紙（200円？）は 貼らなくて良いとわたしは思ったのですが、 どうも去年までは貼っていたらしいのです。 郵便局で葉書を買っても収入印紙は貼っていませんよね？ もし貼ってあったとしたら、二重に印紙税を払うことになるし。 領収証を2枚にするのが妥当なのかしら？とも思ったりします。 どなたかおわかりの方教えてください。

モップのレンタル業に携わっています。棚卸でお客様から代金をいただかずに無償でお貸しするハンドル類も、数えて仕入単価をかけて計算しています。これは妥当なのでしょうか。私のイメージでは、仕入時に別の費用科目で計上しておしまい　という気がするのですが、よくわかりません。よろしくお願いします。

青色申告の超初心者です。やよいの青色申告 05で児童手当はどう記入するでしょうか？ 簡単入力には該当項目はないです。 児童手当は収入ではないですね。

初心者です。 フォームの右上にあるＸボタンが押された時に、 固有の処理（メッセージを出す）を行いたいのですが、Ｘボタンであることを認識する方法が分かりません。 ご教授をお願いいたします。 ※Me.Close()を、ボタンのClickイベント、テキストボックスのKeyDownイベントから行っています。 その時の処理と、Xボタンの時の処理を分けたいです。 ボタンの認識では、ActiveControlを使うようなことは分かったのですが。。

VB.NETでプロジェクトを作成すると、イベント型？ダイアログベースのプログラムになってしまうのですが、ダイアログ（フォーム）を用いないプログラムにするにはどうすればよいのでしょうか？ C言語でいうMain()から始まるプログラムにしたいのです。

あるプログラムで通常使うプリンタを切り替えると問題ないのですが、そのプログラムからプログラムを呼び出して、そのプログラムで通常使うプリンタを切り替えるとすごく時間がかかります（３０秒超） マシンのスペックやＯＳバージョンなどはほとんど影響していません。何が原因なんでしょうか。 解決よろしくお願いいたします。

VBA初心者です。 Application.InputBox(メソッド)で、キャンセルが選択されたら処理を終了し、数値が入力されたら計算をしたいのですが、ゼロを入力した場合にFalseと見なされて処理を終了してしまいます。ゼロを入力しても処理を続けるには、どのように記述すれば良いのでしょうか？よろしくお願いします。

いつものように、わからなくなりましたのでご教授をお願いします。 VB6.0でアクセス2003を使用しています。 社内での生産補助ソフトみたいなものを作っています。 パーツ名や、材質などをフォーム1で作って、アクセスに保存します。 その入力した一覧を見るために、データフォームウィザードだと簡単に見れると知り、 手順通りに作成しました。しかし、ロード時にNewキーワードの 使用が不正ですとなってしまいます(>_<) こんな感じです。 変更したのは、変数名ぐらいです。 Private Sub Form_Load() 'フォームロード Dim db As Connection '接続として Dim dbpath As String 'データベースのパス用 dbpath = wakasadb Set db = New Connection ' db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath & ";" Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select partname,xsize,ysize,kosuu from part Order by partname", db, adOpenStatic, adLockOptimistic Set grdDataGrid.DataSource = adoPrimaryRS mbDataChanged = False End Sub というのが、自動で出来上がったのですが、 Set db = New Connectionでストップします。 何が原因なのでしょうか(>_<) よろしくお願いします<(_ _)>

ＶＢ６．０でのＳＱＬは　理解しているのですが （アクセスのデータベース宣言して、使ってるんですが） エクセルでＳＱＬを　使うには、データベースの宣言など、必要らしい。 でも、エクセルのデータやら、文字列や式まで、混ざっているシートと、データベースが頭の中で一致せず、困っています。 ある範囲を宣言するんでしょうか

Text1に入力された文字からアルファベットの大文字のみをText2へ表示させたい(つまり記号、2バイト文字などは省き、小文字は大文字に変換)と考えています。 Dim Str as String 　　Str = Text1.text 　　Str = Trim(Str) 　　Str = Replace(Str, " ", "") 　　Str = Replace(Str, "　", "") 　　Str = Replace(Str, vbTab, "") 　　Str = Replace(Str, vbCrLf, "") スペース、タブ、改行は空白文字に置き換えることができたのですが、アルファベット以外の記号や小文字への変換、2バイト文字の扱い方などが思いつきません。 何か方法がありましたら、お教えください。