Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

Дата/Время   Найти похожие ветки 

 
REX   (2010-06-05 13:58) [0]

Написал такой код, а он не форматирует не Дату, не Время:
procedure TForm1.Timer1Timer(Sender: TObject);
var t,d:TDateTime;
begin
t:=Time();
FormatDateTime("am/pm",t);
label1.Caption:=TimeToStr(t);
d:=Date();
FormatDateTime("dddddd",d);
label2.Caption:=DateToStr(d);
end;

Подскажите пожалуйста в чем проблема ?


 
oldman ©   (2010-06-05 14:05) [1]

Что значит "не форматирует"?
В Labels что пишется?


 
oldman ©   (2010-06-05 14:07) [2]


> var t,d:TDateTime;
> begin
> t:=Time();
> d:=Date();


var t: TDateTime;
begin
t:=Now();


 
Anatoly Podgoretsky ©   (2010-06-05 14:07) [3]

> REX  (05.06.2010 13:58:00)  [0]

А что тут делают функции FormatDateTime, если результат никак не
используется


 
REX   (2010-06-05 14:32) [4]

To oldman:
              label1 "13:12:08"
              label2 "05.06.10"


 
Демо ©   (2010-06-05 14:38) [5]

The following example uses FormatDateTime to set the string variable S to a sentence indicating a meeting time in 3 hours. The sentence has the form "The meeting is on Wednesday, February 15, 1995 at 2:30 PM".

S := FormatDateTime(""The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM", Now + 0.125);


 
REX   (2010-06-05 14:58) [6]

Демо © спасибо. Есть все-таки люди которые отвечают на вопрос, а не наливают воду.


 
Плохиш ©   (2010-06-05 16:44) [7]

Чтение справки вслух нахаляву. Ещё одному немощному подали..


 
нет имени   (2010-06-05 17:09) [8]

Удалено модератором



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

Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.079 c
2-1266408421
Den
2010-02-17 15:07
2010.08.27
Через какие порты работает FIBPlus?


15-1273034798
boa_kaa
2010-05-05 08:46
2010.08.27
Поздравляю!


2-1270734164
Pavel
2010-04-08 17:42
2010.08.27
Проблема с кодировкой


2-1270871051
tippa
2010-04-10 07:44
2010.08.27
Synchronize и критические секции


15-1273613051
bd
2010-05-12 01:24
2010.08.27
usb hdd перестал определяться





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский