サボってたんですが･･･
忙しすぎたんですが･･･
でも
ガンロワ
コロプラ
黒猫のウィズ
パズドラ
がんばってますよ～
力の入れようがかなり違うかもしれませんが･･･
でも、ついに魔道杯で1位を獲得～
ってうそです。
魔道杯クリアのタイミングでたまたまでしたぁ～
で、ガンロワは相変わらず消化試合な感じのイベントが続きますがついに･･･
ストーリー終了です･･･
この後どうしたらよいんでしょう！？
今回のイベントはνガンダムなんでがんばりますが････
もう続かないかも･･･
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
でもね、二桁西暦の加算しかできません･･･
適当にいじってみてくださいな。
※インデント消えちゃって見にくくてすみません。
黄昏の四神書 周回中です。
たまに魔道書集めたり･･･たまに進化素材集めたり･･･
だいぶ精霊さんたちも強くなってきました。
上級をがんばって周回中ですがたまに
全員雷なのでたまにはまります。
パネル事故怖いです。
で、ウィズさんもたまにおかしくなります。
ウィズさんねこさんじゃなかったっけっかな？
ガンロワも進行中･･･
今嫌いなイベントですが、大きいやつ出てきました。
こやつ下からにゅーっと出てくるんです。