Nastavení času

[libor]

Chtěl bych nastavit čas přes modul Timdat. "Vysunul" jsem si parametry settime a setdate pod tento modul, ale ať zadávám jakékoliv hodnoty, tak se mi nedaří, aby se mi čas nastavil. Když tu samou hodnotu zadám přes dialog, tak se nastaví. Blokovací vstupu ovládám. Kde dělám chybu?

Dotaz zaslaný mailem (viz výzva).

[libor]

Problém je v tom, že zadávaná hodnota do dialogu je v BCD (zapisované číslo se bere jako hexadecimální), takže při zápisu do label-konstanty je potřeba hodnotu nejprve převést do desítkové soustavy.

Například pro zadání času 11:11:11 by se do dialogu zapsalo 111111, což je číslo 0x111111, které je potřeba před zápisem do label-konstanty nejprve převést do desítkové soustavy (1118481).

Ukázka je v přiložené projektu.

(připojené soubory vidí pouze registrovaní uživatelé)