[Resolvido]gerar intervalo de 30 minutos

Boa noite pessoal..

O intervalo que preciso gerar é de 30 minutos (07:30 - 08:00 - 08:30) e não estou sabendo:
(peguei essa rotina: que começava às 07:00 hs, e adequei para que comece às 07:30 mas, não
estou sabendo fazer com que o intervalo seja de 30 minutos)
Agradeço a ajuda...
Gracy Mary
ROTINA:

Option Compare Database
Public Sub CriarAgenda(strTableName As String, strDateField As String, strTimeField As String, LngYear As Long)
Dim rs As New ADODB.Recordset
rs.Open strTableName, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim LstDate As Date
LstDate = DateSerial(LngYear, 1, 1)
For i = 7 To 20
rs.AddNew
rs(strDateField) = LstDate
rs(strTimeField) = TimeSerial(i, 30, 0)
rs.Update
Next i
LstDate = DateAdd("d", 1, LstDate)
Do While Year(DateAdd("d", -1, LstDate)) = LngYear
If Year(DateAdd("d", 1, LstDate) - 1) <> LngYear Then
Else
For i = 7 To 20
rs.AddNew
rs("AgData") = DateAdd("d", 1, LstDate - 1)
rs("AgHora") = TimeSerial(i, 30, 0)
rs.Update
Next i
End If
LstDate = DateAdd("d", 1, LstDate)
Loop
rs.Close
Set rs = Nothing
End Sub

Bom dia querida.. de uma olhadinha neste exemplo:


http://maximoaccess.forumeiros.com/t7769-resolvidorotina-de-criar-horario


Cumprimentos.

PILOTO..

Muito obrigada... valeu mesmo!!!
Gracy

O Fórum agradece o retorno.

Tem essa forma tambem


1º Emuma tabela chamada "TblConfiguracao", nela voce coloca a hora inicio, hora fim e intervalo ex: HsInicio = 08:00; HsFinal = 20:00 e o intervalo = 15

2ºEm uma outra tabela chamada "TblHora" tenho:
Data e Hora.


3º Uma outra tabela chamada "TblDia"


Em um botao use


Dim HoraSeq As Date, MyStep As Date

Set rstO = CurrentDb.OpenRecordset("TblConfiguracao")
Set rstD = CurrentDb.OpenRecordset("tblHora")

MyStep = 1 / 24 / (60 / rstO!intervalo)
With rstD
For HoraSeq = rstO!HsInicio To rstO!HsFinal Step MyStep
.AddNew
!Data = Me.Data
!Hora = HoraSeq
.Update
Next
End With

Set rstO = Nothing
Set rstD = Nothing

End Sub



Bons estudos