| Структура программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
TList и расход памяти, Как правильно очистить записи в TList? Типизированные файлы Как Вы относитесь к курящим девушкам? Помогите написать программу Ошибка с TStrings scanf в Delphi календарь TDataTimePicker, Как открыть встроенный календарь? Составление БД выражений Delphi, Проект "Межъязыковый словарь" ПОМОГИТЕ!!!!!!! РЕШИТЬ ЗАДАЧИ ПО ДЕЛФИ ПЛИ, пожалусто Try - except структура, как исключить оштбку Система тестов инсталляция шрифтов Строки и алгоритмы, Поиск вхождений Помогите с поиском исходников, сильно необходимо Календарь на Delphi, Простой календарь под Windows. Как скрыть окно?, не могу скрыть окно Освобождение памяти, нужно или нет Перевод в экспоненциальную форму Как на Delphi менять символ на другой Изменение масштаба TabControl программное переключение вкладок Помогите решить лабораторную!, Помогите решить лабораторную! Установка даты, Как? Как? Как? проблема с ObjectInspector, Исчезновение обработчиков событий Поиск всех одинаковых файлов на диске Очистка Tempory Internet Files, Нужен код для очистки этой папки Нижний индекс в тексовом поле., H2SO4 Где у TMemo метод Append() или его синоним? Столбцы и строки в StringGrid, Как программно изменить их размеры? Установка драйвера, Программно (де-) инсталлировать драйвер как использовать функцию FindFileInTree Картинку вперед TreeView странно себя ведёт Не могу нойти компоненты, Нужны графические компоненты Нижний индекс в тексовом поле., H2SO4 Стандартные диалоги, типа "Открыть", "Сохранить" и т.п. Помогите аписать программу на паскале Повторный вызов процедуры TreeView и GroupBox, Как связать узлы TreeView с GroupBox? TreeView, Длиные записи???? Перевод числа в градусы, по косинусу Консоль Delphi & русские буквы при Run Кнопка TButton + нажатие/отпускание Ячейки в StringGrid, Фон ячейки Сохранение шрифта таблицы в ini-файл Реакция на OnEnter, как перекрыть OnEnter? Как Вы относитесь к курящим девушкам? Кубический корень Использование ShellListView, Компонерт со свойством MultiSelect Чтение из открытого файла, смотрел DRKB но что-то не получается Использование проги для открытия файлов, как сделать что бы прога открывала файлы headercontrol Циклическая ссылка, Взаимный вызов методов форм Teorija verojtnosti na delphi za $$$, Kto moghet napisat' prog. na teop. Veroj Как построить круговую диаграмму в TCHART, (имея 4 параметра) Installer SDK в Delphi Создание компонентов, DBGrid Присваивание файловых переменных, такое возможно??? Как создать свой файл с помощью FileCreate Работа с файлом Жмем кнопки клавы програмно, Жмем кнопки клавы програмно Компонент ShellListView, Как управлять этим компонентом??? как сделать прокрутку у ole container'a, При это он не активизирован Как увеличить значение указателя POINTER Установка шрифта, как сделать? Изменение Position & BorderStyle у формы, При инициализации формы... TStringGrid-ввод данных мышкой Что такое файл vcl50.bpl? Работа со строками, (для балбесов) Как откопировать 2-мерный динамический массив?, размер заранее не известен |
Платные хостинги Раскрутка сайта Книги по программированию Установка даты, Как? Как? Как?
- ПОМОГИТЕ!!! Все нервы уже извел с установкой даты ...Напишите, кто может процедурку, чтобы меняла дату TDate без учета времени ... Или с учетом, но чтобы небуло косяков: Например в этой процеДУРЕ если установить дату, которая находится не в данном часовом поясе (лето - зима), то она неправильно выставляет время:Если у вас стоит допустим 17 ноября, то если воспользоваться этой процедурой напишем дату 9.10.2004 (так как она требует еще и время, вставим текущее (decode(time и тд))).Дата выставиться правильно, а время прибавиться на один час! (хотя вроде должно убавляться). А если сделать наоборот тоесть у вас 9.10.2004, а нужно поставить 17.11.2004, то дата меняется, а время остается прежним, хотя должно прибавляться ...Код function SetPCSystemTime(tDati: TDateTime): Boolean; var tSetDati: TDateTime; vDatiBias: Variant; tTZI: TTimeZoneInformation; tST: TSystemTime; begin GetTimeZoneInformation(tTZI); vDatiBias := tTZI.Bias / 1440; tSetDati := tDati + vDatiBias; with tST do begin wYear := StrToInt(FormatDateTime('yyyy', tSetDati)); wMonth := StrToInt(FormatDateTime('mm', tSetDati)); wDay := StrToInt(FormatDateTime('dd', tSetDati)); wHour := StrToInt(FormatDateTime('hh', tSetDati)); wMinute := StrToInt(FormatDateTime('nn', tSetDati)); wSecond := StrToInt(FormatDateTime('ss', tSetDati)); wMilliseconds := 0; end; SetPCSystemTime := SetSystemTime(tST); end; highlightSyntax('delphiYTY1Yj','delphi');Тоже самое и с этой процедурой:Код procedure TfmTime.btnTimeClick(Sender: TObject); var vsys : _SYSTEMTIME; vYear, vMonth, vDay, vHour, vMin, vSec, vMm : Word; begin DecodeDate( Trunc(dtpDate.Date), vYear, vMonth, vDay ); DecodeTime( dtpTime.Time, vHour, vMin, vSec, vMm ); vMm := 0; vsys.wYear := vYear; vsys.wMonth := vMonth; vsys.wDay := vDay; vsys.wHour := ( vHour - 5 ); // разница с гринвичем vsys.wMinute := vMin; vsys.wSecond := vSec; vsys.wMilliseconds := vMm; vsys.wDayOfWeek := DayOfWeek( Trunc(dtpDate.Date) ); SetSystemTime( vsys ); end; highlightSyntax('delphiI2MmU4','delphi');А вот эта процедура мне очень подходит, но она в последней срочке почемуто выдает ошибку:Код Procedure setdate(Year : word; Month, Day : byte); assembler; asm mov cx, year mov dh, month mov dl, day mov ah, $2b int $21 // вот в этой строчке происходит ошибкаend; highlightSyntax('delphiQxN2U3','delphi');Дак кто нибудь знает правильную процедуру? - Держи самый простой из способов: Код Label1.Caption:=DateToStr(time); //Выдаст тебе датуLabel2.Caption:=TimeToStr(time); //Навсякий пожарный, для времениLabel3.Caption:=DateTimeToStr(time); //Всё вместеhighlightSyntax('delphimM3OTA','delphi');Если воткнёш эти штуки, в компонент Timer с интервалом в 1000, то постоянно будет отображатся время.А если хочешь менять дату, тоКод Label1.Caption:=DateToStr(time+2); //Выдаст тебе текущую дату +2 дняLabel2.Caption:=TimeToStr(time+strtotime('1:02')); //на 1 час и 2 менуты большеhighlightSyntax('delphi3M2I1N','delphi'); Это сообщение отредактировал Zero - 17.11.2004, 23:30 - Нет, так не работает! время обнуляется ...Цитата Zero Дата 17.11.2004, 23:19 Держи самый простой из способов: Все это я знаю, ты меня паходу не понял ... (читай мой первый вопрос ...)А если ты мне хотел сказать, как время прибавлять, я это тоже умею ... Только вот когда и сколько? Я хочу чтобы работало в общем случае с любыми TimeZone ...Ну? так кто нибудь знает как это делается???Хотябы обьясните, почему делается ошибка: Код Procedure setdate(Year : word; Month, Day : byte); assembler; asm mov cx, year mov dh, month mov dl, day mov ah, $2b int $21 // вот в этой строчке происходит ошибкаend; highlightSyntax('delphiQzZDEx','delphi');Жду и надеюсь ... - Ладно, раз как правильно дату меянять никто не знает, тогда хоть скажите, как можно включать/отключать автоматический переход на летнее и зимнее время - ведь вся эта бадяга из-за него ... - Нажми: Панель управления\Дата и время\Часовой пояс (Вкладка)\Сними галку (переход на летнее время) Это сообщение отредактировал Zero - 18.11.2004, 18:20 - прикалол ...А из Delphi как? - Х.З. - Раздел в реестре HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformationЕсли есть ключ "DisableAutoDaylightTimeSet"=dword:00000001, то переход отменен.  |