Calling gmtime function from CRTDLL failed

The next code

[vba]
Option Explicit


Type tm
tm_sec As Integer
tm_min As Integer
tm_hour As Integer
tm_mday As Integer
tm_mon As Integer
tm_year As Integer
tm_wday As Integer
tm_yday As Integer
tm_isdst As Integer
End Type

Private Declare Function gmtime Lib "crtdll" (ByVal val&) As tm

Public Sub R()
Dim T As tm
Dim v As Long
v = 0
T = gmtime(v)
MsgBox T.tm_year
End Sub
[/vba]

generates Error 49= "Bad DLL calling convention" on line with gmtime call

Does anybody know the reason?

With regards,
Marlog.

Hi Marlog,

There can be a few reasons for this error but I think the reason for yours is explained here

Another possible problem: your user-defined Type uses the VBA Integer data type, but the DLL function you are calling uses the C++ Int data type. C++ Int = VBA Long, not VBA Integer.