【Excelマクロ(VBa)】日付の計算

投稿日: 2018年1月24日 作成者: 管理人

　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")

　　



カテゴリー: VBa(Excelマクロ), システム開発 | コメントする

【ポケモンＧＯ】ジムにポケモンを設置してもポケコインがゲットできない？(2018/1/21~)

投稿日: 2018年1月23日 作成者: 管理人
2018年1月21日のある時点を境に、ポケモンをジムに設置してもポケコインがゲット出来なくなっているようです。

　　※ その後、ジムにポケモンを設置したらポケコインがゲットできるようになりました



画像を見てもらうと分かるように、1/21 1:10に戻ってきたエーフィはポケコインのマーク+50の表示がありますが、1/21 13:41に戻ってきたハピナスはポケコインの表示がありますせん。

時間が短かったのかな？と思い、他のジムで試してみましたが、結果は同じでした。
表示だけかな？と思いましたが、ショップでポケコインの残高を確認しても増えていないので、ジムにポケモンを設置しても、ポケコインがゲット出来なくなってる？


カテゴリー: ポケモンGO | コメントする

【ポケモンＧＯ】雪景色(2018/1/21)

投稿日: 2018年1月22日 作成者: 管理人
東京２３区内でも４年振りの大雪で積もってますが、ポケモンＧＯでも雪景色です！



雪が降る地域では、去年12月頃には当たり前のように見ていた景色かもしれませんが、雪が余り降らない地域だと新鮮に感じました。

天候が雪ということで、こおり・はがねタイプのポケモンが多く湧くという事ですが・・年末年始のイベントの印象がまだあるので、珍しさが無いのが残念です。




カテゴリー: ポケモンGO | コメントする

【ポケモンＧＯ】コミュニティ・デイ(2018/1/20)

投稿日: 2018年1月21日 作成者: 管理人


2018年1月20日12時～15時にかけてPokémon GO コミュニティ・デイが開催されました。(公式サイト)

月に１回のイベントで、内容は下記の通りです。
　１．特定のポケモン(初回はピカチュウ)が
　　　一定時間(初回は3時間)大量発生する
　２．特別なわざ(初回はなみのり)を覚えている
　３．ルアーモジュールの効果が3時間に延長
　４．経験値・星の砂が多く獲得できる

残念ながらバッテリー切れでフルに３時間できませんでしたが、ピカチュウを約９０匹程ゲットできました！



よく見ると、星マークの付いたピカチュウがいます。よ～く見ないと分かりませんが、実は色違いピカチュウで、一覧画面でも分かりやすく表示されるようになりました。

タップして詳細画面を見ると、ピカチュウがキラキラしてます。



３匹程ゲットできたので、１匹ライチュウに進化してみると・・・こちらもキラキラ星を出してます。



来月は何が大量発生するんだろう？平日ではなく、是非休日の日中やって欲しいイベントです！


カテゴリー: ポケモンGO | コメントする

【ポケモンＧＯ】初のＥＸレイドパスなのに・・・

投稿日: 2018年1月16日 作成者: 管理人
出勤で家を出た直後、いつものようにポケＧＯを立ち上げた。

すると・・いつもと違う画面が出てきたので、バグったのかな？と思い、もう一度立ち上げ直そうと、改めて画面を確認したところ、こんな画面が表示されてました！！



×ボタンを押して、アイテム欄をチェックすると、確かにＥＸレイドパスゲットです(*^^)v



ついにミュウツーゲットの切符を手にしました！が、ちょっと待て？！

日にちをよ～く見ると平日水曜日14:30～って・・・その時間にのんびりとポケＧＯが出来る人って、余りいないと思う。仕事を休めというのだろうか？

打ち合わせ等が無ければ思い切って休むところだが、残念ながらちょうど打ち合わせが入っているので休めない。

よりによって何故そのタイミング？？？？

愚痴は尽きませんが伝説ポケモンの合間にスポンサージムで通常レイドボスとバトルして、ＥＸレイドパスを待つことにします(T_T)

ちなみに家族で３アカウント保有していて、レイドボスは同じジム、同じボス、同じタイミングでバトルしてますが、ゲットしたのは１アカウントだけ。ジムバッチは全て銀で、違うところといえば所属は２アカウント赤と１アカウント青に分かれてる程度。但し、今回は赤がゲットしたので、所属には差が無いとすると、ＥＸレイドパスの配布はランダムな抽選なのかな？


カテゴリー: ポケモンGO | コメントする