'ClassPlan

Public Org As String
Public Des As String
Public FlyNo As String
Public StartDate As Variant
Public TextStartTime As Variant
Public TextEndTime As Variant
Public StartTime As Variant
Public EndTime As Variant
Public EndDate As Variant
Public BackDate As Variant 'mod_GetPlan
Public Sub GetPlan()
If Now() > #6/5/2018# Then Exit Sub
Dim sht As Worksheet
Dim osht As Worksheet
Set osht = ThisWorkbook.Worksheets("TOTAL")
Set sht = ThisWorkbook.Worksheets("Collocation-0")
Dim Origin, Connecting, Destination, TripDate, Stay
With sht
Origin = .Range("D3").Text
Connecting = .Range("F3").Text
Destination = .Range("H3").Text
TripDate = CDate(.Range("J3").Value)
Stay = CLng(.Range("K3").Value) .UsedRange.Offset(15).ClearContents
End With Dim dPlan As Object
Dim dUsed As Object
Dim dBackDate As Object Set dPlan = CreateObject("Scripting.Dictionary")
Set dUsed = CreateObject("Scripting.Dictionary") '记录所有航班信息
Dim Plan As ClassPlan
With osht
EndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
EndCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column
PlanCount = 0
Set Rng = .Range(.Cells(1, 1), .Cells(EndRow, EndCol))
Arr = Rng.Value
DateIndex = 0
For j = LBound(Arr, 2) + 8 To UBound(Arr, 2)
'获取初始日期
If Arr(2, j) <> "" Then
StartDate = DateAdd("d", DateIndex, CDate(Format(Arr(2, j), "yyyy/mm/dd")))
End If
'获取航班日期
FlyDate = DateAdd("d", DateIndex, StartDate)
DateIndex = DateIndex + 1 '逐行检查
For i = LBound(Arr) + 5 To UBound(Arr)
If Arr(i, j) = "Y" Then
PlanCount = PlanCount + 1
Set Plan = New ClassPlan
With Plan
.FlyNo = Arr(i, 3)
.Org = Arr(i, 5)
.Des = Arr(i, 6)
.StartDate = FlyDate
.TextStartTime = Replace(Arr(i, 7), " ", "")
.StartTime = CDate(FlyDate + Arr(i, 7))
If InStr(1, Arr(i, 8), "+1") > 0 Then
et = CDate(Replace(Arr(i, 8), "+1", ""))
.EndTime = CDate(DateAdd("d", 1, FlyDate) + et)
.TextEndTime = Replace(Arr(i, 8), "+1", "")
ElseIf InStr(1, Arr(i, 8), "-1") > 0 Then
et = CDate(Replace(Arr(i, 8), "-1", ""))
.EndTime = CDate(DateAdd("d", -1, FlyDate) + et)
.TextEndTime = Replace(Arr(i, 8), "-1", "")
Else
.EndTime = CDate(FlyDate + CDate(Arr(i, 8)))
.TextEndTime = Arr(i, 8)
End If .EndDate = CDate(Format(.EndTime, "yyyy/mm/dd"))
.BackDate = Format(DateAdd("D", 0, .EndDate), "yyyy/mm/dd") 'If .FlyNo = "S73211" Then Debug.Print "结束时间:"; .EndTime; "返回日期 :"; .BackDate
'Debug.Print .StartTime; " 抵达日期和时间 "; .EndTime
End With
Set dPlan(CStr(PlanCount)) = Plan
End If
Next i
Next j
End With ' 开始寻找符合条件的航班
'第一层循环 检查出发日期、出发地、中转地是否符合条件
Dim OneGo, GoBefore
Dim OneCnn, GoAfter
Dim OneBack, BackBefore
Dim OneAfter, BackAfter
Dim Index As Long
Dim HeadRow As Long
HeadRow = 15
For Each OneGo In dPlan.keys
If dUsed.exists(OneGo) = False Then
Set GoBefore = dPlan(OneGo)
'若出发日期符合条件
If Abs(DateDiff("d", GoBefore.StartDate, TripDate)) <= 3 Then
'若出发地和中转地符合条件
If GoBefore.Org = Origin And GoBefore.Des = Connecting Then
'Debug.Print GoBefore.FlyNo
dUsed(OneGo) = ""
'第二层循环 中转地、目的地、检查出发时间是否符合条件
For Each OneCnn In dPlan.keys
If dUsed.exists(OneCnn) = False Then
Set GoAfter = dPlan(OneCnn)
'若中转地和目的地符合条件
If GoAfter.Org = Connecting And GoAfter.Des = Destination Then
'若中转起飞时间符合条件
If DateDiff("h", GoBefore.EndTime, GoAfter.StartTime) > 2 And DateDiff("h", GoBefore.EndTime, GoAfter.StartTime) < 48 Then
dUsed(OneCnn) = ""
'Debug.Print GoBefore.FlyNo; " "; GoBefore.StartDate; ">>>>"; GoAfter.FlyNo; " "; GoAfter.BackDate Set dBackDate = CreateObject("Scripting.Dictionary")
'保留符合返程条件的出发日期
For off = -3 To 3
bd = Format(DateAdd("d", Stay + off, CDate(GoAfter.BackDate)), "yyyy/mm/dd")
'Debug.Print "回程日期 "; bd
dBackDate(bd) = ""
Next off '第三层循环返程
For Each OneBack In dPlan.keys
If dUsed.exists(OneBack) = False Then
Set BackBefore = dPlan(OneBack)
'回程日期
bd = Format(BackBefore.StartDate, "yyyy/mm/dd")
'若回程日期符合预设范围
If dBackDate.exists(bd) Then
'如果出发地与中转地相符,记下航班信息
If BackBefore.Org = Destination And BackBefore.Des = Connecting Then
'Debug.Print "回程航班:"; BackBefore.FlyNo; " "; BackBefore.StartDate
dUsed(OneBack) = ""
'第四层循环 返程中转
For Each OneAfter In dPlan.keys
Set BackAfter = dPlan(OneAfter)
If dUsed.exists(OneAfter) = False Then
'若回程中转出发地和目的地符合条件
If BackAfter.Org = Connecting And BackAfter.Des = Origin Then
'若中转时间符合要求
If DateDiff("h", BackBefore.EndTime, BackAfter.StartTime) > 2 And DateDiff("h", BackBefore.EndTime, BackAfter.StartTime) < 48 Then dUsed(OneAfter) = ""
Index = Index + 1
With sht
Debug.Print "往返完全符合条件的线路" & Index
.Cells(Index + HeadRow, "C").Value = Index
'GO
.Cells(Index + HeadRow, "D").Value = GoBefore.FlyNo
.Cells(Index + HeadRow, "E").Value = GoBefore.StartDate
.Cells(Index + HeadRow, "F").Value = GoBefore.TextStartTime
.Cells(Index + HeadRow, "G").Value = GoBefore.TextEndTime .Cells(Index + HeadRow, "H").Value = GoAfter.FlyNo
.Cells(Index + HeadRow, "I").Value = GoAfter.StartDate
.Cells(Index + HeadRow, "J").Value = GoAfter.TextStartTime
.Cells(Index + HeadRow, "K").Value = GoAfter.TextEndTime
'Back
.Cells(Index + HeadRow, "L").Value = BackBefore.FlyNo
.Cells(Index + HeadRow, "M").Value = BackBefore.StartDate
.Cells(Index + HeadRow, "N").Value = BackBefore.TextStartTime
.Cells(Index + HeadRow, "O").Value = BackBefore.TextEndTime .Cells(Index + HeadRow, "P").Value = BackAfter.FlyNo
.Cells(Index + HeadRow, "Q").Value = BackAfter.StartDate
.Cells(Index + HeadRow, "R").Value = BackAfter.TextStartTime
.Cells(Index + HeadRow, "S").Value = BackAfter.TextEndTime End With
End If
End If
End If
Next OneAfter
End If
End If
End If Next OneBack End If
End If
End If
Next OneCnn
End If
End If
End If
Next OneGo Set dUsed = Nothing
Set dPlan = Nothing
Set sht = Nothing
Set osht = Nothing
Set dBackDate = Nothing End Sub

  

20171205xlVBA往返航班组合的更多相关文章

  1. 移动IP 它最初设想每个人都在编写应用层(7)API而不是传输层(4)API 对于QUIC,连接的标识符不是“套接字”(源/目标端口/地址协议组合)的传统概念,而是分配给连接的64位标识符

    小结: 1. 因为您对OSI模型的教育中缺少的一点是,它最初设想每个人都在编写应用层(7)API而不是传输层(4)API.应该有像应用程序服务元素之类的 东西,它们可以以标准方式处理文件传输和消息传递 ...

  2. 复杂的 Hash 函数组合有意义吗?

    很久以前看到一篇文章,讲某个大网站储存用户口令时,会经过十分复杂的处理.怎么个复杂记不得了,大概就是先 Hash,结果加上一些特殊字符再 Hash,结果再加上些字符.再倒序.再怎么怎么的.再 Hash ...

  3. JS继承之借用构造函数继承和组合继承

    根据少一点套路,多一点真诚这个原则,继续学习. 借用构造函数继承 在解决原型中包含引用类型值所带来问题的过程中,开发人员开始使用一种叫做借用构造函数(constructor stealing)的技术( ...

  4. ComponentPattern (组合模式)

    import java.util.LinkedList; /** * 组合模式 * * @author TMAC-J 主要用于树状结构,用于部分和整体区别无区别的场景 想象一下,假设有一批连锁的理发店 ...

  5. 安卓自定义组合控件--toolbar

    最近在学习安卓APP的开发,用到了toolbar这个控件, 最开始使用时include layout这种方法,不过感觉封装性不好,就又改成了自定义组合控件的方式. 使用的工具为android stud ...

  6. UML类图(下):关联、聚合、组合、依赖

    前言 上一篇文章UML类图(上):类.继承.实现,讲了UML类图中类.继承.实现三种关系及其在UML类图中的画法,本文将接着上文的内容,继续讲讲对象之间的其他几种关系,主要就是关联.聚合.组合.依赖, ...

  7. 面向组合子设计Coder

    面向组合子 面向组合子(Combanitor-Oriented),是最近帮我打开新世界大门的一种pattern.缘起haskell,又见monad与ParseC,终于ajoo前辈的几篇文章. 自去年9 ...

  8. Atitit 动态按钮图片背景颜色与文字组合解决方案

    Atitit 动态按钮图片背景颜色与文字组合解决方案 转换背景颜色,setFont("cywe_img", fontScale, 50, 5) 设置文字大小与坐标 文字分拆,使用字 ...

  9. Android自定义控件之自定义组合控件

    前言: 前两篇介绍了自定义控件的基础原理Android自定义控件之基本原理(一).自定义属性Android自定义控件之自定义属性(二).今天重点介绍一下如何通过自定义组合控件来提高布局的复用,降低开发 ...

随机推荐

  1. ps2016新功能

    1             内容识别缩放(alt ctrl shift c) 2            内容感知移动 3            画笔大小和画笔硬度调整 alt + 鼠标右键:上下为硬度 ...

  2. centos远程访问

    centos远程访问即windows下的mysql和linux下的mysql能连接,即windows下的navicat能连接到(访问)centos下的mysql中的库表 (centos是linux的一 ...

  3. P4390 [BOI2007]Mokia 摩基亚(cdq分治)

    一样是cdq的板子 照着园丁的烦恼就好了 代码 #include <cstdio> #include <cstring> #include <algorithm> ...

  4. P1829 [国家集训队]Crash的数字表格 / JZPTAB

    推式子太快乐啦!虽然我好蠢而且dummy和maomao好巨(划掉) 思路 莫比乌斯反演的题目 首先这题有\(O(\sqrt n)\)的做法但是我没写咕咕咕 然后就是爆推一波式子 \[ \sum_{i= ...

  5. IE10 解决input file 同一文件不触发onchange事件

    if (window.ActiveXObject) { var reg = /10\.0/; var str = navigator.userAgent; if (reg.test(str)) { v ...

  6. MPU6050

    MPU6050: Pitch,Roll,Yaw旋转方向遵循右手定则 pith角  –绕Y轴(俯仰)  范围:±90°  ,与旋转方向相反转是增大   -- 抬头为正,低头为负 roll角  –绕X轴( ...

  7. 使用vue做表单验证

    <template> <Form ref="formInline" :model="formInline" :rules="rule ...

  8. Lintcode449-Char to Integer-Naive

    Description Convert a char to an integer. You can assume the char is in ASCII code (See Definition, ...

  9. mac终端不好用?用brew神器代替

    一.概念 Brew是一款Mac OS平台下的软件包管理工具,拥有安装.卸载.更新.查看.搜索等很多实用的功能.简单的一条指令,就可以实现包管理,而不用你关心各种依赖和文件路径的情况,十分方便快捷. 官 ...

  10. Mysql 函数使用记录(三)——UNIX_TIMESTAMP() 、UNIX_TIMESTAMP(date)

    参考资料:https://dev.mysql.com/doc/refman/5.7/en/date-and-time-functions.html#function_unix-timestamp UN ...