6_7.[T U V W X Y]

VB/VBAの 組み込み関数 TOP-Pageへ

こちらも役に立つ情報
各関数の使用例
Tab
Print # ステートメントまたは Print メソッドと 一緒に 使用して、出力を配置します
この例では、 Tab 関数を 使用して、ファイルとイミディエイト ウィンドウに出力を 配置します
記述凡例
' The Tab function can be used with the Print # statement.
Open "TESTFILE" For Output As #1    ' Open file for output.
' The second word prints at column 20.
Print #1, "Hello"; Tab(20); "World."
' If the argument is omitted, cursor is moved to the next print zone.
Print #1, "Hello"; Tab; "World"
Close #1    ' Close file.
Tan
角度の正接を指定する Double を返します
Tan(number)
必須の number 引数は、Double または角度 (ラジアン) を示す任意の有効な 数値式です
度をラジアンに変換するには、度にπ/180 を掛けます
ラジアンから度に変換するには、ラジアンに 180/pi を掛けます
記述凡例
Dim MyAngle, MyCotangent
MyAngle = 1.3    ' Define angle in radians.
MyCotangent = 1 / Tan(MyAngle)    ' Calculate cotangent.
Time
現在のシステム時間を示す バリアント型 (Variant)(日付) を返します
システム時刻を設定するには、Time ステートメント を使用 します
記述凡例
Dim MyTime
MyTime = Time    '現在のシステム時刻を返します
Timer
午前 0 時からの経過秒数を表す単精度浮動小数点数型 (Single) の値を返します
このWindows Timer 関数 は、秒の小数部を返します。 Macintosh では、タイマー刻みは 1 秒です
記述凡例
Dim PauseTime, Start, Finish, TotalTime
        If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
            PauseTime = 5    ' Set duration.
            Start = Timer    ' Set start time.
            Do While Timer < Start + PauseTime
                DoEvents    ' Yield to other processes.
            Loop
            Finish = Timer    ' Set end time.
            TotalTime = Finish - Start    ' Calculate total time.
            MsgBox "Paused for " & TotalTime & " seconds"
        Else
            End
        End If
TimeSerial
特定の時、分、および秒の時刻を含む Variant (Date) を返します
TimeSerial(hour, minute, second)
hour	Variant (Integer)。 0 (12:00 A.M.) から 23 (11:00 P.M.) の範囲 の数字、または 数式です。
minute	Variant (Integer)。 任意の数式です。
second	Variant (Integer)。 任意の数式です。
記述凡例
Dim MyTime
        MyTime = TimeSerial(16, 35, 17)    ' MyTime contains serial 
            ' representation of 4:35:17 PM.
TimeValue
時刻が含まれる バリアント (Variant) 型 (日付 (Date) 型) の値を返します
TimeValue(time)
必須の time 引数は、通常、0:00:00 (12:00:00 A.M.) から 23:59:59 (11:59:59 P.M.) の時間を表す文字列式です。 
ただし、time には、その範囲の時刻を表す任意の 式を指定することもできます。 time に Null が含まれている場合は、Null が返されます
記述凡例
Dim MyTime
        MyTime = TimeValue("4:35:17 PM")    ' Return a time.
Trim
指定した文字列の先頭と末尾の両方のスペースを除いたコピー
関連[LTrim][RTrim]
Trim(string)
必須の string 引数は、任意の有効な 文字列式です。 string に Null が含まれている場合は Null が返されます
記述凡例
Dim StrVal
StrVal = "  Trim  "
MsgBox "LTrim = [" & LTrim(StrVal) & "]"
MsgBox "RTrim = [" & RTrim(StrVal) & "]"
MsgBox "Trim = [" & Trim(StrVal) & "]"
TypeName
変数に関する情報を提供する文字列型 (String) の値を返します
TypeName によって返される文字列は以下のいずれかです。

