안녕하세요..
현재 시간이 오전 10시라고 가정하고..
어제 오전 10시부터 오늘 오전 10시까지..
즉 현재 기간부터 24시간 전부터..
1분씩 증가시키려면 어떻게 하면 되는지요..
10:00(어제), 10:01(어제) .............. 09:55(오늘), 10:00(오늘)
n:=0;
FormatDateTime(('hh:nn', Now -1 + (0.01/15)*n);
Inc(n)
이렇게 했는데..
중간중간에 분이 겹쳐서 나타나서 시간이 틀어지네요..
그냥 1분씩 증가시켜주시면 될텐데요...
var
NowTime: TDateTime;
Index: Integer;
begin
NowTime := Time;
for Index := 0 to 24*60 do
begin
ListBox1.Items.Add( FormatDateTime('hh:nn', NowTime) );
NowTime := NowTime + (60*1000)/(24*60*60*1000);
end;
end;
^^ 항상 즐코하세요...