Как задавать метку даты времени, чтобы можно было проводть синхронизацию по ней?

Используем два поля "Ключ(Char)" и "Время(Date-time)"

Возможные значения ключа:

t - время - точные данные по времени

n - минута - данные усредненные за минуту
h - час - данные усредненные за час
d - день - данные усредненные за день
w - неделя - данные усредненные за неделю
m - месяц - данные усредененные за месяц
q - квартал - данные усредененные за квартал
p - полугодие - данные усредененные за полугодие
y - год - данные усредененные за год

"Время" содержит дату-время события, в случае ключа усреднения - дату-время начала
периода усреднения. Начало в случае усреднения по m, q, p, y (наиболее частые случаи)
начинается всегда с первого дня месяца.

Sub try()
Dim d As Date
d = CDate("01-01-2008 00:00:00")
d = DateAdd("yyyy", 1, d)
Debug.Print format(d, "dd-mmmm-yyyy hh:mm:ss")
End Sub