第一引数に指定した変数の型を示す数値を返す、もしくは第ニ引数に指定した型に変換します。
VARTYPE関数は、VAR_ARRAY（8192）を単独で返すことはありません。この値は常にデータ型を表す他の値との和で返され、そのデータ型の要素を持つ配列であることを示します。
例えば４バイト整数を配列の持つ場合、VAR_INTEGER（3） + VAR_ARRAY（8192） = 8195を返します。
- 構文
- VARTYPE( 変数, [変換タイプ] )
- 引数
- 変数
- 型を調べる変数
- 変換タイプ
- 型を変換する場合にタイプ指定
- 戻値
- VAR_EMPTY （0）
- Empty
- VAR_NULL （1）
- Null
- VAR_SMALLINT （2）
- ２バイト整数（符号付）
- VAR_INTEGER （3）
- ４バイト整数（符号付）
- VAR_SINGLE （4）
- 単精度浮動小数点値
- VAR_DOUBLE （5）
- 倍精度浮動小数点値
- VAR_CURRENCY （6）
- 通貨型
- VAR_DATE （7）
- 日付型
- VAR_DISPATCH（9）
- オブジェクト
- VAR_ERROR （10）
- エラー値
- VAR_BOOLEAN （11）
- ブール型
- VAR_VARIANT （12）
- バリアント
- VAR_UNKNOWN （13）
- 未定義のオブジェクト
- VAR_SBYTE （16）
- １バイト整数（符号付）
- VAR_BYTE （17）
- １バイト整数（符号なし）
- VAR_WORD （18）
- ２バイト整数（符号なし）
- VAR_DWORD （19）
- ４バイト整数（符号なし）
- VAR_INT64 （20）
- ８バイト整数（符号付）
- VAR_ASTR （256）
- ANSI文字列
- VAR_USTR （258）
- UNICODE文字列
- VAR_ARRAY（8192[$2000]）
- 配列
日付型
シリアル値を日付文字列に変換することができます。
DIM n = now() // Double型
PRINT VARTYPE(n, VAR_DATE) // Double型→Date型
//////////////////////////////////////////////////
// 【引数】
//
// 【戻値】
// 現在の日時
//////////////////////////////////////////////////
FUNCTION now()
GETTIME()
DIM datetime = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2
RESULT = (GETTIME(0, datetime) - GETTIME(0, "1899/12/30")) / 86400
FEND
- 結果
- 2021/10/01 18:15:00
指定できる形式。
「年/月/日」、「月/日」、「月/日/年」、「時:分:秒」、「時:分」。
「年：yyyy, yy, y」、「月：mm, m」、「日：dd, d」。
yは0〜9は2000〜2009年、yyは50〜99は1950〜1999年、00〜49は2000〜2049年、年は省略した場合は今年になります。
DIM date = “10/01”
PRINT VARTYPE(date, VAR_DATE)- 結果
- 2021/10/01
DIM date = “21/10/01”
PRINT VARTYPE(date, VAR_DATE)- 結果
- 2021/10/01
ブール型
0はFalse、0以外はTrueになります。
DIM n = 1 // Double型
n = VARTYPE(n, VAR_BOOLEAN) // Double型→Boolean型
PRINT n- 結果
- True
プログラム実行例
変数のデータ型の値を文字で取得
VARTYPE関数で取得したデータ型の値を、連想配列で文字に変換します。
HASHTBL type
type[VAR_EMPTY] = "Empty"
type[VAR_NULL] = "Null"
type[VAR_SMALLINT] = "２バイト整数"
type[VAR_INTEGER] = "４バイト整数"
type[VAR_SINGLE] = "単精度浮動小数点値"
type[VAR_DOUBLE] = "倍精度浮動小数点値"
type[VAR_CURRENCY] = "通貨型"
type[VAR_DATE] = "日付型"
type[VAR_DISPATCH] = "オブジェクト"
type[VAR_ERROR] = "エラー値"
type[VAR_BOOLEAN] = "ブール型"
type[VAR_VARIANT] = "バリアント"
type[VAR_UNKNOWN] = "未定義のオブジェクト"
type[VAR_SBYTE] = "１バイト整数"
type[VAR_BYTE] = "１バイト整数"
type[VAR_WORD] = "２バイト整数"
type[VAR_DWORD] = "４バイト整数"
type[VAR_INT64] = "８バイト整数"
type[VAR_ASTR] = "ANSI文字列"
type[VAR_USTR] = "UNICODE文字列"
type[VAR_ARRAY] = "配列"
DIM n = 123
PRINT type[VARTYPE(n)]- 結果
- 倍精度浮動小数点値
型を取得
DIM variable
variable = EMPTY
PRINT VARTYPE(variable) // 0（Empty）
variable = NULL
PRINT VARTYPE(variable) // 1（Null）
variable = 1 + 2
PRINT VARTYPE(variable) // 5（倍精度浮動小数点値）
variable = "あいうえお"
PRINT VARTYPE(variable) // 258（UNICODE文字列）- 結果
- 0
1
5
258
配列と格納されている値のデータ型を取得
配列のデータ型を取得します。
DIM path = "image.bmp"
DIM Stream = CREATEOLEOBJ("ADODB.Stream")
Stream.Open()
Stream.Type = 1
Stream.LoadFromFile(path)
DIM tmp = Stream.Read()
Stream.Close()
PRINT VARTYPE(tmp) // 8209（配列（１バイト整数（符号なし）））
PRINT VARTYPE(tmp[0]) // 17（１バイト整数（符号なし））- 結果
- 8209
17
配列かどうか調べるには
VARTYPE関数の戻値から配列の場合データ型を表す他の値との和で返されるので、戻値が「8192」よりも大きい値になります。そのため戻値が8192よりも大きければ配列と判断することができます。
IF num > 8192 THENまたはビット演算子のANDを使っても調べることができます。
PRINT IIF(num AND 8192, TRUE, FALSE)\[8192 = 2^{13}\]
この記事は役に立ちましたか？
