Архив форумов ЦИТФорума

[Oper]

Помогите определить содержимое переменной типа Date. Т. е. нужно узнать, что там: только дата, только время, дата и время. Буду оооочччень благодарен.

[Борис]

Насколько я помню, внутреннее представление типа Date -- это действительное число, у которого целая часть -- дата, дробная -- время.

[Oper]

Но как быть, если мне надо ввести время 0:00:00, которое обозначает неинициализированное время и VBA, работая с этой переменной такое время игнорирует. То же самое с датой 30.12.1899.

[Борис]

-

[Oper]

Игнорирует - это значит в поле ввода не выводит ничего. Если в переменной хрнится дата отличная от 30.12.1899 и время 0:00:00, то в поле ввода выведется только эта дата. Если в переменной хранится время отличное от 0:00:00 и дата 30.12.1899, то выведется только время, если хранится 30.12.1899 0:00:00, то выведется только 0:00:00.

[Борис]

А ты не хочешь использовать функцию format$(), а само значение символьное? Например, примерно такой вариант me.text1=Format$(0#, "dd.mm.yyyy hh:mm:ss") выводит именно "30.12.1899 0:00:00"

[Oper]

А как все таки определить, что именно лежит в переменной. Есть календарь и часы, которые могут работать с одной переменной. В качестве параметра может использоваться строка, удовлетворяющая функции IsDate. Но дальше нужно точно знать, что там: дата, котороая может использоваться как начальное значение в календаре, но не может использоваться в часах; время или и то и друго вместе.

[Борис]

ИСпользуй переменную в тех местах, где используется число. Например, Int(перемДата) -- это число дней от 31.12.1899 (0 -- сама дата 31.12.1899, 1 -- 01.01.1901 и т. д.), перемДата-Int(перемДата) -- это количество секунд от 00:00:00 (0 -- это само время 00:00:00, 0.000011574 -- это 00:00:01 и т. д.).

Все это верно, конечно, только в том случае, если я правильно помню внутреннее представление даты в бейсике (см. ответ Борис 11-07-2003 18:49).