ma intendevi tempo come giorni o come minuti o come ore?

Ecco come minuti:
codice:
Private Sub Timer1_Timer()
Dim t As String
t = Time
minuti = Mid$(t, 4, 2)
If minuti = "00" Or minuti = "15" Or minuti = "30" Or minuti = "45" Then
    FileCopy FileDaCopiare.mdb, FileDiDestinazione.mdb
End If
End Sub
dove timer1 è un timer, gli imposti l'intervallo a 30000, almeno controlla ogni 30 secondi, in questo modo ogni 15 minuti fa la copia del file.

se vuoi le ore:
codice:
ore=Mid$(t,1,2)