VistaへアップグレードしてからWindows7へ
先日カキコしましたWindows７でのつまずき
・・・
結局はWindows Vistaへアップグレードしてから
さらにWindows ７へアップグレードするという
とっても面倒くさい
方法を行うことにしました。
だって、だって、
いろんな製品の再インストールと再登録が面倒くさい！
なにより！Cドライブデータが消えるのがイヤ！！( ￣っ￣)
もう1つ・・・
Vistaへのアップグレード経験がまったく無いため、
これでは仕事上よくないので、今のうちに試してみる
ということも考えて(-"-;A・・・・
一番面倒くさい方法をとることとなりました。
さて、まずはXP⇒Vista
Vistaの正規DVDをセットしてStart!
アップグレードで互換性不具合が表示されたが、
かまわず突き進む！
SCSI Controler
Windows Messenger
Windows SetUp
.Net Framework 2.0
で互換性がないんだって・・・・
SCSIはベンダー仕様だからいいけど、
後はMicrosft製品なのにヾ(▼ﾍ▼；)・・・・・
そして突き進んでいくと、ファイル展開中で
まさかのエラーストップ！！Σ(ﾟдﾟ;)
メッセージには
「Windows コンピューターのブート構成を更新できませんでした。」
なにそれ？？？？ヽ((◎д◎ ))ゝ
ググって見るとMSサポートにありました。
（機械語翻訳で見にくい・・・・）
どうやらレジストリの破損かなんからしい・・・
直接レジストリ操作するかFix itをダウンロードして
Msiでプログラムの自動修正でやるか選べたんで、
自動修正MSIをダウンロードして修正開始。
程なく終了し、Vistaアップグレードを再チャレンジ！！
今度こそ！
しかし、まさかのエラー再現！！Σ(･ω･;|||
ブート構成っていうぐらいだから、Fixbootしようかな？
とも思ってみたりしたんですが、HD内容を確認したとき
なんか余計なHDの領域を発見！
どうやら、メーカー側のインストール時に作った
別ブート領域３２MBがあるようで、
それがなんらかの不具合なのだろうか？？？？
ちなみにメーカーは「DELL」
とりあえず、メーカーサポートをフル活用して
やれるだけやってみよう！
メーカーとやり取りしたらまたカキコしま～す
・・・結局はWindows Vistaへアップグレードしてから
さらにWindows ７へアップグレードするという
とっても面倒くさい
方法を行うことにしました。だって、だって、
いろんな製品の再インストールと再登録が面倒くさい！
なにより！Cドライブデータが消えるのがイヤ！！( ￣っ￣)
もう1つ・・・
Vistaへのアップグレード経験がまったく無いため、
これでは仕事上よくないので、今のうちに試してみる
ということも考えて(-"-;A・・・・
一番面倒くさい方法をとることとなりました。
さて、まずはXP⇒Vista
Vistaの正規DVDをセットしてStart!
アップグレードで互換性不具合が表示されたが、
かまわず突き進む！
SCSI Controler
Windows Messenger
Windows SetUp
.Net Framework 2.0
で互換性がないんだって・・・・
SCSIはベンダー仕様だからいいけど、
後はMicrosft製品なのにヾ(▼ﾍ▼；)・・・・・
そして突き進んでいくと、ファイル展開中で
まさかのエラーストップ！！Σ(ﾟдﾟ;)
メッセージには
「Windows コンピューターのブート構成を更新できませんでした。」
なにそれ？？？？ヽ((◎д◎ ))ゝ
ググって見るとMSサポートにありました。
（機械語翻訳で見にくい・・・・）
どうやらレジストリの破損かなんからしい・・・
直接レジストリ操作するかFix itをダウンロードして
Msiでプログラムの自動修正でやるか選べたんで、
自動修正MSIをダウンロードして修正開始。
程なく終了し、Vistaアップグレードを再チャレンジ！！
今度こそ！
しかし、まさかのエラー再現！！Σ(･ω･;|||
ブート構成っていうぐらいだから、Fixbootしようかな？
とも思ってみたりしたんですが、HD内容を確認したとき
なんか余計なHDの領域を発見！
どうやら、メーカー側のインストール時に作った
別ブート領域３２MBがあるようで、
それがなんらかの不具合なのだろうか？？？？
ちなみにメーカーは「DELL」
とりあえず、メーカーサポートをフル活用して
やれるだけやってみよう！
メーカーとやり取りしたらまたカキコしま～す
娘たちがテキパキ動いた理由
今日はもう月曜日なんで一昨日かな？
土曜日の朝は仕事で憂鬱なのに
娘たちが驚くほど動いてさっさと
出かけていったと書きました。
理由が分かりました。
実は・・・・・
任天堂DSをたくさん出来るからだそうです。
ついでにWiiも・・・
ゲームかい！！
どうやら、土曜日は宿題が終わってさえいれば
たくさんできるらしぃ
日曜日もやりまくったのに・・・
土曜日もやりまくっていたのか・・・
みなさん！
子供がテキパキ動いてくれるときは
何か裏があります！
（皆がそうではないでしょうが・・・）
げんきんな娘たち！そして策略家な娘たち！
多分、たくましく生きていけるでしょう！
土曜日の朝は仕事で憂鬱なのに
娘たちが驚くほど動いてさっさと
出かけていったと書きました。
理由が分かりました。
実は・・・・・
任天堂DSをたくさん出来るからだそうです。
ついでにWiiも・・・
ゲームかい！！
どうやら、土曜日は宿題が終わってさえいれば
たくさんできるらしぃ
日曜日もやりまくったのに・・・
土曜日もやりまくっていたのか・・・
みなさん！
子供がテキパキ動いてくれるときは
何か裏があります！
（皆がそうではないでしょうが・・・）
げんきんな娘たち！そして策略家な娘たち！
多分、たくましく生きていけるでしょう！
ゲーム三昧な家族たち～でした。
休みの日は外に行って騒ぐ！！(￣▽+￣*)っていうのが
結構好きなんですが、今日は昨日の仕事疲れと
ちょこっと飲みに行った後の眠さＯｏ｡｡(￣￢￣*)もあって
家でだらだらだらだら( °д°)
長女も、お友達と遊ぶ約束をしていたので
家でまっていたんですが、お友達は自宅で
お留守番という事で、予定が無くなり
家でだらだらだらだら( °д°)
次女は外に行くよりママと一緒にいるのが
好きなようで、家で遊んでいたのですが、
ちょっと飽きてきたようで
家でだらだらだらだら( °д°)
嫁も1週間の疲れを取りたいらしく
家でだらだらだらだら( °д°)
うちの家族は、だらだらです！！
という事で、だらだら一家の気晴らし！
プレステ2でゲーム三昧です。
長女・次女ともにだらだらとゲーム。
嫁はPCの前で花札ゲーム
オレも長女と次女に混じってゲーム。
そとで遊べ！！
と言われそうだが・・・・ゲーム
ゲーム三昧で1日が終わりました。
来週はさすがに動こう！
だって、もう師走だから・・・
結構好きなんですが、今日は昨日の仕事疲れと
ちょこっと飲みに行った後の眠さＯｏ｡｡(￣￢￣*)もあって
家でだらだらだらだら( °д°)
長女も、お友達と遊ぶ約束をしていたので
家でまっていたんですが、お友達は自宅で
お留守番という事で、予定が無くなり
家でだらだらだらだら( °д°)
次女は外に行くよりママと一緒にいるのが
好きなようで、家で遊んでいたのですが、
ちょっと飽きてきたようで
家でだらだらだらだら( °д°)
嫁も1週間の疲れを取りたいらしく
家でだらだらだらだら( °д°)
うちの家族は、だらだらです！！
という事で、だらだら一家の気晴らし！
プレステ2でゲーム三昧です。
長女・次女ともにだらだらとゲーム。
嫁はPCの前で花札ゲーム
オレも長女と次女に混じってゲーム。
そとで遊べ！！
と言われそうだが・・・・ゲーム
ゲーム三昧で1日が終わりました。
来週はさすがに動こう！
だって、もう師走だから・・・
本日は・・・・仕事・・・・・・
週末というのに、お仕事
・・・・
ふぅ～ε=(｡・д・｡)
実を言うと、今日の仕事の予定は
月初に決めて出勤にしていたのだが、
昨日までにその仕事が終わってしまって、
今日はぜんぜんやる気無しワークなのさ！
かわいそうなのは子供たち
・・・・
休みたいって言っていたのに、
親の都合で学童保育に(´□｀｡)
と思っていたら！！∑(ﾟДﾟ)
いつもの学校に行く時間に起きて、
着替えて飯食べて、
「いってきま～す！」
おいおい
いつもよりテキパキ動くやないか！ヾ(▼ﾍ▼；)
なんで週末だけそんな動き？
学校の日もさっさと動けよ！
パパは面倒くさい仕事なのに・・・
ねむっていてぇ～
明日は休み。
それだけ考えて今は時間を過ごそう！
なにやってるのかぁ～？娘達・・・・
・・・・ふぅ～ε=(｡・д・｡)
実を言うと、今日の仕事の予定は
月初に決めて出勤にしていたのだが、
昨日までにその仕事が終わってしまって、
今日はぜんぜんやる気無しワークなのさ！
かわいそうなのは子供たち
・・・・休みたいって言っていたのに、
親の都合で学童保育に(´□｀｡)
と思っていたら！！∑(ﾟДﾟ)
いつもの学校に行く時間に起きて、
着替えて飯食べて、
「いってきま～す！」
おいおい
いつもよりテキパキ動くやないか！ヾ(▼ﾍ▼；)
なんで週末だけそんな動き？
学校の日もさっさと動けよ！
パパは面倒くさい仕事なのに・・・
ねむっていてぇ～
明日は休み。
それだけ考えて今は時間を過ごそう！
なにやってるのかぁ～？娘達・・・・
VBAで第何回目の何曜日の日付ってやつを求める。。。
第2・第3土曜日がお休みで第4水曜日はなんかする
っていうプログラムを組めって・・・・
そんなの作ったことねぇ～し！！
でも、カンタンにできそうな感じがするから
うちのライブラリに入れる為に
関数化しちゃおう！！
と、つくり始めたんだが、意外と算数的なところでつまずく
月の始めが木曜日だったら、
土曜日は2日後で、そこから第3土曜日を求めるには
７×３を足せばいいから、第3土曜日は23日かな？
これだけ見れば簡単な算数なんだが・・・・
第何週の何曜日というのを引数にして日付を求める
ってことをしたとき、異様に面倒くさくなった。
Weekday関数で最初の日付の曜日を求めて
Mod関数を使って求めたい曜日の修正値を求めて
それを足して引いて第何ってとこに７かけて足して引いて
あああああああああーーーーーヾ(｡｀Д´｡)ﾉ
と頭の中で算数しながら出した答えが↓↓↓
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'第○○曜日の日付を返す。
'Parameter:YearS as Integer=年、Monthes as Integer=月
' Cnt as integer=指定数、Weekday as Integer=曜日
'Return:Date 日付
'
'備考：1:日曜/2:月曜/3:火曜/4:水曜/5:木曜/6:金曜/7:土曜
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CountWeekday(YearS As Integer, _
Monthes As Integer, _
Cnt As Integer, _
SetWeekday As VbDayOfWeek) As Date
CountWeekday = CDate("1900/1/1")
On Error Resume Next
Dim intweek As Integer
Dim FirstDay As Date
FirstDay = DateSerial(YearS, Monthes, 1)
intweek = Weekday(FirstDay, vbSunday)
Dim I As Integer
Dim GotoWeek As Integer
I = ((SetWeekday - vbSunday + 7) Mod 7) + 1
GotoWeek = I - intweek + (Cnt - 1) * 7
Dim FirstWeek As Integer
FirstWeek = I - intweek
Dim CntDay As Date
CntDay = DateAdd("d", FirstWeek, FirstDay)
CountWeekday = DateAdd("d", GotoWeek, FirstDay)
If DateDiff("m", CntDay, FirstDay) = 1 Then
CountWeekday = CountWeekday + 7
End If
End Function
ふぅ～ε=(｡・д・｡)
やってみたら簡単だった・・・・
深く考えると物事はすすまないよ！
あっさり始めてみる事が大事なのかもね。
まぁ～、適当人間な俺には説得力ないですけど！なにか！？
Access VBA逆引き大全600の極意―2002/2003/2007対応/高柳 靖子
￥2,520
Amazon.co.jp
っていうプログラムを組めって・・・・
そんなの作ったことねぇ～し！！
でも、カンタンにできそうな感じがするから
うちのライブラリに入れる為に
関数化しちゃおう！！
と、つくり始めたんだが、意外と算数的なところでつまずく
月の始めが木曜日だったら、
土曜日は2日後で、そこから第3土曜日を求めるには
７×３を足せばいいから、第3土曜日は23日かな？
これだけ見れば簡単な算数なんだが・・・・
第何週の何曜日というのを引数にして日付を求める
ってことをしたとき、異様に面倒くさくなった。
Weekday関数で最初の日付の曜日を求めて
Mod関数を使って求めたい曜日の修正値を求めて
それを足して引いて第何ってとこに７かけて足して引いて
あああああああああーーーーーヾ(｡｀Д´｡)ﾉ
と頭の中で算数しながら出した答えが↓↓↓
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'第○○曜日の日付を返す。
'Parameter:YearS as Integer=年、Monthes as Integer=月
' Cnt as integer=指定数、Weekday as Integer=曜日
'Return:Date 日付
'
'備考：1:日曜/2:月曜/3:火曜/4:水曜/5:木曜/6:金曜/7:土曜
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CountWeekday(YearS As Integer, _
Monthes As Integer, _
Cnt As Integer, _
SetWeekday As VbDayOfWeek) As Date
CountWeekday = CDate("1900/1/1")
On Error Resume Next
Dim intweek As Integer
Dim FirstDay As Date
FirstDay = DateSerial(YearS, Monthes, 1)
intweek = Weekday(FirstDay, vbSunday)
Dim I As Integer
Dim GotoWeek As Integer
I = ((SetWeekday - vbSunday + 7) Mod 7) + 1
GotoWeek = I - intweek + (Cnt - 1) * 7
Dim FirstWeek As Integer
FirstWeek = I - intweek
Dim CntDay As Date
CntDay = DateAdd("d", FirstWeek, FirstDay)
CountWeekday = DateAdd("d", GotoWeek, FirstDay)
If DateDiff("m", CntDay, FirstDay) = 1 Then
CountWeekday = CountWeekday + 7
End If
End Function
ふぅ～ε=(｡・д・｡)
やってみたら簡単だった・・・・
深く考えると物事はすすまないよ！
あっさり始めてみる事が大事なのかもね。
まぁ～、適当人間な俺には説得力ないですけど！なにか！？
Access VBA逆引き大全600の極意―2002/2003/2007対応/高柳 靖子
￥2,520
Amazon.co.jp