月: 2012年5月

仕事帰り、会社の後輩とディナー。
スペイン料理の店に入り、選ぶのが面倒とかで、コース料理を頼んだ。

いっぱいしゃべり、いっぱい食べた。

これからも心と体が元気で働いてくれたら、まぁいいや。
やりたいことが聞けたのもよかった。

私は・・・
元気になりすぎて、夜眠れませんでした・・・

やり始めたばかりで、よくわからん！

が、原住民の村を攻めに行く。
原住民の村は、
Lv1 兵力1
Lv2 兵力4
Lv3 兵力7
だったので、Lv5は13ぐらいかなぁ～と思ったら17だった。

よくわからん！

==============追記==============
Lv4 兵力12 Lv5 兵力17
Lv6 兵力24
Lv8 兵力40 Lv9 兵力48

休日を自動的に作成するマクロを作成中、ハッピーマンデーってどうやって求めるのかを考えた。

色々サイトを見たのだけれど、「結局どうやってやるのよ！」とか、「なんでこんなにこねくり回してるのよ！」とか、まぁとにかくあんまり参考になりそうなロジックがきれいに提示されているサイトがなかったので自分で作った。

引数に、年、月、週を設定すると、Date型の日付が返る仕組み

Private Function GetMondayDateFromYearMonthWeek(ByVal y As Integer, ByVal m As Integer, ByVal w As Integer) As Date

Dim t As Date

t = DateSerial(y, m, 1)
t = DateAdd(“d”, (8 – Weekday(t, vbMonday)) Mod 7, t) ‘1週目の月曜日
GetMondayDateFromYearMonthWeek = DateAdd(“d”, 7 * (w – 1), t)

End Function

例えば、GetMondayDateFromYearMonthWeek(2012,9,3)　とすると、戻り値は2012/9/17となる。

たぶんうまくいくと思うけど、2012年でしか試してない・・・

alter table [table名] alter column [column名] type numeric(1,0) using 0 ;
alter table [table名] alter column [column名] SET NOT NULL;
alter table [table名] alter column [column名] SET DEFAULT 0;

1つめは型変更(数値型に変える、すべて0に置きかえる)
　using to_number([column名],0)として、カラムの値を数値に置き換える場合もあり。
2つめは、NOT NULL定義にする場合。NOT NULLを外す場合はDROP NOT NULLとする。
3つめは、Default値の定義。こちらもDROP DEFAULT とすれば外れる。