Невозможно преобразовать дату JSon '1453204346' до 'ДД-ММ-YYYYY' формат

Question

На самом деле у меня есть десериализации этот JSon код:

{ 
    "id": "evt_17Uy2AJAW1ypyOFKd72w0Z6Q", 
    "object": "event", 
    "api_version": "2015-10-16", 
    "created": 1453204346, 
    "pending_webhooks": 1, 
    "request": "req_7kSy7UdDi03tB9", 
    "type": "invoice.payment_succeeded" 
} 

К этому VB код:

<Serializable> 
Public Class StripeHookResponse 
    Public Property id As String 
    Public Property [Object] As String 
    Public Property api_version As String 
    Public Property created As Integer 
    Public Property pending_webhooks As Integer 
    Public Property request As String 
    Public Property type As String 
End Class 

Dim stripeResponse As StripeHookResponse = 
       Newtonsoft.Json.JsonConvert.DeserializeObject(Of StripeHookResponse)(str) 

Но stripeResponse.created поддавки то же значение 1453204346. Пожалуйста, скрывайте его в формате dd-MM-yyyy с использованием кода VB.NET.

Answer 1

Надеемся, что этот пример кода может помочь вам в следующем:
Попробуйте это; помните, что JavaScript-месяцы индексируются по 0, в то время как дни 1-индексируются.

Передняя часть с Javascript

<script> 
      var date = new Date('2010-10-11T00:00:00+05:30');  
      alert(date.getDate() + '-' + (date.getMonth() + 1) + '-' + date.getFullYear());  
</script> 

Назад оканчиваться VB.NET

Dim thisDate1 As Date = #6/10/2011# 
Console.WriteLine("Today is " + thisDate1.ToString("MMMM dd, yyyy") + ".") 

Dim thisDate2 As New DateTimeOffset(2011, 6, 10, 15, 24, 16, TimeSpan.Zero) 
Console.WriteLine("The current date and time: {0:MM/dd/yy H:mm:ss zzz}", 
        thisDate2) 
' The example displays the following output: 
' Today is June 10, 2011. 
' The current date and time: 06/10/11 15:24:16 +00:00 

К вы хотите

Dim inp As String = "1204262016" Dim dt As DateTime = 
DateTime.ParseExact(inp, "yyMMddHHmm", CultureInfo.InvariantCulture) 

PS: вам нужно "Imports System.Globalization"

Answer 2

Public Shared Function UnixTimeStampToDateTime(ByVal unixTimeStamp As Double) As Date 
    ' Unix timestamp is seconds past epoch 
    Dim dtDateTime As New Date(1970, 1, 1, 0, 0, 0, 0, System.DateTimeKind.Utc) 
    dtDateTime = dtDateTime.AddSeconds(unixTimeStamp).ToLocalTime() 
    Return dtDateTime 
End Function 

dim req_date = UnixTimeStampToDateTime(stripeResponse.created) 

это даст ответа т.е. 19-01-2016 5:22:26 PM