[Gambas-user] DateChooser strange behavior

[Gianluigi]

Why this simple code works only between 1 and 12 of each month?

Public Sub DateChooser1_Change()
  Dim d As Date, s As Integer, valore As String

  d = Date(DateChooser1.Value)
  valore = CString(d)
  s = Week(d)
  TextBox1.Text = s & " - " & CString(Val(valore))
End

Regards
Gianluigi