PowerPoint プレゼンテーション

(1)

(2)





整数の型



少数点を含む型

(3)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

(4)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

バイト型

サイズ：

_1バイト

範囲

０～255

(5)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

長整数型

サイズ：

_4バイト

範囲

-2,147,483,648～2,147.483,647

(6)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

整数型

サイズ：

_2バイト

範囲

-32,768～32,767

(7)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

長整数型

サイズ：

_4バイト

範囲

-2,147,483,648～2,147,483,647

(8)



整数の型の種類



Byte



Integer



Long



_{LongLong(64bit版のみ）}

多倍長整数型

サイズ：

_8バイト

範囲

_{-9,223,372,036,854,775,808 ～}

9,223,372,036,854,775,807

(9)



(10)



(11)



Public Sub TestIntegerDataType()

End Sub

(12)



‘整数型の使用例

Public Sub TestIntegerDataType()

End Sub

(13)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

End Sub

(14)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

End Sub

(15)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

End Sub

(16)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

End Sub

(17)

(18)

(19)

(20)

(21)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Debug.Print "bytDataの内容：" & bytData

End Sub

(22)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Debug.Print "bytDataの内容：" & bytData

End Sub

(23)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Debug.Print "bytDataの内容：" & bytData

End Sub

(24)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Dim lngData as Long

Debug.Print "bytDataの内容：" & bytData

Debug.Print "lngDataの内容：" & lngData

End Sub

(25)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Dim lngData as Long

Debug.Print "bytDataの内容：" & bytData

Debug.Print "lngDataの内容：" & lngData

End Sub

(26)



'整数型の使用例

Public Sub TestIntegerDataType()

‘ ～ ( 省略 ) ～

bytData = 123

lngData = 8000

Debug.Print “変更後bytDataの内容：" & bytData

Debug.Print "変更後lngDataの内容：" & lngData

End Sub

(27)



'整数型の使用例

Public Sub TestIntegerDataType()

Dim bytData as Byte

Dim lngData as Long

Debug.Print "bytDataの内容：" & bytData

Debug.Print "lngDataの内容：" & lngData

End Sub

(28)



'整数型の使用例

Public Sub TestIntegerDataType()

‘ ～ ( 省略 ) ～

bytData = 110105

lngData = 8000

Debug.Print “変更後bytDataの内容：" & bytData

Debug.Print "変更後lngDataの内容：" & lngData

End Sub

(29)



'整数型の使用例

Public Sub TestIntegerDataType()

‘ ～ ( 省略 ) ～

bytData = 110105

lngData = 8000

Debug.Print “変更後bytDataの内容：" & bytData

Debug.Print "変更後lngDataの内容：" & lngData

End Sub

(30)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

(31)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

固定小数点とは、ある桁に小数点が

固定されている。

計算誤差をしてはいけないときに使

う。

(32)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

浮動小数点は一定の範囲内の誤差で

近い数値に近似できる。

極端な数値を扱う分野で使う。

(33)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

通貨型

サイズ：

_8バイト

範囲

_{-922,337,203,685,477.5808}

～922,337,203,685,477.5807

(34)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

単精度浮動小数点数型サイズ：_4バイト負の値の範囲_{:-3.402823E38 ～ -1.401298E-45} 正の値の範囲_{:1.401298E-45 ～ 3.402823E38}

(35)



小数点を含む型の種類



固定少数点



_Currency



浮動小数点



_Single



_Double

1.401298E-45

→1.401298× 10

-45

小数点以下がごく細かい

(36)



小数点を含む型の種類



固定少数点



_Currency



浮動小数点



_Single



_Double

3.402823E38

→3.402823× 10

38 すごく大きい桁

(37)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

(38)



小数点を含む型の種類



固定小数点



_Currency



浮動小数点



_Single



_Double

倍精度浮動小数点数型サイズ：_8バイト負の値の範囲_{:-1.79769313486231E308 E308} ～ -4.94065645841247E-324 正の値の範囲_{:4.94065645841247E-324} ～_{1.79769313486231E308 E308}

(39)



Public Sub TestDoubleDataType() Dim data As Double

Dim i As Long data = 0 For i = 1 To 10 data = data + 0.1 Next i If data = 1 Then

Debug.Print "フフフ計画通り..." & data Else

Debug.Print "げせぬ..." & data End If

(40)



(41)



(42)



(43)



(44)



(45)



あ

_{…ありのまま今起こったことを話すぜ}

『

_{0.1を十回足しても１にならない。}

でも表示だけは１のふりをする』

な

…なにを言っているのか

わからねーとおもうが、

おれも何をされたかわからなかった

_…

頭がどうにかなりそうだった

_…

計算誤差とか

チャチナもんじゃあ断じてねぇ

もっと恐ろしいものの片鱗を味わったぜ

…

(46)



(47)



Public Sub TestCurrencyDataType() Dim data As Currency

(48)



Public Sub TestCurrencyDataType() Dim data As Currency

(49)





整数の型



少数点を含む型

(50)





整数の型



少数点を含む型

(51)



Interger型さんディスンなよ

バカなの？

アホなの？

ワゴンなの？

質問１

(52)



質問にかこつけて

神ゲーをディスるとは

汚いな

さすが

Integer

汚い

回答１

(53)



俺はこれで

Integer型

嫌いになったな

俺は中立の立場で

見てきたけど、

やはり

Long型中心に

いったほうがいい事が

判明した

回答１

(54)



あと、

OfficeXP時代の

ドキュメントに

Long型の方がちょっと

効率がいいとあった

これはもう、

Long型が

いいのは確定的に明か

回答１

(55)



The Integer, Long, and

Byte Data Types

(56)



Traditionally, VBA programmers have used integers to hold small numbers, because they required less memory.

The Integer, Long, and

Byte Data Types

http://msdn.microsoft.com/en-us/library/aa164754%28office.10%29.aspx

伝統的に_{VBAプログラマは小さい数を保持してInteger型を使った} なぜならば、（_{Long型にくらべて）メモリの要求が少なかったからだ。}

(57)



In recent versions, however, VBA converts all integer values to type Long, even if they are declared as type Integer.

The Integer, Long, and

Byte Data Types

しかしながら、最近のバージョンでは、_{VBAはすべての整数}

の値を_{Long型に変換する。たとえそれがInteger型で宣言されて} いたとしてもだ。

(58)



Therefore, there is no longer a performance advantage to using Integer variables

The Integer, Long, and

Byte Data Types

したがってもはや_{Integer型の宣言にパフォーマンス上の有利は} ない。

(59)



in fact, Long variables might be slightly faster because VBA does not have to convert them.

The Integer, Long, and

Byte Data Types

実際、_{Long型の変数が多少早いかもしれない。}

(60)



Integer vs Long

パフォーマンステスト

参考：「_{VBA性能向上委員会」} _{Integer型とLong型はどちらを使うべき？} http://www.banana-juice.com/VBA/Performance/Statement/IntLong.html

(61)



計測方法：・_{-32,768～32,767までのループで和、差、積、商、余の計算する。} ・これを100回くりかえした時にかかった時間を出力する。 ・時間の出力にはTimerを使用する ・以上を１セットとして、これを10セット行う。 ・このアルゴリズムはInteger,Long共有である。 このプログラムは今回のサンプル用のワークブックにある。 mdlPerformanceTest. TestPerformance（）を参照のこと。

Integer vs Long

パフォーマンステスト

(62)



実験環境：

・実装メモリ(RAM) 4.00GB

・プロセッサ：

Intel® Core™ i5 CPU M450 @2.40GHz 2.40GHz ・OS:

Windows 7 Home Premium

_{64Bit オペレーティングシステム}

・Microsoft Office Home and Business2010 バージョン 14.0.6129.5000 (32ビット）

Integer vs Long

(63)



(-) Integer(Sec) Long(Sec) (1) 0.7333984 0.7177734 (2) 0.734375 0.7324219 (3) 0.7490234 0.7333984 (4) 0.7490234 0.7333984 (5) 0.7636719 0.7177734 (6) 0.7490234 0.7333984 (7) 0.7324219 0.71875 (8) 0.7470703 0.734375 (9) 0.7480469 0.734375 (10)0.7480469 0.7333984 (平均) 0.74541015625 0.72890625