Datum ve StatusBaru aplikace
Postup:
Na formulß° p°idejte
statusbar. V jeho kart∞ vlastnostφ, kde se definujφ jednotlivΘ panely,
nastavte panel 2 na typ Text a jeho Üφ°ku na 2000.
Na udßlost Load formulß°e
zapiÜte nßsledujφcφ k≤d:
StatusBar.Panels(2).Text
= UCase(Mid(Format(Date, "dddd"), 1, 1)) + Mid(Format(Date, "dddd"),
2) + ", " + Format(Date, "LONG DATE")
* celΘ
je to na jednΘ °ßdce
A te∩ aplikaci spus¥te.