Android Question Convert Date Format

Erel said:

Note that it changes the date format so make sure to explicitly set it before parsing dates in other places.

Click to expand...

Sub ConvertDate(date As String) As String
    Dim SaveDateFormat As String = DateTime.DateFormat
    DateTime.DateFormat = "dd-MM-yyyy"
    Dim t As Long = DateTime.DateParse(date)
    DateTime.DateFormat = "MMM''yyyy" 'two quotes as the quote needs to be escaped
    Dim Result As String = DateTime.Date(t)
    DateTime.DateFormat = SaveDateFormat
    Return Result
End Sub

RishiKumar2210 said:

I need to convert date(22-04-2023) into Apr'2023. Is it possible?

Click to expand...

Sub RishiFormat(D As String) As String
  
    Dim Mmm() As String = Array As String( _
        "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" _
    )
  
    Dim M As Int = D.SubString2(3, 5)    '2 digit month
    Dim Y As Int = D.SubString2(6, 10)    '4 digit year
  
    Return Mmm(M - 1) & "'" & Y

End Sub

Dim TestDate As String = "22-04-2023"
Log( TestDate & " becomes " & RishiFormat(TestDate) )

RishiKumar2210 said:

I need to convert date(22-04-2023) into Apr'2023. Is it possible?

Click to expand...

Sub NotRishiFormat(D As String) As String
 
    Dim Mmm() As String = Array As String( _
        "First", "Second", "Third", "Fourth", "Fifth", "Sixth", "Seventh", "Eighth", "Ninth", "Tenth", "Penultimate", "Last" _
    )
 
    Dim M As Int = D.SubString2(3, 5)    '2 digit month
    Dim Y As Int = D.SubString2(6, 10)    '4 digit year
 
    Return Mmm(M - 1) & " month of " & Y

End Sub

Erel said:

DateTime.DateFormat = "MMM''yyyy"

Click to expand...

DateTime.DateFormat = $"MMM${Chr(39)}${Chr(39)}yyyy"$

emexes said:

Not only is it possible, but it is possible in many ways, eg if you are confident of the date being in that exact 10-character format then you could add this Sub:

B4X:

Sub RishiFormat(D As String) As String
 
    Dim Mmm() As String = Array As String( _
        "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" _
    )
 
    Dim M As Int = D.SubString2(3, 5)    '2 digit month
    Dim Y As Int = D.SubString2(6, 10)    '4 digit year
 
    Return Mmm(M - 1) & "'" & Y

End Sub

and call it eg:

B4X:

Dim TestDate As String = "22-04-2023"
Log( TestDate & " becomes " & RishiFormat(TestDate) )

Click to expand...

emexes said:

Not only is it possible, but it is possible in many ways, eg if you are confident of the date being in that exact 10-character format then you could add this Sub:

B4X:

Sub RishiFormat(D As String) As String
 
    Dim Mmm() As String = Array As String( _
        "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" _
    )
 
    Dim M As Int = D.SubString2(3, 5)    '2 digit month
    Dim Y As Int = D.SubString2(6, 10)    '4 digit year
 
    Return Mmm(M - 1) & "'" & Y

End Sub

and call it eg:

B4X:

Dim TestDate As String = "22-04-2023"
Log( TestDate & " becomes " & RishiFormat(TestDate) )

Click to expand...