![]() 'value of Kendras is 585, and I could have used the + operator, but we ARE setting this up for Boolean operations, so.ĭebug.Print "The sixth house is a member of Kendras? " & ((SixthHouse And Kendras) > 0)ĭebug.Print "The fourth house is a member of Kendras? " & ((FourthHouse And Kendras) > 0) MsgBox SetIsIn(ColA, "1") & ", " & SetIsIn(ColA, "10")Ĭonst FirstHouse As Long = 1, SecondHouse As Long = 2, ThirdHouse As Long = 4, FourthHouse As Long = 8, FifthHouse As Long = 16Ĭonst SeventhHouse As Long = 64, EighthHouse As Long = 128, NinthHouse As Long = 256, TenthHouse As Long = 512, EleventhHouse As Long = 1024Ĭonst Kendras As Long = FirstHouse Or FourthHouse Or SeventhHouse Or TenthHouse Set IntersectRslt = CollIntersect(ColA, ColB) ![]() UnionRslt As Collection, IntersectRslt As CollectionĪddItem ColA, "10": addItem ColA, "20": addItem ColA, "30"ĪddItem ColB, "10": addItem ColB, "30": addItem ColB, "40" ![]() If X Is Nothing Then Set X = New Collectionįunction CollUnion(A As Collection, B As Collection) As Collectionįunction CollIntersect(A As Collection, B As Collection) As Collectionįunction SetIsIn(X As Collection, ItemVal) As Booleanĭim ColA As Collection, ColB As Collection, _ ![]() ![]() Sub addItem(ByRef X As Collection, Item As String) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |