参考資料 - 表示形式

表の見方です。 1列目：指定する書式 2列目：実際の値 3列目：セルの表示形式の場合の表示 4列目：TEXT関数から返される文字列 と     セルの表示形式の表示に差があるかの判定結果でNGの場合だけ記載 5列目：Format関数から返される文字列 と     セルの表示形式の表示に差があるかの判定結果でNGの場合だけ記載

[ExcelVBA Tip集 - 表示形式]の動画はこちら

---

経過時間のプロシージャ例

Sub 経過時間_WorksheetFunction_Text()
    Dim datDiff As Date

    datDiff = CDate("2010/1/2 1:30:15") - CDate("2010/1/1")

    MsgBox WorksheetFunction.Text(datDiff, "[h]") '25
    MsgBox WorksheetFunction.Text(datDiff, "[m]") '1530
    MsgBox WorksheetFunction.Text(datDiff, "[s]") '91815
End Sub

---

主な書式 - セル・TEXT関数・Format関数

どの様に表示されるか各自挑戦してみましょう。
試行錯誤で新しい発見があるかもしれませんね!!

すべての値を非表示

文字幅分の間隔を空ける

書式記号の数に合わせて小数部の桁数が四捨五入

ゼロのみ非表示

数値の頭に0を付加

桁区切り

パーセンテージ

通貨記号

年、月、日

和暦

曜日

時刻