object, Byte, Integer, Long, Single, Double, Currency, Decimal, Date, String, Boolean, Error, Empty, Null, Unknown, Nothing
記述凡例
UBound
配列の指定 された次元 で使用可能な最大の下付き文字を含む長いデータ型を返 します
UBound(arrayname, [ dimension ])
arrayname	必須です。 配列変数の 名前。標準の変数の名前付け規則に従います。
dimension	省略可能。Variant (Long)。 返されるディメンションの上限を示す数値です。 最初の次元には 1、2 は 2 を使用します。 ディメンション を 省略すると、1 と見なされます
記述凡例
Dim Upper
        Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.
        Dim AnyArray(10)
        Upper = UBound(MyArray, 1)    ' Returns 10.
        Upper = UBound(MyArray, 3)    ' Returns 20.
        Upper = UBound(AnyArray)      ' Returns 10.
UCase
指定した文字列が含まれる Variant (String) を、大文字に変換して返します
UCase(string)

必須の string 引数は、任意の有効な 文字列式です。 string に Null が含まれている場合は Null が返されます
記述凡例
Dim LowerCase, UpperCase
        LowerCase = "Hello World 1234"    ' String to convert.
        UpperCase = UCase(LowerCase)    ' Returns "HELLO WORLD 1234".
Val
文字列に含まれる数値を、適切な型の数値として返します
Val(string)

必須の string 引数は、任意の有効な 文字列式です
記述凡例
Dim MyValue
        MyValue = Val("2457")    ' Returns 2457.
        MyValue = Val(" 2 45 7")    ' Returns 2457.
        MyValue = Val("24 and 57")    ' Returns 24.
VarType
変数のサブタイプ、またはオブジェクトの既定の プロパティの種類を示す整数型 (Integer) の値を返 します
VarType(varname)

必要な varname 引数は、ユーザー定義型の変数を除く変数を含む バリアント型 (Variant) です
記述凡例
Dim MyCheck
        Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
        ' Initialize variables.
        IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
        Set AppVar = Excel.Application
        ArrayVar = Array("1st Element", "2nd Element")
        ' Run VarType function on different types.
        MyCheck = VarType(IntVar)   ' Returns 2.
        MyCheck = VarType(DateVar)  ' Returns 7.
        MyCheck = VarType(StrVar)   ' Returns 8.
        MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                                    ' even though AppVar is an object.
        MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                                    ' `8192 + 12`, the computation of
                                    ' `vbArray + vbVariant`.
Weekday
週の曜日を表す整数が含まれる Variant (Integer) を返します
Weekday(date, [ firstdayofweek ])
date	必須。 日付を表すことができるバリアント型 (Variant)、数式、文字列式、またはその任意の組み合わせです。 date に Null が含まれている場合は Null が返されます。
firstdayofweek	省略可能。 週の最初の曜日を指定する定数です。 指定しなかった場合は、vbSunday が使用されます
記述凡例
Dim MyDate, MyWeekDay
        MyDate = #February 12, 1969#    ' Assign a date.
        MyWeekDay = Weekday(MyDate)    ' MyWeekDay contains 4 because 
            ' MyDate represents a Wednesday.
WeekdayName
指定した曜日を示す文字列を返します
WeekdayName(weekday, abbreviate, firstdayofweek)
weekday	必須。 曜日を示す数値を指定します。 各曜日の数値は、firstdayofweek の設定によって異なります
abbreviate	省略可能。 曜日名を省略するかどうかを示すブール型 ( Boolean ) の値を指定します。 省略した場合の既定値は False で、曜日名は省略されません
firstdayofweek	省略可能。 週の最初の曜日を示す数値を指定します。 値については、「設定」セクションを参照してください
記述凡例
Year
年を表す整数を含む Variant (整数) を返します
Year(date)
必須の date 引数は、日を表す任意の Variant、数式、文字列式、または任意の組み合わせです。 date に Null が含まれている場合は Null が返されます
記述凡例
Dim MyDate, MyYear
        MyDate = #February 12, 1969#    ' Assign a date.
        MyYear = Year(MyDate)    ' MyYear contains 1969.