【VBA】 Date型かどうか を判定する

引数で指定した変数が 数値型かどうか を判定する関数です。

関数概要

  • 関数名： FNCisDate
  • 入力引数； P_IN_Value ( Variant 型 ) ： Date型かどうか を判定する変数を指定します。
  • 出力引数： P_OUT_isDate ( Boolean 型) ： Date型 のとき True が設定されます。Date型ではない場合は False が設定されます。
  • 返り値：リターンコードが返却されます。

実行例

  • 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

  • 準備中

ソースコード

    '-----------------------------------------------------------------
    ' 入力チェック Date判定
    '-----------------------------------------------------------------
    Function FNCisDate(P_IN_Value As Variant, P_OUT_isDate As Boolean) As Integer
    On Error GoTo ErrorHandler
        FNCisDate = Me.ReturnError
        If IsDate(P_IN_Value) Then
            P_OUT_isDate = True
        Else
            P_OUT_isDate = False
        End If
        FNCisDate = Me.ReturnNomal
        Exit Function
    ErrorHandler:
        MsgBox Err.Number & ":" & Err.Description, vbCritical, "エラー"
        FNCisDate = Err.Number
        Exit Function
    End Function

ソースコード説明

  • 準備中

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格：1944円（税込、送料無料) (2019/7/23時点)

[

楽天で購入

](https://hb.afl.rakuten.co.jp/hgc/156e5f8f.d5d194cd.156e5f90.9ce91fc7/?pc=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F14714310%2F%3Fscid%3Daf_pc_bbtn&m=http%3A%2F%2Fm.rakuten.co.jp%2Fbook%2Fi%2F18413544%2F%3Fscid%3Daf_pc_bbtn&link_type=picttext&ut=eyJwYWdlIjoiaXRlbSIsInR5cGUiOiJwaWN0dGV4dCIsInNpemUiOiIyNDB4MjQwIiwibmFtIjoxLCJuYW1wIjoicmlnaHQiLCJjb20iOjEsImNvbXAiOiJkb3duIiwicHJpY2UiOjEsImJvciI6MSwiY29sIjoxLCJiYnRuIjoxfQ==)

コメント

タイトルとURLをコピーしました