指摘を受けたとき、ありがとございますと言えるのが大人だと思うよ
そこで、むくれたりするのは幼稚園児と同じ
誰だってありがとう言ってくれた人を悪くは言いにくい
ありがとうと言わない人は、一緒に仕事していてつまらない
それは日々の挨拶や年賀状みたいなもの
礼を知るのが社会人なのかなと
解ってもらえると思うのは甘え
聞こえないような小さい声では、届くわけがない
相手だって永遠の命の持ち主ではないから、、
日々、ちゃんと礼を伝えて行きたいと思う、、
指摘を受けたとき、ありがとございますと言えるのが大人だと思うよ
そこで、むくれたりするのは幼稚園児と同じ
誰だってありがとう言ってくれた人を悪くは言いにくい
ありがとうと言わない人は、一緒に仕事していてつまらない
それは日々の挨拶や年賀状みたいなもの
礼を知るのが社会人なのかなと
解ってもらえると思うのは甘え
聞こえないような小さい声では、届くわけがない
相手だって永遠の命の持ち主ではないから、、
日々、ちゃんと礼を伝えて行きたいと思う、、
名前を省略しがち
聞くたびに違う名称を使っている
質問に回答していない
これは病気なんだと思う 人の話をちゃんと聞いてないから、アウトプットが期待値になっていない
構造体(クラス)と配列って、基本だと思うんだけど、、
開発経験が15年オーバの社員が 解ってない衝撃、、で、メモを残す、、
Private Type typ支給UP群 ID As Byte UP単位 As Currency UP金額 As Currency 上限金額_無資格者 As Currency 上限金額_有資格者 As Currency UP金額first As Currency End Type '--- Dim tbl支給UP群() As typ支給UP群 Dim tbl支給UP群_MAX As Integer '--- tbl支給UP群を初期化する。 public sub initWk() '------------------------------------ Erase tbl支給UP群 ’ 配列の初期化 tbl支給UP群_MAX = 0 Set RsMST = GFC_GetRs(cn, False, "select * FROM m支給UP群") Do While Not RsMST.EOF tbl支給UP群_MAX = tbl支給UP群_MAX + 1 ReDim Preserve tbl支給UP群(tbl支給UP群_MAX) ’配列を1つ拡張する。 With tbl支給UP群(tbl支給UP群_MAX) .ID = RsMST!ID .UP単位 = RsMST!UP単位 .UP金額 = RsMST!UP金額 .UP金額first = RsMST!UP金額first .上限金額_無資格者 = RsMST!上限金額_無資格者 .上限金額_有資格者 = RsMST!上限金額_有資格者 End With RsMST.MoveNext Loop RsMST.Close End sub
行数が増えるから、withってあまり使いたくない、、 当然、要素数が最初から分かっている場合は、事前確保しておく方が性能はよい、、 recordset.countってスナップショットタイプしか取得れなかったかな?
しょうがないから、代替え関数を作ってみる
まずは、全角カナ文字を出力してみる、、、
Public Function dispChrW() Dim i For i = &H30A1 To &H30FF Debug.Print ChrW(i); Next i End Function
文字コードは以下を参考にした
文字を置き換えはこうで良いのかな? めちゃ性能悪そう、、
Public Function CnvKanaToHira(inps) As String Const sKataist = "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヲン" Const sHiraist = "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわをん" Dim slen: slen = Len(sKataist) Dim wt$: wt$ = inps Dim i% For i = 1 To slen wt$ = Replace(wt$, Mid(sKataist, i, 1), Mid(sHiraist, i, 1)) Next CnvKanaToHira = wt$ End Function
500 弁当 200 サラダ 240 コーヒ x2 ----- 940 x 20 = 18,800-
18,800あったら、家族と食事して、日帰り温泉へ3回は行ける。 特に、毎日、雨の日も、雪の日も、コンビニへ移動する時間、レジ待ちの時間がもったいない
そう思うと、カップ麺とレトルト御飯とタマゴ、納豆、スティックコーヒーで済ましてしまう。 てか、実家暮らしなら、前の日のおかずを詰めてくれば良いだけなのでは?と思う、、
40 スティックコーヒー 100 カップ麺 (TOP VALUE) 35 納豆 (ひきわり) 88 レトルト御飯 22 タマゴ1個 ------ 267 x 20 = 5740
納豆は週3回(水木金)って決めてるから、実際にはもっと少ない