センス・発想力？TimeAddって関数を予想する力？

メルマガ発行内容

＜センス・発想力？TimeAddって関数を予想する力？＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
センス・発想力・想像力?について、軽く書きたいと思います。
軽く読み流してね。
※VBAにTimeAddって関数は無いので、注意してね（笑）

/*
 * １．今回のキッカケ
*/

隣のASP系の掲示板で、
http://www.ken3.org/cgi-bin/bbs/asp/wforum.cgi
----
insert into 文　を　ひとつで　３つのデータを格納しなければいけないのですよね。　いじって見てましたが、だめでした。
すいません。教えてください。...

本屋で手当たり次第立ち読みしたのですが、insert into　の単文だけのしか見つけら
れなくて。
こういうのも普通本に出てるものですか？それともすぐ発想が浮かんでこなくては
だめなものなんでしょうか？

う〜ん　今年卒業してプログラマを目指してる就職浪人なんですが、、
みんなプログラマはセンスと言っているのでちょっと不安になってきました、、、とほほ
----
と
もらった質問で、
またまた、偉そうに、下記のように答えてました。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
INSERT INTO KANSOU (F_KUBUN, F_NO, F_MEMO) 
   VALUES ('ASP', 0, 'TEST DATA')
みたいに、フィールド名と入れる値をペアで複数書けば、ＯＫだと思います。

１つの方法は、ペアで作らないといけないので、
カンマの処理方法が一工夫いるのかな。
単純にやると、
S1,S2,S3,と最後のカンマの処理がポイントかなぁ。
※必ず前に付ける、後ろに付けるが出来ないので、
　いろいろあるけど、自信ないけどサンプルを２つ書きます。

sINTO = ""   '初期化
sVALUE = ""
For i = 1 To 3 '3項目作成する
　　x = Cstr(i) 
    sINTO  = sINTO  & "S" & x & ","
    sVALUE = sVALUE & "'" & Request.form("SS"+x) & "' ,"  
Next
'後ろのカンマを取りたいので、カンマ分取る
sINTO  = Left(sINTO, Len(sINTO) - 1)
sVALUE = Left(sVALUE, Len(sVALUE) - 1)
sSQL = "insert into Score(" & sINTO & ") values(" & sVALUE & ")"
Set rst = db.Execute(sSQL)

なんて感じで、a,b,c,として、最後のカンマを取るとか、
はじめに１番目の値を入れて置き、前カンマにするとか、
いろいろかなぁ。

sINTO = "S1"   '初期化
sVALUE = "'" & Request.form("SS1") & "'"
For i = 2 To 3 '２番目からループする
　　x = Cstr(i) 
    'カンマを前につけてから項目作成
    sINTO  = sINTO  & ",S" & x
    sVALUE = sVALUE & ",'" & Request.form("SS"+x) & "'"  
Next
sSQL = "insert into Score(" & sINTO & ") values(" & sVALUE & ")"
Set rst = db.Execute(sSQL)

> こういうのも普通本に出てるものですか？それともすぐ発想が浮かんでこなくては
>だめなものなんでしょうか？

なれの問題だと思うけど。
目標の処理は１つだけど、書き方が１つじゃないので、
いろいろと迷うんだけど。

> う〜ん　今年卒業してプログラマを目指してる就職浪人なんですが、、
> みんなプログラマはセンスと言っているのでちょっと不安になってきました、、、とほほ

センスかぁ、私も無いほうだからなんとも言えないけど、
センスがあると自分自身思っているまわりよりできる人は、
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
プログラムはセンスだ、オレにはアルと言いたがるけど・・・・
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ナンバー１目指さなければ、センス無くてもそこそこは大丈夫だと思うけど。
上の世代（今現役のプログラマー）、下の世代（学生など）
と競争しないといけないから、技術職は、大変なんだけど。

ヒラメキのセンスも重要だけど、それだけじゃないし。
なんて挫折した私が言うのも変だけど。
^^^^^^^^^^^^^^
--------------

No.1にならなくてもいい〜〜なんて、どこかのヒット曲のフレーズじゃないんだから、
やっぱＮｏ．１の勝ち組に入りたいよね・・・
私のような負け組にならないように、で終わるとヒントにもならないので、
前に愚痴系のネタで想像力について書いてたので、そのまま発行します。
※センスの表現って難しいんだけど、私がセンスを感じた質問でした。
　（将来、この人は伸びるなぁと感じた質問だったので、愚痴系のネタにしてました）

発想力やセンスについて、何かの参考になるといいけど。
※しつこいけど、努力型のプログラマーや作業者、私は好きだけどなぁ。
　まぁ、ハヤイ話、遊んでいる天才ウサギと休まない努力のカメは、
　祖母から聞いた昔話では
　努力型のカメが勝つんだけど、世の中は、そんなに甘くないんだよね。
　中には、遊ばない天才肌のウサギも現実に居るんだよね・・・差が埋まらないで開く
　それはアナタの努力が足りないとは言わない、だって努力だけではダメなのも事実。
　でも、それは今のままだったらって話、
　何かのキッカケで自分自身も天才肌で遊ばないプログラマーになればいいって事。
　皆さんは成長してくださいね。
　挫折した三流プログラマーのメルマガが何かのキッカケとなればうれしいです。
　(私も何かのキッカケを探しているけど、自分自身の才能は突然変異しなくって・・)

前置き長かったけど、拾い読みして参考となれば幸いです。

/*
 * ２．DateAdd関数を知っている人は笑うけど
*/

下記が、私に成長するなぁと感じさせた質問メールです。
-----
 >時間の計算を行いたいのでTimeAddをヘルプで調べたのですが見つかりません。
 >時間の計算方法をご教授下さい。(6時間後を計算したいのです)
-----
と、相談をもらいました。
※ご教授下さいの書き方は、キライなんだけど。

結論から書くと、
TimeAddってありそうな関数じゃなくて、
DateAddで時刻の計算が可能です。
^^^^^^^
Sub aaa()

    Dim dtmTEST As Date '日付時刻型
    
    dtmTEST = Now()  '現在時刻の代入
    MsgBox "現在時刻は" & dtmTEST & "です"
    
    'DateAdd関数で６時間後を計算する
    dtmTEST = DateAdd("h", 6, dtmTEST)
    MsgBox "6時間後は" & dtmTEST & "です"

End Sub

As Dateって、DATE型と言ってますが、日付型で時刻も管理可能なんですね。
As Timeってのが、ありそうでないんですよ。
^^^^^^^
で、日付の計算する関数、DateAddでｈを指定して、
時刻も計算できたんですね。
dtmTEST = DateAdd("h", 6, dtmTEST)
って感じで、６時間後を計算してます。

他にも、下記のような指定が可能です。
DateAdd(interval, number, date)
yyyy yyyy 
q 四半期 
m 月 
y 年間通算日 
d 日 
w 週日 
ww 週 
h 時 
n 分 
s 秒 

と、パラメータを与えると、イロイロと計算可能です。

/*
 * ３．質問者の一言にプログラマーとしての素質を感じる(感じた)
*/

DateAddだろ・・と笑った人も居るかもしれませんが、
私は、質問者の一言にプログラマーとしての素質を感じる(感じた)。

 >時間の計算を行いたいのでTimeAddをヘルプで調べたのですが見つかりません。

これって、DateAdd関数を知っているから（DateAddで日付を計算したことあった？）
TimeAddって関数もあるだろうと予想しての質問だと深読みしました。

DateAddで日付が計算可能なら、時刻はTimeAddだろう。
こんな感じの想像力もプログラマーとしては、必要だと思う。
^^^^^^^^^^^^^^^^^^
関数とは違うが、
Sheets.Addでシートの追加が出来ます。
これを覚えた人が居て、ワークシートの追加を新たにしたい時、
Workbooks.Addと同じメソッドが使えるのでは?
※同じ.Addメソッドを持っているのでは?

