うつ病 ゲンダイネット引用

うつ病になった！　会社はどこまで助けてくれるのか (ゲンダイネット)
　大手レコード会社トップが７日、４８歳で自殺を図り、命を絶った。仕事の悩みを抱え、うつ病の通院治療を受けていたという。いざというとき、会社はどこまで助けてくれるのか。
●６割強　「心の病」欠勤社員を抱える
　一部報道によると、ワーナーミュージック・ジャパンの吉田敬社長（４８）は業績が伸び悩み、親会社との板挟みで心労を抱えていたという。
　同社広報室は「家族によると、最近はうつ病で通院をされていたとのことです」と明らかにしたが、「悩んでいる様子を社員に見せることはなかったし、元気がないということもなかった」。時折、欠勤はあったものの、業務は問題なくこなしていたという。
　仕事や職場のストレスが原因で心の病気を抱えるサラリーマンは、何も吉田氏だけじゃない。
　労務行政研究所の調査によると、過去３年間のメンタルヘルス不調者が「増えている」と回答した企業は４４．４％。また、「心の病で１カ月以上、欠勤・休暇している社員は？」の問いに「いる」の回答が６３．５％だ。
　それでなくても秋はメランコリックになる。もはや大半の会社に当たり前のようにいるわけだ。先行きが不透明なだけに、突然、心を病んでもおかしくないが、問題はカネだ。
　そもそも、職場へどのような手続きをすればいいのか。
　一般的には、医者の診断書を会社に提出した上で他のケガや病気同様、私傷病扱いとなる。有給休暇を消化し切った後は欠勤扱いとなり、欠勤が一定期間を超えた時点で休職とみなされる。その期間は３カ月とか半年とか各社の就業規則によるから、よく読み返しておいたほうがいい。
　欠勤、休業期間中は無給。毎月の賃金に対して算定される雇用保険料は０円だが、健康保険や厚生年金保険といった社会保険料の徴収はある。毎年７月に算定する標準報酬月額によって決まるので、原則として１年間はその額は変わらない。賃金から本人負担分を控除できない間、会社が立て替えてくれるが、後日、請求されるという。
　厚労省は１５日、業務上のストレスが原因でうつ病などの精神疾患者となった人への労災認定の迅速化を図るため、来夏までに指針改正する方針を発表した。労災保険の正式名称は「労働者災害補償保険」。保険料は会社側が全額負担、労災発生時には会社が申請し労働基準監督署長が認定する。
　特定社会保険労務士の稲毛由佳氏が言う。
「サラリーマンがうつ病などの精神疾患を発症したからといって、すべてのケースで認定されるわけではありません。業務との確かな因果関係が求められます。業務上の原因だけでなく、離婚やプライベートな原因も混在する場合は、なかなか認可されないのが現状です」
　昨年度、精神疾患を原因とする労災申請者は過去最高の１１３６人だったが、うち認定されたのは２３４人。ほんのひと握りだ。
●健康保険＜傷病手当金＞が支給される
「だからと言って、あきらめることはありません。健康保険の加入者は、勤続年数にかかわらず、医師から〈療養などで働けない状況にある〉という診断を受け、実際に働けなかった場合には〈傷病手当金〉が健康保険から支払われます」（稲毛氏）
　詳細は以下の通りだ。
■主な受給条件
・会社を休んだ日（土・日曜、祝日を含む）が連続して３日間続き、その４日目以降、休んだ日に対して支給
・待機期間の３日間以降、事業主から傷病手当金より多い報酬額の支給を受けていない
■支給額＆支給時期
・休職１日につき、標準報酬日額の３分の２相当額
・治療費（通院も含む）の３割
・支給時期は申請から３～５週間以内
■税金はかかるのか
・健康保険法上の保険給付なので、非課税
■支給期間
・支給開始日から起算して最長１年６カ月間
■退職したら
・会社退職後も退職日に１年以上継続して被保険者だったなどの一定の条件を満たすと、在職中から引き続き受給できる
■失業手当ももらえる？
・働ける体である人に給付される失業手当の両建ては、できない
【結論】　給料も治療費も公的保険で、ある程度は保障される。万一の場合は忘れずに申請する。
●民間保険で、どこまでカバーできる？
「結論から言うと、公的な保険以上にうつ病などの精神疾患に手厚い保険はありません」
　こう話すのは「生命保険のウラ側」（朝日新書）の著者、後田亨氏だ。同氏が続ける。
「医者の診断書を提出すれば、医療保険でまかなえます。ところがほとんどの商品が入院が前提のものばかり。通院の場合は保険対象外です」
　入院後に同じ病気で通院した場合は対象となるが、そのほとんどが医療保険の特約でカバーする保障だという。
　特約を付け、毎月高額な保険料を払うくらいだったら、パーッと気分転換に飲みに出かけ、こまめにストレス発散したほうがいい。
　うつ病が治るのは１年先か２年先か、はっきりしない。備えあれば

