最後の旅を始めよう

-黒の英雄譚・零-

こんなに絶望しかない選挙も珍しい

2021年10月29日 | ツレズレ日記

これはあくまで私の個人的感想ではありますが
正直、もう自民党には票を入れたくないです。

これまで散々、
「これからは自分で資産形成しなければいけない」
「国に頼るだけでは老後が危険だ」などと国民に投資を進めておきながら
その参加人数が増えた途端に

「それじゃあ課税まーす!」
・・・ですからね・・・・

これを詐欺と言わずに何と言えというのでしょうか…

「格差是正の為に富裕層から税金を取るため」という大義名分を掲げてはいますが
そもそも、本当に格差を無くしたいなら、まずは「国債」を止めろと言いたいです。

あれは、結局は税金を富裕層へ流すシステムでしかないですからね。

現在の日本の借金は約1000兆円と言われておりますが、
国債の金利が0.05%なので
毎年、約50兆円の税金が利子として支払われる訳です。

ちなみに、いま現在の日本の税収はご存知でしょうか?
 約 50 億 円 です。

もう、お分かりですね?
そう我々が払っている税金はその殆どが
富裕層の懐へと入っていく状態なのです。

「じゃあ、どうやって国を運営しているんだよ!?」
と思うかもしれませんが、そこはモチロン借金です。
約50兆円の国債を発行してなんとか現状を取り繕い
そうして富裕層に流す税金の量を上げるという
負の自転車操業を繰り返して凌いでいる訳です。

誰がどう見てもおかしな状況ですよね?
しかも、かなりの慢性的な異常事態です。

まだ河野さんが首相だったら
ワンチャン良い方向に変わるかも知れないという淡い期待もありましたが
岸田さんの時点で、現状維持でジリ貧な未来しか見えませんからね。
このままこの党に政権を任せていたら本当に日本は沈没しかねませんよ。

そんな感じで完全に自民党に愛想が尽きた訳ですが、
他に何処か良い党は無いかと思い探してみたものの
思った以上にガッカリな結果でしたね。。。

日本が実は結構ピンチな状況にあると言う事に
この国の人は本当に気付いていないのでしょうか。

何処の党も
「コロナショックからの復興のために税金を減らして社会保障を手厚くバラまいてきます」
「その財源は新しく国債を発行して調達します」
みたいな公約ばかりで絶望しかありません。

このままでは本当に日本は危ないかもしれませんね。。。。


そもそも国債の本質は「税金の前借り」です。
「国債発行します」=「将来増税します」という事にまずは気付いて貰いたいものです。
これを続けるという事は、未来の子供達から搾取しているに他なりません。

まあ、こうなってしまったのも、多くの人が
税金のバラまきや社会保障の充実、消費税廃止といった公約を
無謀な悪政だと見抜けず、目先の利益に騙されて票を投じてしまった結果なのでしょうが
せめてこの国が沈む前には、それが愚かな行為である事に気付いて貰いたいのもです。

本当に・・・

「これ以上の国債の発行は辞め税金の流れを正します」
そんなマニュフェストを掲げてくれる人が居れば大手を振って投票出来るのですけどね。

せめて、あなただけは
賢明な判断を下してくれる事を願います。

コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする

Excel vba メモ

2021年10月26日 | その他・スクリプト
Excel vba の備忘録的なものです。
自分用のメモですので、なんだか見難くて申し訳ありません。
gooブログでもシンタックスハイライトとか出来ればいいのに・・・


#メッセージボックス
MsgBox "これは" & vbCrLf & "特に意味もない文章の羅列です"

#セルの中身を獲得
Dim oGetCell As String
oGetCell = Cells(2, 1).Value

#セルに情報入力
Cells(2, 1).Value = ”入力情報”

#データテーブルをコピー
Range("A1:C3").Copy
Range("E1").PasteSpecial Paste:=xlPasteValues

#繰り返し処理
For i = 1 To 10
MsgBox Cells(i, 1).Value
Next i

#最終行と列を取得
Cells(Rows.Count, 1).End(xlUp).Row '列
Cells(1, Columns.Count).End(xlToLeft).Column ’行

#該当Excelブックを読み取り専用で開く
Dim oWB As Workbook
Set oWB = Workbooks.Open(Filename:="D:/Book.xlsx", UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)

#ブックを閉じる
Call oWB.Close

#文字列操作
'文字列分割
Dim oSplit As Variant
oSplit = Split("BLACK_RX", "_")
MsgBox oSplit(0)
MsgBox oSplit(1)

#指定値(BLACK)セルの隣の値を取得
Dim oTargetCell As Range
With Range("A1:H8")
    Set oTargetCell = .Find("BLACK", LookIn:=xlValues, LookAt:=xlPart)
    If Not oTargetCell Is Nothing Then
        MsgBox Range(oTargetCell.Address).Offset(0, 1).Value
    End If
End With


関連-------------------------------------
Python_ネイティブ機能メモ
バッチ作成メモ
編集
コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする