gennemløbe DB og ændre tidspunkter

du skal jo selvfølgelig have gang i en løkke med SQL-udtræk hvor du så skal opdatere din poste i/mellem:

While ditRS.EOF = False
      Select Case Datepart("n", ditRS("ditklokkeslæt"))
            Case 53 To 12
                'her sammensætter du så din nye dato/tid
                'min. "00" - brug evt. datepart til at sammensætte ny dato
                'husk også at sek. "00"
            Case 13 To 22
                'her sammensætter du så din nye dato/tid
                'min. "15" - brug evt. datepart til at sammensætte ny dato
                'husk også at sek. "00"
            Case 23 To 42
                'her sammensætter du så din nye dato/tid
                'min. "30" - brug evt. datepart til at sammensætte ny dato
                'husk også at sek. "00"
            Case 43 To 52
                'her sammensætter du så din nye dato/tid
                'min. "45" - brug evt. datepart til at sammensætte ny dato
                'husk også at sek. "00"
      End Select
      SQL = "UPDATE dintabel SET ditklokkeslæt = '" & dintidsvariabel & "'
      dit_updateRS.Open SQL, connection

      ditRS.Movenext
Wend

Bare et forslag...

/hiks