読者です 読者をやめる 読者になる 読者になる

騎空士ときどきプログラマーな日記

グラブルで頑張る騎空士の日常を綴ります。

【スマホゲーム】サウザンドメモリーズはパ○ドラより簡単でサクサクできて面白い?!

iOSAndroidで配信しているスマホゲーム

サウザンドメモリー

1週間前くらいから始めているんですけど、なかなか面白いんじゃないか?!

 

それまでは、某パ○ドラやってたけど、

仕事始めて、ダンジョン攻略とかめんどくさくなってきてるw

だって、時間気にしなきゃならないし、キャラ育てるのしんどいじゃない?(´・ω・`)

 

さて、本題!!

ゲームシステムはパ○ドラをすごく簡単にした感じ。

ただパ○ドラと違いストーリー性があるので、今後進展していく物語に期待

サクサクできるコンボゲーなので楽!!

 

ガチャの仕組みはよくある課金用アイテムを

ログイン特典で集めたり、課金して入手するような感じ

 

駄菓子菓子!!

現状、ある程度ゲームを進めていく上で

やっぱりそれなりに強いキャラ保持しないとしんどくなるので

無課金でプレイするなら

リセマラはほぼ必須と言っていいだろう・・・

 

まぁ、今始めるなら初回ガチャは☆4位上確定だしチャンスかもね( ・`ω・´)

 

と、言うことでもしこれを読んでやってくれる方がいたら

招待コード入力でガチャ用課金アイテムもらえるので、後はわかるよねw

→【633776367】←

戦闘プレイ動画


サウザンドメモリーズ プレイ戦闘動画 - YouTube

【VBA】 csv形式で日付を出力するときの書式変更に注意!!

社会人1年目のなーたんです。

 

最近仕事でExcel資料から必要なデータだけ取ってきて、

DBに登録するcsvファイル作成するマクロを作成したのだけれど・・・

 

日付の出力の際、SaveAsメソッドで保存すると西暦が末尾に来てしまう(´・ω・`)

具体的には、

【2014/1/12】 と出力したいのに 【1/12 2014】ってな感じになる

 

しっかりとYear()、Month()、Day()等で指定して並べてもこうなってしまうのだからなんじゃこりゃw

 

改善策としては、

 SaveAsメソッドの引数にLocalというのがあり、これをTrueにするってだけの話でしたwトホホ・・(;´д`)ノ| 柱 |

 

ソースでいうと…

------------------改善前-----------------------

'名前をつけてcsvファイルで新規保存
 Save_Filename = strFileName
 ThisWorkBook.SaveAs Filename:=Replace(Save_Filename, ".xls", ".csv"), FileFormat:=xlCSV

 

------------------改善後-----------------------

'名前をつけてcsvファイルで新規保存
 Save_Filename = strFileName
 ThisWorkBook.SaveAs Filename:=Replace(Save_Filename, ".xls", ".csv"), FileFormat:=xlCSV, Local:=True

 

この方法は、Microsoft Excel 2002以降で使用可能らしいですよ!