3Ｄテレビの行方

この段階で色々な3Ｄテレビが出てきたし、価格も段々下がってきた。
そこで今3Ｄを見たいと思ったら3Ｄテレビとメガネを揃えれば見れるのかと思ったらちょっと違うようだ。


正確に言えば、キッチリとした3Ｄを見たいのであれば今の時点ではコンテンツがない。


youtubeやCS11などでは一部あるがまがりなりに見ることが出来るが、本来の見方とはちがう。

SONYは擬似3Ｄでみれるが今一3Ｄが鮮明になるわけでもない。

東芝のレグザは3Ｄ用ブルーレイプレイヤーを使ってお試し用のブルーレイＣＤを配っているのでようやく見ることが可能なだけだ。


テレビの3Ｄ放送はしばらく期待できないところから、3Ｄブルーレイのコンテンツを待つしかない。

3Ｄ用のプレイヤーがないとダメだのだがSONYであればＰＳ３が3Ｄ対応したので、これが3Ｄプレイヤーとしては一番安上がりではないかと思う。


結論として、今の段階で3Ｄテレビを検討したい場合はなるべくコストを安く抑え、裸眼3Ｄの話も出ているので世間の方向性が定まったときに改めて購入するという方法がいいのではないかと思う。

もしかしたら今の出ている3Ｄテレビの中で当たりを掴んでラッキーな面もあるのではないかと思うが期待が薄いと思う。

画面の綺麗さやあかるさなどはほとんど変わらないと思うので、なるべくお気に入りのメーカーや機種を安く買うことに力を注いだほうが良さそうだと思う。
多分寿命まで使わないと思う

2010年10月の1日最高発電

出力2.8Kw サンテック
晴れにて
10月で1日の発電量15Kwは、今のところはこれを上回っていない。

参考他の人のサイトから
1日の最高発電量　27kwh
サンビスタ5.12kw

データが整い次第、日別発電量を乗せようと思う

今更ながらＶＢＡでの日付有効チェック

前に作ったはずなのにどこに行ったか分からなくなったので改めて



入力した日付がちゃんと日付として有効化どうかを判断

人は間違える生き物だとつくづく思う・・・

ＡＣＣＥＳＳ97でも有効
'******************************************
'* boolean値を、表示用文字列に変換
'* (表示を分かりやすくするためあえて使用)
'* True:"チェックＯＫ"　　Flse："チェックＮＧ"
'******************************************

Public Function bln(ByVal bool As Boolean) As String
If bool Then
　　　bln = "True"
Else
bln = "False"
End If
End Function



'*************************************
' 機　能：有効な日付かどうかをチェックする。
' 引　数：日付' 戻り値：有効な日付(True)、無効な日付(False)
'*************************************
Public Function dateCheck(ByVal vDate As Variant) As Boolean
dateCheck = False '日付型と判定できるかどうかをチェック
If IsDate(vDate) = True Then
dateCheck = True
Exit Function
'(数値列8桁)Format関数にて整形し、日付と判定できるかどうかをチェック
ElseIf IsNumeric(vDate) And Len(vDate) = 8 Then
If IsDate(Format(CStr(vDate), "####/##/##")) = True Then
dateCheck = True
Exit Function
End If End If
End Function


使用方法
If bln(dateCheck(”20100101”)) = "False" Then
MsgBox "日付の入力が不正です。正しい日付を入力して下さい"
Exit Sub
End If

インターリンクにはまいった・・・

直接関連していなかったのだが、メールの管理しているところがそのプロバイダを使用していたのである。
そっ・・・それがだ・・・

これほど重要なことにもかかわらず、案内はメール一つ・・・

お伺いも何もなしに強行・・・



そんなイメージで今回の工事が行われたというのが印象。



とにかくあぶなっかしくてメインではとても使えません。
さようなら。インターリンクさん。

太陽光発電のネタ ローン偏

かれこれ動き始めてから2ヶ月が立とうとしているが、未だ着工の日取りに目処がたっていない。


