нужно сгенерить дату следующего дня и определенное время

← →
wordmen (2009-06-26 15:32) [0]

Мне нужно сгенерить дату следующего дня и определенное время - 12:45
При выполнении нижеприведенного кода показывает значение 27.06.09 12:00 (с учетом что текущая дата 26.06.2009)
почемуто время 12:45 никак не хочет ставиться.
Var Y,M,D,H,min,sec,msec : word; S, sD,sM : string; Dat : TDateTime; sdFormat: TFormatSettings; Begin ... sdFormat.DateSeparator := "."; sdFormat.TimeSeparator := ":"; sdFormat.ShortDateFormat := "dd.mm.yy"; sdFormat.LongDateFormat := "dd.mm.yyyy"; Dat:=Now; DecodeDateTime(Dat,Y,M,D,H,min,sec,msec); d:=d+1; if D<10 Then sD:="0"+IntToStr(D) else sD:=IntToStr(d); if M<10 Then sM:="0"+IntToStr(M) else sM:=IntToStr(M); s:= sD+"."+sM+"."+IntToStr(Y)+" 12:45"; Dat:= StrToDateTimeDef(s,0); MaskEdit1.Text:= DateTimeToStr(Dat); End;

← →
wordmen (2009-06-26 15:35) [1]

Маска в MaskEdit1.EditMask= !99/99/00 !90:00;1;_

← →
RWolf © (2009-06-26 15:39) [2]

хм…
var tomorrow1245:TDateTime; tomorrow1245 := int(now) + 1 + 12.75/24;

← →
Dennis I. Komarov © (2009-06-26 15:44) [3]

> RWolf © (26.06.09 15:39) [2]

Сперва надо было в справку отправить... Он же все равно так не поймет
%)

← →
wordmen (2009-06-26 17:00) [4]

Спасибо.

> Сперва надо было в справку отправить... Он же все равно
> так не поймет

И так понятно:
1 + 12.75/24
1 - это прибавляется один день
12.75/24 - это чачть суток, которая равна 12 часам плюс 0,75 - это часть часа : 0,75*60 мин = 45 мин. Поэтому 12,75 - это 12:45

Ну тогда замени int(now) на Date

← →
wordmen (2009-06-26 17:41) [6]

Все работает, но если присвоить это значение MaskEdit1 всеравно пишет не 12:45, 12:00. 45 минут кудато деваются
Маска в MaskEdit1.EditMask= !99/99/00 !90:00;1;_
Получается все дело в маске. Я перепробовал по разному - не получается.

нужно сгенерить дату следующего дня и определенное время Найти похожие ветки