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

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

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

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




黄昏の四神書 周回中です。
たまに魔道書集めたり・・・たまに進化素材集めたり・・・
だいぶ精霊さんたちも強くなってきました。

上級をがんばって周回中ですがたまに

22image_1
全員雷なのでたまにはまります。
パネル事故怖いです。

で、ウィズさんもたまにおかしくなります。

22image_3
ウィズさんねこさんじゃなかったっけっかな?

ガンロワも進行中・・・
今嫌いなイベントですが、大きいやつ出てきました。

22image_2

こやつ下からにゅーっと出てくるんです。


ショコラフォレストがんばって周回しています。

そのおかけで

_18_image(1)

_18_image

小悪魔 シビィ まみれです。

でも、タイミングよく潜在能力が加わったので使い道があるな~!
回復しつつ高い攻撃力~!!!!

これはしばらく主力だな!!