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 ------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/gambas-user
