powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / приращение даты на 1 день
10 сообщений из 10, страница 1 из 1
приращение даты на 1 день
    #35162414
sp_eedo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Коллеги ,сегодня столкнулся со следущй проблемой,
функция приращения даты реализованная по средством проверок типа

............
если месяц=2 и число=28 тогда вернуть месяц = 3 число = 1
...........

конечно же она дала сбой сегодня 29-го февраля,
Может ли кто нибуть посоветовать хорошее решение для приращения даты ?
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35162455
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ха-Ха.

Функция DateAdd.
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35162533
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
предыдущая дата + 1
или я что-то не понимаю?
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35163062
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
dateadd("d", 1 , date)
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35163942
sp_eedo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
дело в том что в среде где нежно проделать эту операцию используется
siebel VB
где эта функция отсутствует =(
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35163986
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я правда не знаю что такое siebel VB
но просто дата+1 не работает?
Если не работает тогда точно должна быть какая-то функция на подобии DateDiff
Иначе вам прийдется делать обработку високосных годов.
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35164006
sp_eedo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FAndrewЯ правда не знаю что такое siebel VB
но просто дата+1 не работает?
Если не работает тогда точно должна быть какая-то функция на подобии DateDiff
Иначе вам прийдется делать обработку високосных годов.
DateDiff тоже нету

дата+1 это так?

RDTime = Format(DateSerial(Year(Now),Month(Now),Day(Now)+1)+TimeSerial(Hour(Now),Minute(Now),Second(Now)), "mm/dd/yyyy hh:mm:ss")
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35164447
Шыфл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторRDTime = Format(DateSerial(Year(Now),Month(Now),Day(Now)+1)+TimeSerial(Hour(Now),Minute(Now),Second(Now)), "mm/dd/yyyy hh:mm:ss")
Скорее так
Код: plaintext
RDTime = Format(DateSerial(Year(Now+ 1 ),Month(Now+ 1 ),Day(Now+ 1 ))+TimeSerial(Hour(Now),Minute(Now),Second(Now)), "mm/dd/yyyy hh:mm:ss")[/
Или Date вместо Now в первой части
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35164483
sp_eedo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Шыфл авторRDTime = Format(DateSerial(Year(Now),Month(Now),Day(Now)+1)+TimeSerial(Hour(Now),Minute(Now),Second(Now)), "mm/dd/yyyy hh:mm:ss")
Скорее так
Код: plaintext
RDTime = Format(DateSerial(Year(Now+ 1 ),Month(Now+ 1 ),Day(Now+ 1 ))+TimeSerial(Hour(Now),Minute(Now),Second(Now)), "mm/dd/yyyy hh:mm:ss")[/
Или Date вместо Now в первой части

а что же тогда получится
(Year(Now+1), ????
к Now он куда прибавит? к году чтоли?
...
Рейтинг: 0 / 0
приращение даты на 1 день
    #35164897
sp_eedo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
язык VB script =(
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / приращение даты на 1 день
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]