Question

Private Airports As String() = {"MIA", "JFK", "HNL", "LAX", "DFW"}
    Private utcOffsets As Integer() = {-4, -4, -10, -7, -5}
    Private travelTimes As Double(,) = {{0, 3, 12, 8, 2.5}, _
      {3, 0, 14, 8.5, 3.5}, {12, 14, 0, 4.5, 8.5}, _
      {8, 8.5, 4.5, 0, 3.5}, {2.5, 3.5, 8.5, 3.5, 0}}                             
Private Sub FlightTime_Load() Handles MyBase.Load
    dtpDepartureDate.Value = Today
End Sub

Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles     btnGo.Click

    Dim departWhen As DateTime = dtpDepartureDate.Value.Date
    Dim departTime As DateTime
    Dim departIndex = cboDepartFrom.SelectedIndex
    Dim arriveIndex = cboArriveAt.SelectedIndex

    If cboDepartFrom.SelectedIndex < 0 Then
        errProvider.SetError(cboDepartFrom, "Select Departing Airport")
        Return
    End If
    If cboArriveAt.SelectedIndex < 0 Then
        errProvider.SetError(DirectCast(cboArriveAt, Control), "Select Destination Airport.")
        Return
    End If

    If Date.TryParse(txtDepartTime.Text, departTime) = Nothing Then
        errProvider.SetError(txtDepartTime, "Departure time must be in form 00:00")
        Return
    End If
    '
    departWhen = departWhen.AddHours(departTime.Hour)
    departWhen = departWhen.AddMinutes(departTime.Minute)
    'converting departure date/time to UTC time
    departWhen = departWhen.AddHours(-utcOffsets(departIndex))

    txtArrivalDateTime.Text = (departWhen & "  " & "Travel time is")
End Sub

结束课程我有这些列表，从组合框中选择离开的机场和目的地机场以及从DateTimePicker中选择的离开时间。在最终结果中，我需要显示到达日期/时间和总旅行时间，例如“您将于2015年2月13日3:00到达，总旅行时间为10小时”。关于如何从这一点着手的任何建议都将不胜感激。

将旅行时间从列表转换为UTC并返回到当地时间vb

0 个答案: