主题：[求助]高手帮忙，狐爸帮忙，谢谢

1,

Dim str1 As String = "24001075082104122D0319"
Dim str2 As String = "0000000000ABCDEFGHIJKLMNOPQRSTUV"
Dim s As String
For i As Integer = 14 To 17
    s + = str1(i)
Next
Dim str As String
For i As Integer = 0 To s.Length - 1
    If Char.IsLetter(s(i)) Then
        str = str & str2.IndexOf(s(i))
    Else
        If i > = 2 Then
            str = str & "0" & s(i)
        Else
            str = str & s(i)
        End If
    End If
Next
Output.Show("20" & str.Insert(2,"-").Insert(5,"-"))
Tables("订单").Current("日期") = "20" & str.Insert(2,"-").Insert(5,"-")

Dim dt1 As Date = Tables("订单").Rows(0)("日期")
Dim dt2 As Date = Date.Today
Dim ts As TimeSpan = dt2 - dt1
Output.Show(ts.TotalDays)

2, 开发版，打不开

3, 开发版，打不开