VB.NET

Get Certificate Valid To/From Dates

Demonstrates how to get the certificate "valid from" and "valid to" dates. VB.NET

Dim success As Boolean = False

Dim cert As New Chilkat.Cert

success = cert.LoadFromFile("qa_data/certs/testCert.cer")
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If


' Get the certificate valid-from date/time
Dim ckdt As New Chilkat.CkDateTime
ckdt.SetFromRfc822(cert.ValidFromStr)

' Get the local timestamp string.
Debug.WriteLine("Valid from: " & ckdt.GetAsTimestamp(True))
' Valid from: 2017-03-17T19:00:00-05:00

' Now get the date/time as another object where we can get the individual numeric date parts.
Dim dt As New Chilkat.DtObj
ckdt.ToDtObj(True,dt)

Debug.WriteLine(dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute)

' Get the certificate valid-to date/time
ckdt.SetFromRfc822(cert.ValidToStr)

Debug.WriteLine("Valid to: " & ckdt.GetAsTimestamp(True))
' Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
ckdt.ToDtObj(True,dt)

Debug.WriteLine(dt.Day & "/" & dt.Month & "/" & dt.Year & "  " & dt.Hour & ":" & dt.Minute)