○電機にお願いしているのだが、あれこれ素直にことが運ばないことがわかった。

それは、補助の関連だ。

まず市の補助に取り掛かってみた。

ここでは金利の優遇措置が図られていたのだが、どう書くのか尋ねたままの内容を書き出して市に郵送した。

そして、提携金融機関にその書類が回り銀行から審査はすぐ降りたのだ。


それまでは順調だったのだが、問題はその提携金融機関に送った資料の内容にあった。

その金額とは、一応頭金を出したいと思いその金額を○電機の見積金額から差し引いた。


それから、国の補助1ｋｗ7万円なので今回取り付ける太陽光発電出力分20万円弱をさらに差し引いた。

その両方をあわせて、見積金額から差し引いた金額がローンの金利優遇措置の対象金額となった。


ところがだ・・・


○電機は見積の金額は全額支払いを要求してきた。


となると、国の補助の金額は申請から約3ヶ月後に振り込まれることとなる為、一時その金額は不足するという事態に陥ることとなることが判明した。

たしかにそれは当然のはなしだが、これには経緯がある。

○電機は最初、市の金利優遇措置は受け入れないという条件で話を進めていたのである。用は自社のローンを使ってくれという条件である。

国の補助分はローンに組み入れて支払いは行い、国から振込みがあった後にそのローンに組み入れてくださいとのことだった。

そういう話の為、太陽光発電の導入を見送ることにしたのである。

ところが、○電機からその条件を使用して設置をもう一度検討してくれないかという申し入れがあった。

かなり丁重な受け答えだったので、検討し直してみることにした。

そして、現調も先に行って取り付けに問題がないかを確認もとった。大体その現調も初めは無かったのである。

そして市からの補助のOKが出て今度は国の補助に取り掛かったというわけだ。


とりあえず打てる手はこうだと思う。


①国の補助以外の金額を支払い、国の補助が出た段階で最終の支払いを行う。
これは○電機さんから全額を支払ってくれと要請が出た。

②国の補助が出るまで工事を中断する。下手すると2～3ヶ月かかるがそれがゆるされるかどうかが問題

③最終手段。国の補助分を一時立替


大体こんなことを考えなければならないこと自体ナンセンスだとおもわないだろうか・・・


市の申請は、最初に送った資料に間違いがあるから直せと言われて書き直して最送付したのである。さらに判りやすいように、別紙で見積金額から差し引く内容を添付して市に送ったのである。

○電機も柔軟に対応しているつもりだとは思うが、ここが本当に柔軟に対応してほしい部分だとおもうのだが…他のみなさんはどうだと思うだろうか・・・

この状態で途中でおかしいと気づいて対応することは困難

やはりこの手は資金に余裕がなくてはならないと痛感した・・・

vb.net DataGridViewの内容を1行1ページずつ印刷する PrintDocument

データベースからPrintDocumentに印刷をする場合はいろいろなサイトで紹介されているが、DataGridViewを印刷し且つ、複数ページで印刷をする場面の紹介がないので考えてみました。
ようやくPrintDocumentの挙動がすっきりしました。
今回の例は1行１ページで印刷する場合です。


結果は以下に

'------------------------------------------------------------------------------------------------
Dim CurrentPage As Integer '現在のページ数を記録する
Dim EndPage As Integer '最終ページ
'------------------------------------------------------------------------------------------------
Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
　CurrentPage ＝0 'ここで初期化。
EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintDocument1.Print()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
　CurrentPage ＝0 'ここで初期化。
　　EndPage = DataGridView1.NewRowIndex-1'データグリッドの最終行
PrintPreviewDialog1.ShowDialog()
End Sub
'------------------------------------------------------------------------------------------------
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim f As Font
　f = New Font("ＭＳ ゴシック", 16) Dim
　P1 As New Pen(Color.Blue, 1)
　e.Graphics.DrawString(Trim(DataGridView1.Rows(CurrentPage).Cells(3).Value), f, Brushes.Black, 50, 300)

　If CurrentPage= EndPage Then'最終ページの場合はe.HasMorePages = False それ以外は次ページ
e.HasMorePages = False
　Else
　　e.HasMorePages = True
　End If

　CurrentPage += 1

End Sub
'------------------------------------------------------------------------------------------------

以上でＬｏｏｐ処理は不要で出来る。
LoopやFor処理は１ページで20行を印刷する場合などになります。

ページと行管理をきちんと行うことになります。