Program GetMonth;
var time,god,mes,den:integer;
Begin
time:=GetCurrentTime;
god:=GetYear(time);
mes:=GetMonth(time);
den:=GetDay(time);
Drawtext(''+den+' '+mes+' '+god,0,0);
Repaint;
while GetKeypressed<>KE_KEY5 do Delay(100);
End.
Сия прекрасная программа выдает мне что месяц август является седьмым. В винде точно стоит месяц август. И вобще если переставить месяц в винде то прога выдает номер месяца на единицу меньше чем на самом деле. Это что такое? у всех чтоли так?
Кстати на телефоне пробовал - то же самое.