[RESOLVED] How to find and counting specific date-VBForums
Results 1 to 1 of 1

Thread: [RESOLVED] How to find and counting specific date

  1. #1

    Thread Starter
    Lively Member
    Join Date
    May 2017
    Posts
    75

    Resolved [RESOLVED] How to find and counting specific date

    I want to make booking service that need date service..i using access and ole db conn..
    Condition that i want in date service.
    Only 2 no boking in one day
    ----------------------------
    + Date. + No booking +
    ----------------------------
    + 29/08/2017 + AN29081701 +
    + 29/08/2017 + AN29081702 +
    + 30/08/2017 + AN30081701 +
    + 01/09/2017 + AN01091701 +
    ----------------------------
    Db : database
    I want use automatic n manual to select date service..
    In automatic : find top date on db which one only have one no boking (30/08/2017) So will be create AN30081702
    in manual : using datepicker , first cek date on date picker compare with date service on db
    If find date then cek again available 2 no boking or not if available msgbox("full"). Not create example for (01/09/2017)
    AN01091702..
    How to make correct n simple code like my condition that i want..
    Help me i'm stuck here..thanks

    Code:
    Call koneksi()
            Dim tambah As Long
            Dim tgl = Format(Date.Now, "ddMMyy")
            sql = "select * from booking order by no_booking desc"
            cmd = New OleDbCommand(sql, conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If Not dr.HasRows Then
                Tbnobooking.Text = "AN" + tgl + "01"
            ElseIf dr.HasRows Then
                If Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6) <> tgl Then
                    Tbnobooking.Text = "AN" + tgl + "01"
                ElseIf Microsoft.VisualBasic.Right(dr.GetString(0), 2) >= 02 Then
                    Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
                    Dim dt As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
                    Dim dtl As DateTime = dt
                    Dim latestdate = Format(dtl, "ddMMyy")
                    Dim dtb As DateTime = dtl.AddDays(1)
                    Dim nextdate = Format(dtb, "ddMMyy")
                   Tbnobooking.Text = "AN" + nextdate + "01"
                Else
                    Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
                    Dim dt As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
                    Dim dtl As DateTime = dt
                    Dim latestdate = Format(dtl, "ddMMyy")
                    tambah = Microsoft.VisualBasic.Right(dr.GetString(0), 2) + 1
           Tbnobooking.Text = "AN" + latestdate + Microsoft.VisualBasic.Right("00" & tambah, 2)
                End If
            End If
            'Date service
            Dim sst = Microsoft.VisualBasic.Mid((dafnoantrean.Text), 3, 6)
            Dim sdt As Date = Date.ParseExact(sst, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
            Dim tgls As DateTime = sdt
            Tbdateservice.Text = Format(tgls, "dd/MM/yyyy")
    Last edited by khabib28; Aug 29th, 2017 at 12:00 AM. Reason: Mis

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.