DateTime.DateFormat="yyyy-MM-dd"
Dim Year,Month, Day, DayNumber As Int
Do While rs.NextRow
Log(rs.GetString("dateapp"))
Year = DateTime.GetYear(DateTime.DateParse(rs.GetString("dateapp")))
Month = DateTime.GetYear(DateTime.DateParse(rs.GetString("dateapp")))
Day = DateTime.GetDayOfWeek(DateTime.DateParse(rs.GetString("dateapp")))
DayNumber = DateTime.GetDayOfWeek(DateTime.DateParse(rs.GetString("dateapp")))
mClassCalendar.mAgenda.addEvent(rs.GetString("title"), Year, Month, Day, DayNumber, rs.GetString("associates"), rs.GetString("timeapp"), rs.GetString("fulladdress"), fx.Colors.ARGB(200,255,0,0), -1)
Loop