[new_programer]

رجاء محتاج  الطريقة لحل المشكلة 

او بداية البحث عن حل المشكلة لانى بحاول دون الوصول للحل 

الصورة للتوضيح 

   
الحمد لله تم التوصل للكود لكن يعمل من خلال قاعدة SQL SERVER


اريد تحويل الكود ليعمل على  VB.net
مع الغاء جملة اختيار ال "I"  / "O"

رجاء المساعدة 

كود :

SELECT
   USERID ,
   Convert(date, CHECKTIME ) As day,
   Min(CASE
       WHEN   CHECKTYPE= 'I' THEN CAST( CHECKTIME As time(0))
       ELSE CAST('23:59:59' As time(0))
   END) As MinInTime,
   Max(CASE
       WHEN   CHECKTYPE= 'O' THEN CAST( CHECKTIME As time(0))
   END) As MaxOutTime
FROM
   dbo.CHECKINOUT where USERID =292
GROUP BY
   UserId,
   Convert(date, CHECKTIME )
;