cls集計レコード

Option Explicit

'--------------------------------------------------
' クラス名 : cls集計レコード
' 概要     : 氏名・項番・対象日ごとの工数明細1行を保持するデータ構造
'--------------------------------------------------

' プロパティ（基本情報）
Public lng項番 As Long            ' 項番（ユニークな業務単位）
Public strツール名 As String      ' ツール名（見た目用）
Public str氏名 As String          ' 担当者名
Public str工程名 As String        ' 工程ラベル（工程A・工数など）

' プロパティ（日付・工数）
Public dtm対象日 As Date          ' 工数が発生した営業日
Public dbl工数 As Double          ' 1日分の平均工数
Public dbl元工数 As Double        ' 元の工数（工程全体の工数）

' プロパティ（元データの範囲）
Public dtm開始日 As Date          ' 工程の開始日
Public dtm終了日 As Date          ' 工程の終了日
Public lng営業日数 As Long        ' 工程全体の営業日数

' プロパティ（元セル情報）
Public str工数セルアドレス As String    ' 元の工数セルアドレス（A1形式）

'--------------------------------------------------
' 関数名 : fncToDebugString
' 機能概要 : クラス内容を1行の文字列として出力する（デバッグ用）
'--------------------------------------------------
Public Function fncToDebugString() As String

    fncToDebugString = _
        "項番: " & lng項番 & _
        " / ツール名: " & strツール名 & _
        " / 氏名: " & str氏名 & _
        " / 工程: " & str工程名 & _
        " / 対象日: " & Format(dtm対象日, "yyyy/mm/dd") & _
        " / 工数: " & Format(dbl工数, "0.00") & _
        " / 元工数: " & Format(dbl元工数, "0.00") & _
        " / 開始日: " & Format(dtm開始日, "yyyy/mm/dd") & _
        " / 終了日: " & Format(dtm終了日, "yyyy/mm/dd") & _
        " / 営業日数: " & lng営業日数 & _
        " / 工数セル: " & str工数セルアドレス

End Function

コメント