Sponsored Link

VB6秒 (Second) を取得する

VB6 では、DateTime モジュールの Second 関数を使用します。

サンプルコード

以下にサンプルコードを示します。

VB6.0
    ' 必要な変数を宣言する
    Dim dtNow As Date
    dtNow = DateTime.Now

    ' 秒 (Second) を取得する
    Dim iSecond As Integer
    iSecond = CInt(DateTime.Second(dtNow))