Получение даты в виде количества дней, прошедших с 1 января 2000

@asas · Регистрация: 12.05.2009

Студворк — интернет-сервис помощи студентам

Как такое осуществить средствами ASP/VBScript?

@asas · 01.09.2010, 19:58 **[ТС]**

Сам докопался! Кому интересно, вот код:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
daba=Date
fYear=2000
tYear=Year(daba)
leng = tYear-fYear
tDay=DatePart('y',daba)
Dim yArr()
ReDim yArr(leng)
For x=1 To leng
    yArr(x)=fYear+x
Next
For x=1 To leng
    If Fix(yArr(x))=yArr(x) Then
        tDay=tDay+366
    Else
        tDay=tDay+365
    End If
Next
Response.Write(tDay)

@asas · 01.09.2010, 22:47 **[ТС]**

Всё, протестировал. Задача решается вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
daba=Date
fYear=2000
tYear=Year(daba)
leng = tYear-fYear
tDay=DatePart('y',daba)
Dim yArr()
ReDim yArr(leng)
For x=1 To leng
    yArr(x)=fYear+x
Next
For x=1 To leng
    If Fix(yArr(x)/4)=yArr(x)/4 Then
        tDay=tDay+366
    Else
        tDay=tDay+365
    End If
Next
Response.Write(tDay)

@Dirty · 02.09.2010, 02:05

Мамма..

VB.NET
1
Response.Write CDbl(Date()) - CDbl(CDate('1/1/2000'))

@bazile · 02.09.2010, 11:06

Есть стандартная фунция DateDiff которая делает то что нужно

)

Response.Write DateDiff('d', DateSerial(2000,1,1), Now())

@Dirty · 02.09.2010, 14:52

Максимальное упрощение кода ) дифф все-таки медленнее работает. CDate.. глупая привычка) сразу видна дата )

@bazile · 02.09.2010, 19:19

Я прогнал пару тестов из которых следует что DateDiff работает быстрее чем приведение к CDbl и вычитание.
Кроме того, на мой взгляд, использование DateDiff улучшает читабельность кода

@Dirty · 02.09.2010, 20:40

Приведение к CDate -- медленнее, чем DateSerial, раз в пять. Я написал причину его использования.
Приведение к CDbl и вычитание -- быстрее DateDiff на 20%.
Читабельность -- это хорошо.. но не всегда.. и хватит на эту тему

@asas · 06.09.2010, 15:30 **[ТС]**

Пасиба, а есть ли в ВБСкрипо какая-нють встроенная функция, позволяющая полученное количество дней преобразовать обратно в дату (гггг-мм-дд)?

@asas · 06.09.2010, 15:43 **[ТС]**

Оп-па, сам 'вырыл':

Visual Basic
1
2
ds=DateDiff('d','2000-01-01',Date)
dt=DateAdd('d',ds,'2000-01-01')

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@asas 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 58

	Получение даты в виде количества дней, прошедших с 1 января 2000 01.09.2010, 19:30. Показов 1436. Ответов 9 Метки нет (Все метки) Как такое осуществить средствами ASP/VBScript? 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	02.09.2010, 11:06
	Есть стандартная фунция DateDiff которая делает то что нужно ) Response.Write DateDiff('d', DateSerial(2000,1,1), Now()) 0

@Dirty 0 / 0 / 1 Регистрация: 21.06.2010 Сообщений: 201
	02.09.2010, 14:52
	Максимальное упрощение кода ) дифф все-таки медленнее работает. CDate.. глупая привычка) сразу видна дата ) 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	02.09.2010, 19:19
	Я прогнал пару тестов из которых следует что DateDiff работает быстрее чем приведение к CDbl и вычитание. Кроме того, на мой взгляд, использование DateDiff улучшает читабельность кода 0

@Dirty 0 / 0 / 1 Регистрация: 21.06.2010 Сообщений: 201
	02.09.2010, 20:40
	Приведение к CDate -- медленнее, чем DateSerial, раз в пять. Я написал причину его использования. Приведение к CDbl и вычитание -- быстрее DateDiff на 20%. Читабельность -- это хорошо.. но не всегда.. и хватит на эту тему 0

@asas 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 58
	06.09.2010, 15:30 [ТС]
	Пасиба, а есть ли в ВБСкрипо какая-нють встроенная функция, позволяющая полученное количество дней преобразовать обратно в дату (гггг-мм-дд)? 0