okamura – ページ 37 – テックメモ

2017-05-082017-05-08

C# VBA 年月日フォルダ自動生成(会員数保存) 作りかけ

少し試作を作り始めたが、方向性が変わったため。

Form1.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace 会員数保存
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();

            this.comboBox1.Items.Add("2017");
            this.comboBox1.Items.Add("2018");

            for (int i = 1; i <= 12; i++ )
            {
                this.comboBox2.Items.Add(
                    string.Format("{0:00}",i)
                    );
            }

            this.comboBox1.Text = DateTime.Today.ToString("yyyy");
            this.comboBox2.Text = DateTime.Today.ToString("MM");

            this.button1.Click += new EventHandler(MakeFolder);

        }

        private void MakeFolder(object sender, EventArgs e)
        {
            try
            {
                DateTime.Parse(comboBox1.Text + "/" + comboBox2.Text + "/01");

                if(System.IO.File.Exists(Application.StartupPath + @"\dat.txt"))
                {
                    MessageBox.Show("既にdat.txtが存在します。中止します。");
                    return;
                }

                string[] directories = System.IO.Directory.GetDirectories(Application.StartupPath);

                if (directories.Length > 0)
                {
                    MessageBox.Show("既に同一階層にフォルダが存在します。中止します。");
                    return;
                }

                string targetPath = Application.StartupPath + "/" + comboBox1.Text + comboBox2.Text;
                System.IO.Directory.CreateDirectory(targetPath);

                DateTime FromDate = DateTime.Parse(comboBox1.Text + "/" + comboBox2.Text + "/01");
                DateTime ToDate = FromDate.AddMonths(1);
                ToDate = ToDate.AddDays(-1);

                while(FromDate <= ToDate)
                {
                    System.IO.Directory.CreateDirectory(targetPath + "/" + FromDate.ToString("dd"));
                    FromDate = FromDate.AddDays(1);
                }

                using(System.IO.StreamWriter sw = new System.IO.StreamWriter(
                    Application.StartupPath + @"\dat.txt",false,System.Text.Encoding.GetEncoding("Shift_Jis")))
                {
                    sw.Write(comboBox1.Text + "\r\n" + comboBox2.Text + "\r\n" + ToDate.ToString("dd"));
                    sw.Close();
                }

            }
            catch (Exception exp)
            {
                MessageBox.Show(exp.Message);
                return;
            }

            MessageBox.Show("フォルダを作成しました。");

        }
    }
}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

using System.Windows.Forms;

namespace 会員数保存

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.comboBox1.Items.Add("2017");

this.comboBox1.Items.Add("2018");

for (int i = 1; i <= 12; i++ )

{

this.comboBox2.Items.Add(

string.Format("{0:00}",i)

);

}

this.comboBox1.Text = DateTime.Today.ToString("yyyy");

this.comboBox2.Text = DateTime.Today.ToString("MM");

this.button1.Click += new EventHandler(MakeFolder);

}

private void MakeFolder(object sender, EventArgs e)

