Получение списка дат для заданного интервала |
Ожидаемый результат |
---|
01.01.2014 02.01.2014 03.01.2014 04.01.2014 05.01.2014 |
Option Compare Database ' Get the array of dates which are located in the range start_date to end_date. ' The result is an array of Date items. Public Function GetDays(start_date As Date, end_date As Date) If start_date > end_date Then ' end_date can't be less than start_date. GetDays = Null Exit Function End If Dim result() As Date ReDim result(end_date - start_date + 1) ' including the range boundaries. For i = start_date To end_date Step 1 Dim n As Long n = i - start_date result(n) = i Next i GetDays = result End Function
SELECT tbChecks.CheckId, tbChecks.[In], tbChecks.Back, GetDays([In],[Back]) AS Days FROM tbChecks;
http://www.sql.ru/forum/1129826/poluchenie-spiska-dat-dlya-zadannogo-intervala
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |