サボってたんですが・・・
忙しすぎたんですが・・・

でも
ガンロワ
コロプラ
黒猫のウィズ
パズドラ
がんばってますよ~

力の入れようがかなり違うかもしれませんが・・・

0602image(1)

でも、ついに魔道杯で1位を獲得~
ってうそです。

魔道杯クリアのタイミングでたまたまでしたぁ~

で、ガンロワは相変わらず消化試合な感じのイベントが続きますがついに・・・

0602image

ストーリー終了です・・・

この後どうしたらよいんでしょう!?

今回のイベントはνガンダムなんでがんばりますが・・・・

もう続かないかも・・・


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

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