Odliczanie od teraz do konkretnej daty w Delphi 5

Odpowiedz Nowy wątek
2015-01-17 13:29
0

Witam,

Jakiś czas temu kolega zwrócił się do mnie z prośbą o pomoc. Chodziło o stworzenie zegara analogowego który jednocześnie będzie odliczał dni, godziny, minuty i sekundy do konkretnej daty (zaliczenie do szkoły, ma odliczać do egzaminu z matematyki). Pomyślałem że to proste ale... okazało się, że MUSI to być w Delphi 5 więc nie można użyć DateUtils i jest to warunek nie do ominięcia.

Sam zegar jest i działa, więc chodzi tylko o to piekielne odliczanie. Programowaniem zajmowałem się tyle ile musiałem żeby zaliczyć kiedyś Delphi i nie mam pojęcia jak to rozwiązać nie używając DateUtils. Program ściąga już czas systemowy (do samego zegarka) więc chodzi o wklepanie mu drugiej daty i w jakiejś kontrolce zwrócenie ilości dni, godzin itd. Może być też sama ilość dni jeśli będzie to w jakiś sposób prostsze. Nie znalazłem ani na forum ani w sumie nigdzie indziej jakiś gotowców czy chociażby podobnych programów które mógłbym wykorzystać.

Czy ktoś ma jakiś pomysł jak to zrobić?

Pozostało 580 znaków

2015-01-17 14:22
var Delta:Int64;
var Days,Hours,Minuts,Seconds:Word;
var Str:String;
Delta:=Round((DatieTimePicker1.Date-Now)*24*60*60);
Days:=Delta div (24*60*60);
Hours:=(Delta-(24*60*60)*Days) div (60*60);
Minuts:=(Delta-(24*60*60)*Days-(60*60)*Hours) div 60;
Seconds:=Delta-(24*60*60)*Days-(60*60)*Hours-60*Minuts;
Str:=Format('%d dni %.2d:%.2d:%.2d',[Days,Hours,Minuts,Seconds]);

Wykonuję programy na zamówienie, pisać na Priv.
Asm/C/C++/Pascal/Delphi/Java/C#/PHP/JS oraz inne języki.

Pozostało 580 znaków

2015-01-17 17:40
Mały Pomidor
0

Jeśli jesteś z okolic Warszawy, to wiszę Ci piwo

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0