VB6年間積算日を取得する

スポンサーリンク

VB6 では、該当する関数はありませんので、DateDiff 関数を利用して以下のように自作します。

サンプルコード

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

VB6.0 以前
' -------------------------------------------------------------------------------
'       年間積算日を取得する。
'
' @Param    dtTarget    年間積算日を求める対象となる Date。
' @Return               年間積算日。
' -------------------------------------------------------------------------------
Public Function GetDayOfWeek(ByVal dtTarget As Date) As Integer
    Dim dtOffset As Date

    dtOffset = CDate(CStr(Year(dtTarget)) & "/1/1")

    GetDayOfWeek = CInt(DateTime.DateDiff("d", dtOffset, dtTarget)) + 1
End Function

使用例は以下のようになります。

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

    ' 年間積算日を取得する
    Dim iDayOfYear As Integer
    iDayOfYear = GetDayOfWeek(dtNow)

    ' 取得した年間積算日を表示する
    Call MsgBox(CStr(iDayOfYear))

関連するリファレンス

準備中です。

スポンサーリンク