Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

DateTimePicker   Найти похожие ветки 

 
kingsoft ©   (2007-02-12 23:40) [0]

Всем доброго времени суток. Помогите решить проблему или намекните как сделать так чтобы: Есть 3 переменных, в которым я бы хотел присвоить, первой - число(день), второй - месяц, третей - год, Как это реализовать?


 
unknown ©   (2007-02-12 23:51) [1]

var d,m,y:word;
DecodeDate(DateTimePicker1.Date,y,m,d);


 
kingsoft ©   (2007-02-12 23:56) [2]


> unknown ©

Огромное спасибо! Выручили!


 
MsGuns ©   (2007-02-13 00:09) [3]

uses DateUtils

DayOf, MonthOf, YearOf не требуют переменных.


 
unknown ©   (2007-02-13 00:22) [4]


> MsGuns ©   (13.02.07 00:09) [3]

В этом случае DecodeDate отработает 3 раза.
Например
function DayOf(const AValue: TDateTime): Word;
var
 LYear, LMonth: Word;
begin
 DecodeDate(AValue, LYear, LMonth, Result);
end;


Зачем лишние телодвижения, если можно один раз сделать DecodeDate и
получить сразу Year, Month и Day.



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.029 c
15-1170843727
vasIZmax
2007-02-07 13:22
2007.03.04
Какие могут быть предъявы?


15-1171270823
Riply
2007-02-12 12:00
2007.03.04
Новый винчестер.


2-1170831337
Ламерок
2007-02-07 09:55
2007.03.04
Почему не вставляется русскоязычный текст в таблицу базы данных?


2-1171192346
Pasha L
2007-02-11 14:12
2007.03.04
Как отсортировать массив tmemorystream


6-1159423149
fishka
2006-09-28 09:59
2007.03.04
Пользователь для IdTelnet?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский