いわタイプ・じめんタイプのポケモンが新たに２３種類登場しました！（公式サイト）
３１１種類までゲットしたので、もう少しでホウエン地方のポケモンが大分揃うかなぁと思ってましたが、更に先は長くなってしまいました。
とは言ったものの、種類が増えてポケＧＯの活気が戻れば良いですね。最近のレイドボスバトルは人が集まらずツ・ラ・イ(-_-;)
【ポケモンＧＯ】ホウエン地方のポケモン23種登場(2018/1/24)
いわタイプ・じめんタイプのポケモンが新たに２３種類登場しました！（公式サイト）
３１１種類までゲットしたので、もう少しでホウエン地方のポケモンが大分揃うかなぁと思ってましたが、更に先は長くなってしまいました。
とは言ったものの、種類が増えてポケＧＯの活気が戻れば良いですね。最近のレイドボスバトルは人が集まらずツ・ラ・イ(-_-;)
【Excelマクロ(VBa)】日付の計算
DateAdd
日付や時間の計算をする場合はDateAdd(interval, number, date)を用います。
intervalでは、年("yyyy")、月("m")、週("ww")、日("d")、時("h")、分("n")、秒("s")をセットします。
numberは、数値で設定し、未来はプラス、過去はマイナスです。
dateは、基準となる日付や時間です。
具体的な例は下記の通りです。
▽ ３か月後
'変数の設定
Dim ThisDate1, ThisDate2 As Date
'今日の日付・時間を取得
ThisDate1 = Now
'3か月後を取得
ThisDate2 = DateAdd("m", 3, ThisDate1)
'取得結果をメッセージボックスで出力
MsgBox "計算前 : " & Format(ThisDate1, "yyyy/MM/dd hh:mm:dd") & Chr(13) & _
"計算後 : " & Format(ThisDate2, "yyyy/MM/dd hh:mm:dd")
Dim ThisDate1, ThisDate2 As Date
'今日の日付・時間を取得
ThisDate1 = Now
'3か月後を取得
ThisDate2 = DateAdd("m", 3, ThisDate1)
'取得結果をメッセージボックスで出力
MsgBox "計算前 : " & Format(ThisDate1, "yyyy/MM/dd hh:mm:dd") & Chr(13) & _
"計算後 : " & Format(ThisDate2, "yyyy/MM/dd hh:mm:dd")
▽ ３か月前
'変数の設定
Dim ThisDate1, ThisDate2 As Date
'今日の日付・時間を取得
ThisDate1 = Now
'3か月後を取得
ThisDate2 = DateAdd("m", -3, ThisDate1)
'取得結果をメッセージボックスで出力
MsgBox "計算前 : " & Format(ThisDate1, "yyyy/MM/dd hh:mm:dd") & Chr(13) & _
"計算後 : " & Format(ThisDate2, "yyyy/MM/dd hh:mm:dd")
Dim ThisDate1, ThisDate2 As Date
'今日の日付・時間を取得
ThisDate1 = Now
'3か月後を取得
ThisDate2 = DateAdd("m", -3, ThisDate1)
'取得結果をメッセージボックスで出力
MsgBox "計算前 : " & Format(ThisDate1, "yyyy/MM/dd hh:mm:dd") & Chr(13) & _
"計算後 : " & Format(ThisDate2, "yyyy/MM/dd hh:mm:dd")
カテゴリー: VBa(Excelマクロ), システム開発
コメントする
【ポケモンＧＯ】ジムにポケモンを設置してもポケコインがゲットできない？(2018/1/21~)
2018年1月21日のある時点を境に、ポケモンをジムに設置してもポケコインがゲット出来なくなっているようです。
※ その後、ジムにポケモンを設置したらポケコインがゲットできるようになりました
画像を見てもらうと分かるように、1/21 1:10に戻ってきたエーフィはポケコインのマーク+50の表示がありますが、1/21 13:41に戻ってきたハピナスはポケコインの表示がありますせん。
時間が短かったのかな？と思い、他のジムで試してみましたが、結果は同じでした。
表示だけかな？と思いましたが、ショップでポケコインの残高を確認しても増えていないので、ジムにポケモンを設置しても、ポケコインがゲット出来なくなってる？
※ その後、ジムにポケモンを設置したらポケコインがゲットできるようになりました
画像を見てもらうと分かるように、1/21 1:10に戻ってきたエーフィはポケコインのマーク+50の表示がありますが、1/21 13:41に戻ってきたハピナスはポケコインの表示がありますせん。
時間が短かったのかな？と思い、他のジムで試してみましたが、結果は同じでした。
表示だけかな？と思いましたが、ショップでポケコインの残高を確認しても増えていないので、ジムにポケモンを設置しても、ポケコインがゲット出来なくなってる？
【ポケモンＧＯ】雪景色(2018/1/21)
東京２３区内でも４年振りの大雪で積もってますが、ポケモンＧＯでも雪景色です！
雪が降る地域では、去年12月頃には当たり前のように見ていた景色かもしれませんが、雪が余り降らない地域だと新鮮に感じました。
天候が雪ということで、こおり・はがねタイプのポケモンが多く湧くという事ですが・・年末年始のイベントの印象がまだあるので、珍しさが無いのが残念です。
雪が降る地域では、去年12月頃には当たり前のように見ていた景色かもしれませんが、雪が余り降らない地域だと新鮮に感じました。
天候が雪ということで、こおり・はがねタイプのポケモンが多く湧くという事ですが・・年末年始のイベントの印象がまだあるので、珍しさが無いのが残念です。
【ポケモンＧＯ】コミュニティ・デイ(2018/1/20)
2018年1月20日12時～15時にかけてPokémon GO コミュニティ・デイが開催されました。(公式サイト)
月に１回のイベントで、内容は下記の通りです。
１．特定のポケモン(初回はピカチュウ)が
一定時間(初回は3時間)大量発生する
２．特別なわざ(初回はなみのり)を覚えている
３．ルアーモジュールの効果が3時間に延長
４．経験値・星の砂が多く獲得できる
残念ながらバッテリー切れでフルに３時間できませんでしたが、ピカチュウを約９０匹程ゲットできました！
よく見ると、星マークの付いたピカチュウがいます。よ～く見ないと分かりませんが、実は色違いピカチュウで、一覧画面でも分かりやすく表示されるようになりました。
タップして詳細画面を見ると、ピカチュウがキラキラしてます。
３匹程ゲットできたので、１匹ライチュウに進化してみると・・・こちらもキラキラ星を出してます。
来月は何が大量発生するんだろう？平日ではなく、是非休日の日中やって欲しいイベントです！