{

try

{

DateTime.Parse(comboBox1.Text + "/" + comboBox2.Text + "/01");

if(System.IO.File.Exists(Application.StartupPath + @"\dat.txt"))

{

MessageBox.Show("既にdat.txtが存在します。中止します。");

return;

}

string[] directories = System.IO.Directory.GetDirectories(Application.StartupPath);

if (directories.Length > 0)

{

MessageBox.Show("既に同一階層にフォルダが存在します。中止します。");

return;

}

string targetPath = Application.StartupPath + "/" + comboBox1.Text + comboBox2.Text;

System.IO.Directory.CreateDirectory(targetPath);

DateTime FromDate = DateTime.Parse(comboBox1.Text + "/" + comboBox2.Text + "/01");

DateTime ToDate = FromDate.AddMonths(1);

ToDate = ToDate.AddDays(-1);

while(FromDate <= ToDate)

{

System.IO.Directory.CreateDirectory(targetPath + "/" + FromDate.ToString("dd"));

FromDate = FromDate.AddDays(1);

}

using(System.IO.StreamWriter sw = new System.IO.StreamWriter(

Application.StartupPath + @"\dat.txt",false,System.Text.Encoding.GetEncoding("Shift_Jis")))

{

sw.Write(comboBox1.Text + "\r\n" + comboBox2.Text + "\r\n" + ToDate.ToString("dd"));

sw.Close();

}

catch (Exception exp)

{

MessageBox.Show(exp.Message);

return;

}

MessageBox.Show("フォルダを作成しました。");

}

VBA

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("会員数をフォルダから取得").Delete

With Application.CommandBars("cell").Controls.Add
.OnAction = "main"
.Caption = "会員数をフォルダから取得"
End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("会員数をフォルダから取得").Delete
Application.CommandBars("cell").Controls("会員数をフォルダから取得").Delete

End Sub

Sub main()

On Error GoTo e

targetPath = ThisWorkbook.Path & "\dat.txt"

If Dir(targetPath) = "" Then

  MsgBox "dat.txtが存在しません。終了します。"
  Exit Sub

End If

Open targetPath For Input As #1
  Line Input #1, y
  Line Input #1, m
  Line Input #1, d
Close #1

For i = 1 To d

  targetPath = ThisWorkbook.Path & "/" & y & m & "/" & Format(i, "00")
  
  If Dir(targetPath) = "" Then
  
    MsgBox targetPath & "が存在しません。終了します。"
    Exit Sub
  
  End If
  
  ActiveSheet.Cells(i + 1, 1).Value = y & "/" & m & "/" & Format(i, "00")
  'ActiveSheet.Cells(i + 1, 1).Font.Color = RGB(255, 0, 0)
  'ActiveSheet.Cells(i + 1, 2).Value = ActiveSheet.Cells(i, 2).Value
  'ActiveSheet.Cells(i + 1, 3).Value = ActiveSheet.Cells(i, 3).Value

Next i

Exit Sub

e:

MsgBox "エラーが発生しています。"

End Sub

Sub initialize()

ActiveSheet.Cells.Delete
ActiveSheet.Columns("A").NumberFormatLocal = "yyyy/mm/dd"
ActiveSheet.Cells(1, 1).Value = "日付"
ActiveSheet.Cells(1, 2).Value = "新規"
ActiveSheet.Cells(1, 3).Value = "更新"

End Sub

Sub finalize()

ActiveSheet.Columns.AutoFit

End Sub

Sub auto_open()

On Error Resume Next

Application.CommandBars("cell").Controls("会員数をフォルダから取得").Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "main"

.Caption = "会員数をフォルダから取得"

End With

End Sub

Sub auto_close()

On Error Resume Next

Application.CommandBars("cell").Controls("会員数をフォルダから取得").Delete

End Sub

Sub main()

On Error GoTo e

targetPath = ThisWorkbook.Path & "\dat.txt"

If Dir(targetPath) = "" Then

MsgBox "dat.txtが存在しません。終了します。"

Exit Sub

End If

Open targetPath For Input As #1

Line Input #1, y

Line Input #1, m

Line Input #1, d

Close #1

For i = 1 To d

targetPath = ThisWorkbook.Path & "/" & y & m & "/" & Format(i, "00")

If Dir(targetPath) = "" Then

MsgBox targetPath & "が存在しません。終了します。"

Exit Sub

End If

ActiveSheet.Cells(i + 1, 1).Value = y & "/" & m & "/" & Format(i, "00")

'ActiveSheet.Cells(i + 1, 1).Font.Color = RGB(255, 0, 0)

'ActiveSheet.Cells(i + 1, 2).Value = ActiveSheet.Cells(i, 2).Value

'ActiveSheet.Cells(i + 1, 3).Value = ActiveSheet.Cells(i, 3).Value

Next i

Exit Sub

MsgBox "エラーが発生しています。"

End Sub

Sub initialize()

ActiveSheet.Cells.Delete

ActiveSheet.Columns("A").NumberFormatLocal = "yyyy/mm/dd"

ActiveSheet.Cells(1, 1).Value = "日付"

ActiveSheet.Cells(1, 2).Value = "新規"

ActiveSheet.Cells(1, 3).Value = "更新"

End Sub

Sub finalize()

ActiveSheet.Columns.AutoFit

End Sub

2017-05-022020-05-04

簿記本支店会計

４対外の取引ではなく本店と支店や支店同士の取引。
本来本店で会計が原則、支店でも独自の会計処理をさせ貸借対照表を作ること。

内部取引

照合勘定
本店＝支店勘定（借方残高）
支店＝本店勘定（貸方残高）

２つの勘定は貸借対照表で必ず一致

例）
本店から支店に現金１５００を送付

本店
支店　１５００　｜　現金　１５００
支店
現金　１５００　｜　本店　１５００

例）
支店が本店の営業費５００を立替、現金で支払った。

本店
営業費　５００　｜　支店　５００
支店
本店　５００　｜　現金５００

例）
支店が本店の買掛金８００を立替、現金で支払った。

本店
買掛金　８００　｜　支店　８００
支店
本店　８００　｜　現金　８００

例）
本店は支店の売掛金を３００を現金で回収した。

本店
現金　３００　｜　支店　３００
支店
本店　３００　｜　売掛金　３００

商品の発送取引

本支店間でも仕入原価に利益を加算して発送することがある。
ただ普通の利益ではないので特別な勘定科目で処理する。

（本店）
仕入　２０００　｜　買掛金　２０００
支店　２４００　｜　支店へ売上　２４００
（支店）
仕訳無し
本店より仕入　２４００　｜　本店　２４００

内部で利益を付けることで本店、支店で利益を配分することができる。

支店が複数ある場合

支店分散計算制度
照合勘定は、相手方の支店名となる。デメリットは本店が支店間の取引を直接把握できなくなる。

本店集中計算制度
支店同士の取引を支店と本店との取引として処理する。
支店は本店勘定を利用。本店は各支店の勘定を利用。本店の手間が増える。

例）
支店同士の現金の取引の場合。
A支店からB支店へ２０００を送付した。

（本店）
現金　２０００　｜　A支店　２０００
B支店　２０００　｜　現金　２０００
※相殺する
B支店　２０００　｜　A支店　２０００
（A）
本店　２０００　｜　現金　２０００
（B）
現金　２０００　｜　本店　２０００

合併財務諸表

本店支店で個別に内部用に財務諸表を作る。外部向けには１つ合併したものが必要。

未達取引整理、内部取引の相殺、内部利益の控除が重要。

未達取引
一方が仕訳しているけど、もう一方が仕訳をする前の場合。
処理の遅れている側が未達処理の整理をする必要がある。（決算日の日付で処理をしてしまう）

例）
支店に３０００送付。決算時、未達
（本店）
支店　３０００　｜　現金　３０００
（支店）
決算時仕訳無し。
現金　３０００　｜　本店　３０００　（決算時にこの仕訳）

本店は商品を１５００を発送。支店は未達。
（本店）
支店　１５００　｜　支店へ売上　１５００
（支店）
決算時仕訳なし。
本店より仕入　１５００　｜　本店　１５００　（決算時にこの仕訳）

内部取引の相殺

内部仕入・内部売上は合併損益計算書には表示しない。
本店勘定・支店勘定も同じく、合併貸借対照表には表示しない。

内部利益の控除

本支店間で商品発送時に原価に一定の利益をのせることがある。
この内部利益は、実際に商品が売れた時に実現される。
売れなかった場合は未実現の内部利益となり控除の対象となる。

合併損益計算書の期首商品棚卸高、期末商品棚卸高、
合併貸借対照表の商品、これら３つから内部利益を控除する。

内部利益込みの商品　×　内部利益の加算率　÷　１　＋　内部利益の加算率

例）
支店に、本店仕入分の期末商品棚卸高３３００があり、
内部利益率が１０％の場合。３０００の商品が売れ残っていると考える。（３００を控除するということ）

支店の純損益

通常の当期純利益は、繰越利益剰余金に振替える。
支店の場合、純資産科目がないため、本店勘定に振替える。

例）
支店が２０００の純利益をあげた。

（本店）
支店　２０００　｜　損益　２０００　（本店の損益勘定に加算する）
（支店）
損益　２０００　｜　本店　２０００　（本来なら繰越利益剰余金）

合併財務諸表の作成

１．同一勘定を合算
２．未達整理（本店勘定、支店勘定の一致）
３．支店・本店勘定、本支店間の売上・仕入は表示しない。
４．期首商品棚卸高、期末商品棚卸高、貸借対照表の商品より内部利益の額を控除。

2017-05-012020-05-04

簿記決算・財務諸表

決算予備手続き

１．試算表の作成

２．決算整理事項の調査

３．精算表の作成

４．期中の帳簿記録の修正（決算整理仕訳）

決算本手続き

１．費用、収益勘定を損益勘定へ振替

収益を逆仕訳して消して損益勘定に集める。
その差が当期純利益となる。

２．当期純利益を繰越利益剰余金勘定へ振替

利益がある場合、その金額を損益勘定で借方に逆仕訳して消して、
繰越利益剰余金へ振替える。

３．繰越試算表の作成と繰越記入

４．各帳簿の締切り

決算集合勘定は損益勘定、繰越利益剰余金勘定、残高勘定のこと。

英米式、大陸式があり、収益・費用の締め切りはどちらも同じ。
資産・負債・純資産の締め切りに違いがある。

決算報告

１．勘定科目の表示科目への組換

２．財務諸表の作成

英米式、大陸式の締め切り

英米式は、借方、貸方で少ない方に、次期繰越と仕訳して、
締切線、二重線で締め切る。次期の頭に前期繰越を記入。

大陸式は、借方(資産)、貸方(負債、純資産)を両方とも残高勘定に振替え差額を利用する。
また、期首に逆仕訳をして残高から各勘定に振替える。

財務諸表の作成(損益計算書)

勘定式と、報告式がある。
ここでは報告式。

右の数字が重要で、その左側は内訳。

売上高－売上原価＝１．売上総利益（粗利）
粗利－販管費（本業での費用）＝２．営業利益。
（ここまで本業）
営業利益＋営業外収益－営業外費用＝３．経常利益。
（ここまでは本業外も含み、毎期だいたい上げることができる収益力を表す）
経常利益＋特別利益－特別損失＝４．税引前当期純利益
最終＝５．当期純利益（利益処分の対象はここ）

財務諸表の作成(貸借対照表)

資産＝流動、固定、繰延
（評価勘定＝貸倒引当金、減価償却累計額はルールあり）
負債＝流動、固定
純資産＝資本金、資本剰余金、利益剰余金

組換勘定

仕訳の勘定と貸借対照表の勘定が違い。

現金・当座預金＝現金預金
繰越商品＝商品
売買目的有価証券＝有価証券
満期保有目的債券＝有価証券・投資有価証券

（経過勘定）
前払XXX＝前払費用・長期前払費用（一年基準）
前受XXX＝前受収益
未払XXX＝未払費用
未収XXX＝未収収益

貸付金＝短期貸付金・長期貸付金（一年基準）
借入金＝短期借入金・長期借入金（一年基準）

評価勘定の貸借対照表での表示

貸倒引当金は、債券ごとに表示
減価償却累計額は、種類ごとに表示
が原則。

通常貸方残高なので貸方側に表示だが、
マイナス勘定なので、借方側でマイナスして表示する。

株主資本等変動計算書

資本金、資本剰余金、利益剰余金の項目があり、
その合計が株主資本合計となる。

銀行勘定調整表

当座預金口座の残高が企業と銀行（残高証明書）で一致しない場合がある。
不一致の原因を明らかにする。

不一致の原因

企業側（修正仕訳が必要）
１．連絡未通知、銀行から企業に連絡がきていない、記入漏れということ（＋／ー）、
２．誤記入（＋／ー）、
３．未渡小切手・振出のを忘れた。（＋）※既にーしているので、修正で＋

銀行側
１．時間外預入（＋）、
２．未取付小切手（振出した小切手）・換金されていない（ー）、
３．未取立小切手（受取った小切手）・銀行が回収していない（＋）

銀行勘定調整表の作成方法について、
両者区分調整法、企業残高基準法、銀行残高基準法

2017-05-012020-05-04

簿記伝票式会計

通常、仕訳帳→総勘定元帳だが、実務では伝票が多い。
伝票の場合、伝票で仕訳され、伝票→総勘定元帳へ転記。

入金伝票、出金伝票、振替伝票が３伝票制。
さらに仕入伝票、売上伝票を足すと５伝票制。

伝票の種類

入金伝票は借方現金という意味。

出金伝票は貸方現金という意味。

仕入伝票は借方仕入。ほぼ貸方は買掛金となる。
値引き、返品は逆仕訳。

売上伝票は貸方売上。ほぼ借方は売掛金。
値引き、返品は逆仕訳。

振替伝票は、該当伝票が存在しない取引。借方、貸方を記入。

総勘定元帳への転記

直接転記するか、仕訳日計表を使う場合がある。

総勘定元帳には伝票名を記入。

仕訳日計表

総勘定元帳へは合計転記。
摘要欄は仕訳日計表と記入。

補助元帳へは個別転記。
摘要欄は伝票名。

2017-04-282020-05-04

簿記帳簿組織

複数仕訳帳

通常は、
取引→仕訳帳→総勘定元帳
が基本で、一部は
取引→補助記入張
取引→仕訳帳→補助元帳

補助簿に総勘定元帳へ転記することを可能とし、補助簿を特殊仕訳帳と呼ぶ。

以下の6つの補助簿を特殊仕訳帳とする。
現金出納帳
当座預金出納帳
仕入帳
売上帳
受取手形記入張
支払手形記入張

特殊仕訳帳自体の勘定は親勘定と呼び、月末に合計転記のみ。
相手勘定も頻繁に出てくるようなものは合計転記する。（売掛金|売上等）
これを特別欄という。

現金出納帳、当座預金出納帳

元丁という項目が追加されている。

現金出納帳の左側に売上と書かれていた場合、仕訳は
現金　｜　売上
となる。

現金出納帳の右側に買掛金と書かれていた場合、仕訳は、
買掛金　｜　現金
となる。

現金という勘定科目は親勘定なのでまとめて転記する。
特別欄がある場合は、それも月末にまとめて転記する。
特別欄の科目は元丁の項目はレ点をする。

現金出納帳の元丁の項目には総勘定元帳の番号を記入する。
総勘定元帳の方では、　｜　日付　現金出納帳　金額
のように帳簿名を書く。

月末の日付で、特別欄を集計→合計金額を転記→諸口欄に移動→親勘定を集計->合計金額を転記

仕入帳、売上帳

仕入帳は借方、貸方がない。
基本的に借方仕入となる取引がほとんどのため。

総仕入高
仕入戻し（借方、貸方それぞれ転記）
純仕入高（ここは転記しない）
との順番で集計される。

受取手形記入帳、支払手形記入帳

基本、増える取引のみ記入される。
※実際は記入して、減る取引は転記能力が与えられないと考える。

普通仕訳帳(一部特殊仕訳)

全て個別転記が基本だが、
特殊仕訳帳に出てこない取引は普通仕訳帳に記入される。

一部現金などの場合、現金出納帳に現金部を記入し、
その現金も含めた全体の取引を普通仕訳帳に記入する。(重複するということ)
転記は二重に転記しないように注意。

二重転記

２つの特殊仕訳帳の場合、二重仕訳が発生する。（親勘定同士の取引）
その場合、個別転記しないため、元丁欄をレ点で飛ばす。

補助元帳への転記

売掛金元帳、売掛金元帳はどこに対してかなのかを管理したいので、
補助元帳へは合計転記ではなく個別転記する必要がある。

2017-04-27

C# 即席タイマー

何か勉強するとき時間を記録するといいのかもと思ったので。

using System;
using System.Windows.Forms;

using System.Xml.Serialization;
using System.IO;

namespace StudyTimer
{
    public partial class Form1 : Form
    {
        private DateTime Times;
        
        public Form1()
        {
            InitializeComponent();

            this.label1.Text = "00:00:00";

            if (this.textBox1.Text == "") this.textBox1.Text = "0";
            if (this.textBox2.Text == "") this.textBox2.Text = "0";

            timer1.Tick += new EventHandler((object sender, EventArgs e) => {
                this.label1.Text = (DateTime.Now - Times).ToString(@"hh\:mm\:ss");
            });

            XmlSerializer xs = new XmlSerializer(typeof(int));
            using (StreamReader sr = new StreamReader(Application.StartupPath + @"\dat", new System.Text.UTF8Encoding(false)))
            {
                try
                {
                    this.textBox1.Text = xs.Deserialize(sr).ToString();
                    this.textBox2.Text = (int.Parse(this.textBox1.Text) / 60).ToString();
                }
                catch
                {
                    MessageBox.Show("読込失敗");
                    return;
                }
                finally
                {
                    sr.Close();
                }
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {
            timer1.Start();
            Times = DateTime.Now;
        }

        private void button2_Click(object sender, EventArgs e)
        {
            if (timer1.Enabled)
            {
                timer1.Stop();
            }
        }

        private void button3_Click(object sender, EventArgs e)
        {
            if (timer1.Enabled)
            {
                timer1.Stop();
            }
            this.label1.Text = "00:00:00";
        }

        private void Serialize()
        {
            XmlSerializer xs = new XmlSerializer(typeof(int));
            using (StreamWriter sw = new StreamWriter(Application.StartupPath + @"\dat", false, new System.Text.UTF8Encoding(false)))
            {
                try
                {
                    xs.Serialize(sw,int.Parse(this.textBox1.Text));
                }
                catch
                {
                    MessageBox.Show("保存失敗");
                    return;
                }
                finally
                {
                    sw.Close();
                }
            }
        }

        private void button4_Click(object sender, EventArgs e)
        {
            DateTime t = DateTime.Parse(label1.Text);
            int m = t.Minute + int.Parse(this.textBox1.Text);
            this.textBox1.Text = m.ToString();
            this.textBox2.Text = (m / 60).ToString();

            Serialize();
        }
    }
}

100

using System;

using System.Windows.Forms;

using System.Xml.Serialization;

using System.IO;

namespace StudyTimer

{

public partial class Form1 : Form

{

private DateTime Times;

public Form1()

{

InitializeComponent();

this.label1.Text = "00:00:00";

if (this.textBox1.Text == "") this.textBox1.Text = "0";

if (this.textBox2.Text == "") this.textBox2.Text = "0";

timer1.Tick += new EventHandler((object sender, EventArgs e) => {

this.label1.Text = (DateTime.Now - Times).ToString(@"hh\:mm\:ss");

});

XmlSerializer xs = new XmlSerializer(typeof(int));

using (StreamReader sr = new StreamReader(Application.StartupPath + @"\dat", new System.Text.UTF8Encoding(false)))

{

try

{

this.textBox1.Text = xs.Deserialize(sr).ToString();

this.textBox2.Text = (int.Parse(this.textBox1.Text) / 60).ToString();

}

catch

{

MessageBox.Show("読込失敗");

return;

}

finally

{

sr.Close();

}

private void button1_Click(object sender, EventArgs e)

{

timer1.Start();

Times = DateTime.Now;

}

private void button2_Click(object sender, EventArgs e)

{

if (timer1.Enabled)

{

timer1.Stop();

}

private void button3_Click(object sender, EventArgs e)

{

if (timer1.Enabled)

{

timer1.Stop();

}

this.label1.Text = "00:00:00";

}

private void Serialize()

{

XmlSerializer xs = new XmlSerializer(typeof(int));

using (StreamWriter sw = new StreamWriter(Application.StartupPath + @"\dat", false, new System.Text.UTF8Encoding(false)))

{

try

{

xs.Serialize(sw,int.Parse(this.textBox1.Text));

}

catch

{

MessageBox.Show("保存失敗");

return;

}

finally

{

sw.Close();

}

private void button4_Click(object sender, EventArgs e)

{

DateTime t = DateTime.Parse(label1.Text);

int m = t.Minute + int.Parse(this.textBox1.Text);

this.textBox1.Text = m.ToString();

this.textBox2.Text = (m / 60).ToString();

Serialize();

}

2017-04-212020-05-04

簿記その他取引

研究開発費

発生時に研究開発費勘定を利用に計上。
研究開発目的なら建物でも研究開発費にすることが可能。

研究開発費　３０００００　｜　当座預金　３０００００

未決算

一時的に処理しておくため。未決算勘定。

原価償却累計額　２６０００００　｜　建物　３００００００
※実質４０００００の価値の建物のが消失したということ。
火災未決算　４０００００　｜

保険が５０００００の査定となった。
未収金　５０００００　｜　火災未決算　４０００００
｜　保険差益　１０００００

保険が３５００００だった場合。
未収金　３５００００　｜　火災未決算　４０００００
火災損失　５００００

債務保証

偶発債務は備忘仕訳をおこなう。

保証債務見返　５０００００　｜　保証債務　５０００００
保証がなくなったら
保証債務　５０００００　｜　保証債務見返　５０００００

もし立替払いをしたら。
立替金　５０００００　｜　当座預金　５０００００
保証債務　５０００００　｜　保証債務見返　５０００００

法人税等（法人税・住民税・事業税）・消費税

３つまとめて法人税等勘定を使用。
中間で仮に払う場合、仮払法人税等勘定を使用。

仮払法人税等　４０００００　｜　当座預金　４０００００
決算時
法人税等　７０００００　｜　仮払法人税等　４００００
｜　未払法人税等　３０００００
支払
未払い法人税等　３０００００　｜　当座預金　３０００００

2017-04-202020-05-06

工程表について簡単なメモ

種類

部品は購入原材料で、大きく考えると以下のような流れ。

部品１
部品２　→　製造工程　→　製品
部品３

製造工程を小さな工程単位にするのは、結局人為的な判断で区切ること。

①単純な連結の場合。

工程A→工程B→工程C→工程D

②それぞれパーツの工程がある場合。

工程A→工程B→　↓
工程C→工程D→ 工程E

パーツの工程の場合A,BとC,Dのどちらか遅い方が最短の日数になる。

管理

管理するということは、帳票が作成され、作業者以外が判断するということ。

工程A→工程B→工程C→工程D

①B,Dだけ帳票を作り管理すると、A,Cは自律的にB,Dに過不足なく作業することになる。
また自然と緩衝としても機能し始める。但し、BとDの間が妥当な工程である必要はある。

②Dだけ管理すると、Cは自律的に作業できるが、
A,Bは帳票がないため自立的な作業をしても過不足が発生しやすい。

③逆にA,B,C,Dを管理すると、緩衝地帯がなくなり、自立性がなくなるので、管理精度が必要になる。

工程の結合

A,B,C,Dという工程を(A,B),(C,D)という２つの工程にすることはできる。
そもそも工程は人為的な区切りなので、A,Bで1の工程を作っても組織編成で対応することは十分可能。

パーツの工程

工程A→工程B→　↓
工程C→工程D→工程E

前述の通りA,BかC,Dの遅い方が全体の最短となる。
A,BとC,Dでそれぞれ１つの工程として考え、工程Eだけを管理しても大丈夫。

工程帳票

PERTのような表よりガントチャートの方が人気がある。
理論的にPERTの方が良いけど、実際の運用では（それほど大規模でないなら尚更）
ガントチャートの方が上手くいくことが多い。

ガントチャートとする場合も、製造工程全てではなく、
以下のような工程でB,Dだけ管理し、自立性と緩衝地帯の効果を期待する。

工程A→工程B→工程C→工程D

その時、B工程表、D工程表の間の整合性を管理するプログラムだけあれば、
ガントチャートによくある、修正が難しいという問題も発生しない。

ガントチャートの修正が難しい問題は、A,B,C,Dを全て管理することと同じ。

2017-04-202020-05-04

簿記純資産

資産ー負債＝純資産
純資産＝株主資本、評価・換算差額等、新株予約権
株主資本＝資本金、資本剰余金、利益剰余金

株式発行

タイミングは２つ創立費か株式交付費となる。

原則、株主の払込金額の全額を資本金に計上。容認、１／２まで資本金にしなくてもいい。
その場合、資本準備金勘定にて処理。

例）
設立、株式１００を発行。
１／６５０００
払込金額は当座預金に。
発行費４５０００現金支払。
原則額を資本金。

当座預金　６５０００００　｜　資本金　６５０００００
創立費　４５００００　｜　現金　４５００００

新株発行２０
１／７００００
払込当座預金
最低額を資本
発行費用３０００００
繰延資産処理

当座預金　１４０００００　｜　資本金　７０００００
｜　資本準備金　７０００００
株式交付費　３０００００　｜　当座預金　３０００００

新株式申込証拠金

払込日より前に受け取った払込金額。

払込日到来まで会社の資金ではないので、
別段預金勘定として処理しておく。

別段預金　２００００００　｜　新株式申込証拠金　２００００００
１５０００００を資本金に振替、残金を返金した。
新株式証拠金　２００００００　｜　資本金　１５０００００
｜　当座預金　５０００００
当座預金　２００００００　｜　別段預金　２００００００

剰余金

資本剰余金、利益剰余金がある。
資本準備金、利益準備金は法定準備金となる。

繰越利益剰余金勘定。未処理の利益のこと。

純利益は損益勘定で処理、繰越利益剰余金勘定に振替える。
繰越利益剰余金は株主総会で決定。

当期純利益４００００００を計上した。
※損益勘定で、貸方（収益）が大きかったということ。その差を消すためまず借方損益に４００００００が入る。
損益　４００００００　｜　繰越利益剰余金　４００００００

繰越利益剰余金の処理（利益処分）

社外流出、株主配当金。
社内留保、利益準備金、任意積立金、繰越利益。
利益準備金は配当を実施したら強制的に積み立てる。
繰越利益剰余金は全て処分せず繰越利益剰余金のまま保留もできる。

繰越利益剰余金　０００　｜　未払配当金　０００　（後日払う予定）
｜　利益準備金　０００
｜　ＸＸＸ積立金　０００

利益準備金の積立

資本準備金＋利益準備金の合計が、資本金の１／４が上限とし、
配当金の１／１０が原則。

例）
資本金１００００００
資本準備金１５００００
利益準備金５００００
利益を以下のように処理
株主配当１０００００
配当額１０００００×０．１＝１００００

利益準備金＋資本準備金の上限＝１００００００×１÷４＝２５００００
１５００００＋５００００＝２０００００でまだ５００００の余裕がある。

任意積立金の積立は、任意積立金（○○積立金という名前）と別途積立金がある。

例）
条件
資本金１００００００
資本準備金１５００００
利益準備金８００００
繰越利益剰余金９５００００
を以下のように処理
配当金５０００００
新築積立金３０００００
利益準備金ＸＸＸ

繰越利益剰余金　８２００００　｜　未払配当金　５０００００
｜　利益準備金　２００００　※配当の１／１０が基本（資本準備金＋利益準備金＝資本金１／４まで）
｜　新築積立金　３０００００

損失

損益勘定から繰越利益勘定に振替えるのは利益と一緒。
損失の場合、損失処理の場合、繰越利益剰余金の借方残高を填補する。

例）
純損失１００００００
新築積立金６０００００、別途積立金４０００００
にて填補する。

損益勘定で以下のように費用の方が多い場合
６００００００　｜　５００００００

繰越利益剰余金　１００００００　｜　損益　１００００００

新築積立金　６０００００　｜　繰越利益剰余金　１００００００
別途積立金　４０００００

合併

合併会社は資産負債を引き継ぎ対価として被合併会社の株主へ株式を発行する。

受け入れた純資産より多くの株式を発行（代金相当）の場合のれん勘定で処理。
２０年以内の定額法で償却。

例）
諸資産　２５００００　｜　諸負債　２０００００
のれん　２００００　｜　資本金　７００００

負ののれん計上益勘定。収益なので損益となる。
※通常ののれんは無形固定資産なので貸借対照表にでてくる。

例）
諸資産　２５００００　｜　諸負債　２０００００
｜　資本金　４００００
｜　負ののれん計上益　１００００

合併の際、新たに発行する株式で資本金に組み入れない分は資本準備金。
設立時、新株発行と違い、資本金に計上する最低限度額はない。

例）
諸資産　２５００００　｜　諸負債　２０００００
のれん　２００００　｜　資本金　５００００
｜　資本準備金　２００００

2017-04-192020-05-04

簿記社債

発行

社債勘定を使う（負債）

発行時の費用は社債発行費勘定（繰延資産）

平価発行。
割引発行。額面より低い価額で発行。
打歩(うちぶ)発行。

例）
額面３００００００
費用５００００
払込金額＠９８／１００
利率５％
利払日３、９末
償還５年
発行日ｘ５／４／１
決算日３末

当座預金　２９４００００　｜　社債　２９４００００
社債発行費　５００００　｜　現金　５００００

利息

社債利息勘定で処理。

社債利息　７５０００　｜　当座預金　７５０００
※額面×年利÷２

決算処理

期末評価

満期保有目的債券同様償却原価法（定額法）

額面－発行価額×当期経過月数÷償還期間（月数）

発行時は発行金額で帳簿に記録している（２９４００００）が、
実際償還時は額面金額（３００００００）になるように決算度に金額（負債）を増やしていく。

社債利息　１２０００　｜　社債　１２０００

社債発行費は償却期間内に定額法で償却する。

社債発行費償却　｜　社債発行費

社債利息の見越計上

利払日と決算日が一致しない場合。

決算日の直近の利払日の翌日から決算日までの利息を月割り計算。

社債利息　｜　未払社債利息

まとめ

例）
決算ｘ４年／３／３１
発行ｘ３／７／１
償還５年
額面１００００００
発行９５／１００
利率６％
利払６，１２
額面と発行額の差は償却原価法（定額法）
社債発行費４００００
定額法に償却

１００００００－９５００００×９÷６０
４００００×９÷６０

社債利息　７５００　｜　社債　７５００
社債発行費償却　６０００　｜　社債発行費　６０００

見越計上（次期の払う費用の中に当期分がどれだけはいっているか）
決算３末で利払日６末，１２末
次期の４，５，６分

１００００００×６％×３÷１２

社債利息　１５０００　｜　未払社債利息　１５０００　（経過勘定）

満期償還

額面金額を支払う。
償却原価法をしてから、償還処理。

例）
12決算
額面５００００００
発行９７／１００
利率６
利払日６，１２
償還３年
７／１／１発行

９／１２／３１に満期となり償還。

４８５００００を帳簿に記録していた。
１５０００を３年で償却するので決算時50000となり、既に２回は済なので、５００００だけ残っている。

利息の計算５００００００×０．０６÷２

社債利息　５００００　｜　社債　５００００
社債　５００００００　｜　当座預金　５１５００００
社債利息　１５００００　｜

買入償還

償還期日前に償還する。
全て償還できない。満期償還は額面価額で償還するが、買入償還は時価で償還する。
（市場に出回っている分だけ回収できる。）

例）
買入償還日５／６／３０
買入償還額５０００００
時価９７／１００
小切手振り出し

社債情報
決算３末
発行３／７／１
額面８０００００　（もとの額面は気にする必要はない）
発行額９６／１００
償還５年
定額法

ここでは買入償還の情報で処理すればいい。
帳簿記載は４８００００
１度目、５０００００ー４８００００＝２００００
２００００×９÷６０＝３０００
２度目、２００００×１２÷６０＝４０００
決算は２回経過。

社債利息　１０００　｜　社債　１０００
社債　４８８０００　｜　当座預金　４８５０００　（５０００００×０．９７）
｜　社債償還益　３０００