Delphi Function Now: Tdatetime;

[pewi]

witam

 

 

mam taki maly problem..a mianowicie probowalem juz napisac powyzsza funkcje na rozne sposoby..jednak nadal nie otrzymuje przy wlaczeniu prgoramu dzisiejszej daty

 

i jest to function dla wiecznego kalendarza

 

wiec prosi bym o zarys takiej funkcji;p

[pewi]

jescze dodam do tego maly wzor;

 

r:=rok mod 100;

w:=rok div 100;

Result:=((13*m-1) div 5+dzien+r div 4+w div 4+r+5*w) mod 7;

[mirraseq]

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

Typ TDateTime jest typem double (8 bjatów), zawiera ilość dni, które minęły do tego czasu od daty 30 grudnia 1899. Kiedy zmiennej data ustawisz wartość 0, dekodowanie funkcją DecodeDateTime wskaże owa datę (30.12.1899). Jeśli chcesz wyświetlić obecną datę/czas, skorzystaj z gotowych funkcji w module SysUtils: TimeDateToStr, DateToStr, TimeToStr.

[pewi]

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

i w tej linii wyskakuje mi błąd;/ ;

 

DecodeDateTime(data, rok, miesiac, dzien, godzina, minuta, sekunda, milisekunda);

[mirraseq]

Dodaj do uses DateUtils

[pewi]

teraz jest good;p...ale nadal nie wyswietla mi sie aktualna data;p,,,,mzoe dlatego ze nie wiem gdzie zapisac to w kodzie zrodlowym;p

 

tak na marginesie; mam juz 3 takie funkcje ale z innym zapisaem;p i w zadnej nie ma aktualnej daty...mozliwe ze tzreba cos wpisac w programie ale nie mam pojecia co i gdzie

[mirraseq]

Sprawdź lepiej jaką masz datę w systemie ustawioną

[pewi]

taki zapis chyba by byl lepszy...ale mam errors w RokEdit.Text;/

 

procedure TForm1.FormCreate(Sender: TObject);

var

Rok, Miesiac, Dzien : Word;

begin

DecodeDate(Date, Rok, Miesiac, Dzien);

RokEdit.Text := IntToStr(Rok);

MiesiacEdit.Text := IntToStr(Miesiac);

DzienEdit.Text := IntToStr(Dzien);

[mirraseq]

A co to za błąd? (co w konsoli błędów wyrzuca)