指摘を受けたとき、ありがとございますと言えるのが大人だと思うよ

指摘を受けたとき、ありがとございますと言えるのが大人だと思うよ

そこで、むくれたりするのは幼稚園児と同じ

誰だってありがとう言ってくれた人を悪くは言いにくい

ありがとうと言わない人は、一緒に仕事していてつまらない

それは日々の挨拶や年賀状みたいなもの

礼を知るのが社会人なのかなと

解ってもらえると思うのは甘え

聞こえないような小さい声では、届くわけがない

相手だって永遠の命の持ち主ではないから、、

日々、ちゃんと礼を伝えて行きたいと思う、、

VBA: 構造体を使った配列、動的に増やす

構造体(クラス)と配列って、基本だと思うんだけど、、

開発経験が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ってスナップショットタイプしか取得れなかったかな?

VBA: strconvが使えないPCがある、、数年前にもあったと思う、 FWの問題だっけ?

しょうがないから、代替え関数を作ってみる

まずは、全角カナ文字を出力してみる、、、

Public Function dispChrW()
    
    Dim i
    For i = &H30A1 To &H30FF
        Debug.Print ChrW(i);
    Next i

End Function

文字コードは以下を参考にした

Unicode 片仮名 - CyberLibrarian

文字を置き換えはこうで良いのかな? めちゃ性能悪そう、、

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回(水木金)って決めてるから、実際にはもっと少ない

www.topvalu.net

chiechiefarm.com

/* -----codeの行番号----- */