Jabaco Source

Public Sub Form_Load()
   
   Dim Cal As New java#util#GregorianCalendar
   Dim jd As java#util#Date
   Dim dt As Date
   
   'jd = Cal.getTime   'Uuurgh
                       'Auto conversion 'Date' to 'java/util/date' is not supported!
                       
   'OK then let's do it this way and convert it afterwards... (?)
   dt = Cal.getTime
   MsgBox dt
   
   jd = CJUDate(dt)
   
   'but when giving to a function the next problem:
   'MsgBox Foo(jd)     'Uuurgh
                       'Auto conversion 'Date' to 'java/util/date' is not supported!
                       
End Sub
Private Function Foo(d As java#util#Date) As String
    Foo = d.toGMTString
End Function
Private Function CJUDate(d As Date) As java#util#Date
   CJUDate = New java#util#Date
   Dim y As Integer = Year(d)
   CJUDate.setYear(y - 1900)
   CJUDate.setMonth(Month(d))
   CJUDate.setDate(Day(d))
   CJUDate.setHours(Hour(d))
   CJUDate.setMinutes(Minute(d))
   CJUDate.setSeconds(Second(d))   
End Function

Source code

Public Sub Form_Load()
   Dim jd As java#util#Date
   MsgBox Foo(jd)                   'NOop
   MsgBox Foo(Conversion.CDate(jd)) 'Yes,OK
End Sub
Public Function Foo(d As java#util#Date) As String
    Foo = d.toLocaleString
End Function