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

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



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

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

ＡＣＣＥＳＳ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行を印刷する場合などになります。

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

ＩＴパスポート

H22年春は学生が2割社会人が5割の合格率

独学でも問題なく合格できます。

太陽光発電の導入基準

いろいろな話が出ているが結論として以下の用に考える


初期導入費にて発電　4Ｋｗ以上で230万で設置が可能ならば導入の検討に値する。

この数字、見積を出してもらうとわかると思うがなかなか出ない数字である。
これは屋根の形状にも大きく左右されるので実際下見をしてもらわなければわからないし、そうしない業者はかなり疑わしい。
さらにエコキュートや太陽光発電とは関係ないものの導入を進める業者もおかしい。

どうしてかと言うと、15年スパンでうまくゆけば初期コストを吸収できるかもしれないが、それ以降が問題。 このコスト吸収は太陽光発電のみの話である。
パワコン、屋根の修理等でかかる費用で20年以降はコストが逆転してしまう計算になる恐れが大きくなるからである。そうなると本末転倒でその時点での判断するしかないが、発電量が3Ｋｗと4Ｋｗでは発電量にかなりの差があり初期コスト早期吸収も可能であるから、今後にかかる費用を先に捻出できる可能性がある。それで上記の金額は一つの目安になると思う。


しかも多結晶の場合は20年とかで発電効率が著しく下がることを考えると、長く使用した場合は結果的にマイナスになることが予想される。


一般に言われている中で30年すぎても使えているのは単結晶の実績である。

初期導入費がこの計算の対比に相当するなら導入してもいいのでは、と思うが導入に際してはこれで稼ごうとかはあまり持たないほうがいいという結果になったので、過度な期待はしてはいけない。

ローンの金利、メンテナンスの期間を長めにして検討しよう。
尚、エコキュートやオール電化の場合は、ドリーム8の時間帯にどれだけ多くの電気を回せる生活が出来るかがポイントなのだ。オール電化は安くあがるというのはこの苦労をして始めて体験出来る。なんせ昼間の8分の1の金額なのだから。それをせずに安くならないというのは本末転倒なのである。

これを苦労と思わず生活が出来れば光熱費が本当に少なく済む。これに合わせて太陽光発電で売電するということが大事だと思う。昼間の電気使用量を節約する意識を高めることこそが本来の意味なのではないか

いびき対策 枕がカギ？

10数年以上か、いやもう何年いびきになやまされ続けたであろうか・・・


この前、枕外来というものを見たのだが見よう見まねで似たようなことをやってみた。


この内容のことは前にも放送されていて良く分からないで終わったが、今回は高さを合わせるポイントのさわりがわかったので実践してみた。


仰向けに寝て高さをちょうどよい高さに合わせる
これはいまいち良くわからなかった。枕は高すぎたらイビキがひどくなると思ったので、低めにしてかなりの長い間をそれで過ごしてきた。

ところがだ・・・


もう一つのポイントとして、寝返りをする際に簡単に横に向きが変えられるように枕の高さを調節する。

こいつがやってみると以外と枕を高くしないと簡単にコロンコロンと横に出来ないことが分かった。
特に頭がころころ横になるくらいが丁度いい。
（枕外来では頭を横にした場合は、床と頭が平行になるようにと説明している）
そこで簡単にコロンコロン出来る高さを見つけて仰向けに寝てみるとこれが以外と高く感じなかった。


この状態で何日が過ごしてみたところ、イビキの様子が変わってきたらしい。
自分では確かめられないので・・・

しばらく様子を見てみようと思う