Question

我一直在查看使用字母的this和this。这并不是我瞄准的目标。

我将收到8个不同的号码。我需要在特定点拆分它们，然后插入正斜杠。

示例：

传入的01012001需要等于01/01/2001

我一直在做这样的事情，即使我知道它没有完成。

        Dim dateString As String = Search_.IssuedDT.ToShortDateString
        Dim forwardSlash As Char = "/"
        Dim correctedString As String() = dateString.Split()

最重要的是，我必须在字符2和3以及4和5之间添加正斜杠。

Answer 1

解析日期需要注意：少数国家/地区使用月 - 日 - 年，许多其他国家/地区使用日 - 月 - 年。

让您了解可能的内容：

Option Infer On
Option Strict On

Module Module1

    Sub Main()
        Dim s = "31012001"
        Dim d As DateTime
        d = DateTime.ParseExact(s, "ddMMyyyy", Globalization.CultureInfo.InvariantCulture)

        ' if you need a string representation of the date:
        Dim q = d.ToString("dd/MM/yyyy")

        Console.WriteLine(q)

        ' leaving the date as a date, as it should be, and presenting it as a string:
        Console.WriteLine(d.ToString("dd-MMM-yyyy"))

        s = "01312001" ' not in ddMMyyyy format
        If DateTime.TryParseExact(s, "ddMMyyyy", Nothing, Globalization.DateTimeStyles.None, d) Then
            Console.WriteLine("Converted successfully as " & d.ToString("dd/MM/yyyy"))
        Else
            Console.WriteLine("Could not parse " & s & " as dd/MM/yyyy")
        End If


        Console.ReadLine()

    End Sub

End Module

根据VB.Net中特定数量的字符拆分字符串

1 个答案: