blob: 9245ab3ceeccb9ad2ac4d27af9e4d32bba6be0d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
Attribute VB_Name = "ModTask_02"
Option Explicit
Option Base 1
Sub Task_02()
''Const nTrainNum As Integer = 2
Const nTrainNum As Integer = 6
Dim strArrivalArr(1 To nTrainNum) As String, strDepartArr(1 To nTrainNum) As String
Dim strPlatFormDepart() As String, nPlatFormNum As Integer
Dim nLoop As Integer, nSubLoop As Integer, nTemp As Integer
Dim strMsg As String
ReDim strPlatFormDepart(1 To 1)
'Initialize
'' strArrivalArr(1) = "11:20": strArrivalArr(2) = "14:30"
'' strDepartArr(1) = "11:50": strDepartArr(2) = "15:00"
strArrivalArr(1) = "10:20": strArrivalArr(2) = "11:00": strArrivalArr(3) = "11:10": strArrivalArr(4) = "12:20": strArrivalArr(5) = "16:20": strArrivalArr(6) = "19:00"
strDepartArr(1) = "10:30": strDepartArr(2) = "13:20": strDepartArr(3) = "12:40": strDepartArr(4) = "12:50": strDepartArr(5) = "20:20": strDepartArr(6) = "21:20"
nPlatFormNum = 1
If nTrainNum > 1 Then
For nLoop = 1 To nTrainNum
If nLoop > 1 Then
nTemp = nPlatFormNum
For nSubLoop = 1 To nPlatFormNum
If strArrivalArr(nLoop) < strPlatFormDepart(nSubLoop) Then
nTemp = nTemp - 1
Else
strPlatFormDepart(nSubLoop) = strDepartArr(nLoop)
Exit For
End If
Next nSubLoop
If nTemp = 0 Then
nPlatFormNum = nPlatFormNum + 1
ReDim Preserve strPlatFormDepart(1 To nPlatFormNum)
strPlatFormDepart(nPlatFormNum) = strDepartArr(nLoop)
End If
Else
strPlatFormDepart(nLoop) = strDepartArr(nLoop)
End If
Next nLoop
End If
strMsg = "Minimum " & nPlatFormNum & " platform(s) is/are needed"
MsgBox strMsg, vbOKOnly, strMyTitle
End Sub
|