なんて感じで、予想できる力、想像力ってあると思う。

一歩一歩進む努力家もありだけど、ひらめき勝負もありかなぁ。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/*
 * ４．自分が探しきれないのには、どこが原因なのか？
*/

第一印象が良くて、質問者をいいプログラマーさんだ。将来伸びる・有望。
素質あるよ、と一部を見て思ってしまったが、ホントにそうなのか?
(一度、かわいい子、できる子と思うそんな先入観が邪魔をする?)
~~~~~~~~~~~~~~~~~~~~~~~~~~~
いつもの、逆の角度、立場から考えてみると、
実は、できる人って(できるプログラマーって)、
未知の関数など、調べ方がうまいんだよね。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
※逆を書くと私はヘタなので三流かなぁ。

先輩や掲示板で質問すると、回答を簡単にもらうんだけど、
自分が探しきれないのには、どこが原因なのか？
なぜ先輩は知っていた、掲示板の回答者の常連さんはどこから情報を仕入れている?
を考えると、今後の参考になると思う。

具体的に書くと、掲示板やＭＬ、三流作者に直接メールしたのは？
・会社に親切な出来る先輩が居ないので、ネットに頼った。
・資料が会社に無いので探せなかった
なんて、オレ様は優秀だけど先輩や職場環境が悪い、自分は悪くないパターンと、

自分が見れる資料があるのに探せなかった
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
・ヘルプを見たが探せなかった
・検索のキーワードが思いつかなかった
なんてパターンがあるのかなぁ。

その原因を自己分析して、次回の作業に活かす。
そんな繰り返しで、独り立ちできる一人前のプログラマーになっていくのかなぁ。

いつも先輩やＭＬなどで、ヘルプを見ろと言われている人は、
先輩や回答者が偉そうってのもあるんだけど、
成長して調べ方を学ぶといいかも。
~~~~~~~~~~~~~~~~~~~~

イヤ、職場環境だ、オレ様の実力を出し切れる会社、育ててくれる会社を探したい人は
下記も参考にしてみてね。

-【けんぞう！】---------------------------------------------------------
転職関係、在宅プログラマー、SOHOの広告まとめました
http://www.ken3.org/etc/500yen/zaitaku.html いろいろとあるので転機の人はぜひ
登録料無料、匿名で探せるので在宅で小金稼ぎの人も見てね
~~~~~~~~~~~~~~~~
オレ様、私は、ＳＥ様だ、月給３０万以上ボーナス100万を探すのもありだよ。
私にみたいにVBA少しできるぐらいだと仕事無いよ・・・
と軽く言われても匿名なら気にならないし（笑）
逆にこんな簡単な仕事で月給27万貰えるの？って会社もあるし、世の中イロイロ。
http://www.ken3.org/etc/500yen/job.html
------------------------------------------------------------------------　

/*
 * ５．終わりの挨拶
*/

今回は、
aspの掲示板の話と、
TimeAddは無くてDateAddですよのＱＡから、
勝手に話を広げてみました。

関数や事例紹介もいいけど、
資料の調べ方もメルマガの必要なネタかもしれませんね・・・

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？の負け組のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

In message "[VBAで楽しく No.141] - 箇条書きで必要部品を洗い出し単体テストする",
 >日光が斜めから射すので、まっすぐに伸びない？
 >^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 >植物の成長って、日光に向かって伸びるんですよね。
 >太陽の光がナナメからだったら、ナナメに伸びる・・・
 >（上司や先輩の育て方や光具合が、新人の成長に影響を与えるのも事実です・・・）
---
って、話じゃないですが、私の変なサンプル見て、ナナメに育たないように、、、、
※調べ方やプログラム作法ってのも、頭に入れて、作成してくださいね・・・・

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]