» 日記っすのブログ記事

officeもすでに2013なんですな･･･

とりあえず困ったのが過去のVBAが使えない･･･

いくつか廃止された関数があるようで･･･

とりあえず至急必要だった日付の関数作ってみました。

Function fnc_myDataAdd(strYY As String, strMM As String, strDD As String, strAdd As String) As String

Dim strTmpYY As String
Dim strTmpMM As String
Dim strTmpDD As String

Dim strLDD As String

Dim i As Integer

fnc_myDataAdd = fnc_myDataAdd

strTmpYY = strYY
strTmpMM = strMM
strTmpDD = strDD

For i = 1 To strAdd
strTmpDD = Format(strTmpDD + 1, “00”)
Select Case strMM
Case “01”
strLDD = 31
Case “02”
If IsLeapYear(“20” & strTmpYY) = True Then
strLDD = 29
Else
strLDD = 28
End If
Case “03”
strLDD = 31
Case “04”
strLDD = 30
Case “05”
strLDD = 31
Case “06”
strLDD = 30
Case “07”
strLDD = 31
Case “08”
strLDD = 31
Case “09”
strLDD = 30
Case “10”
strLDD = 31
Case “11”
strLDD = 30
Case “12”
strLDD = 31
End Select

If strLDD < Format(strTmpDD, "00") Then strTmpDD = "01" strTmpMM = Format(strTmpMM + 1, "00") If strTmpMM > “12” Then
strTmpMM = “01”
strTmpYY = Format(strTmpYY + 1, “00”)
End If
End If

Next

fnc_myDataAdd = strTmpYY & “” & strTmpMM & “” & strTmpDD

End Function

でもね、二桁西暦の加算しかできません･･･

適当にいじってみてくださいな。

※インデント消えちゃって見にくくてすみません。

“ヤミ副業”横行、宝塚市職員のあきれた実態…高給もらいながらマンション経営、農産物販売で数千万円の収入

宝塚市職員のあきれた実態…

公務員ってやることひどいですね･･･

公務員ってみんなこうなのかな！？

まじめな人もちょっとはいるのかな？

人のためのサービスはしないけど、自分のためのサービスなら認識が甘かったとか平気でそんなうそついちゃうんですね。

宝塚市の副課長が勤務中にマンション管理…

宝塚市職員≒公務員　ってこんな仕事ばっかなんですかね！？
税金を使って仕事してるとこんな意識になっちゃうんですかね～

こんなニュースおかしいですよね！？

シシド・カフカ　ワンマンライヴ@梅田CLUB QUATTRO　2/2

みてきました～

いやはやかっちょええす。
ドラムボーカルって･･･
にしても歌うまい。

ステージ見てたらよくあんだけ体力続くよな～って感じでした。

アンコール2回目出てきちゃったし。
握手会で急いでホールでてったひとそんしちゃったね。

また見に行きたいな
CD全部買っちゃおうか。
応援したいすね～