Помогите плиз

[Станислав]

Надо сделать таймер который бы допустим через некоторое время проигрывал како-нить *.mid. Так вот незнаю как прибавить допустим два часа, к стартовому времени (время системное).

[alibek]

Исходи из того, что тип данных Date на самом деле числовой. При этом один день соответствует значению 1 (т.е. единице). Отсюда, один час --- это 1/24 (~0.0417), одна минута -- 1/(24*60) (~0.000694), одна секунда -- это 1/(24*60*60) (~0.0000116).
Т.е. примерно так: EndTime = StartTime + 2!*(1!/24!)

Но! В VB6 есть такая замечательная функция, как DateAdd. С нею еще проще: EndTime = DateAdd("h",2,StartTime)