Visual Basic 6.0

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Visual Basic 6.0

Dim success As Long
success = 0

Dim crypt As New ChilkatCrypt2

success = crypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
If (success = 0) Then
    Debug.Print crypt.LastErrorText
    Exit Sub
End If

Dim numSigners As Long
numSigners = crypt.NumSignerCerts
Debug.Print "Num Signers = " & numSigners

Dim i As Long
i = 0
Do While i < numSigners
    If (crypt.HasSignatureSigningTime(i) = 1) Then
        Debug.Print (i + 1) & ": " & crypt.GetSignatureSigningTimeStr(i)
    Else
        Debug.Print (i + 1) & ": has no signing time."
    End If

    i = i + 1
Loop

' Sample output:

' Num Signers = 1
' 1: Sun, 03 Dec 2013 06:57:41 GMT