Makro für aktuelle Uhrzeitanzeige in einem Eingabeformular

[franky]

Hallo liebes Forum,

ich habe ein Eingabeformular erstellt und möchte nun, das wenn ich einen
Command Button drücke, die aktuelle Uhrzeit in das TimeField geschrieben
wird. Ich habe bis jetzt noch keine Lösung gefunden.

Bin für jede Hilfe dankbar.


Gruß Franky

[Toxitom]

Hey Franky,

dein Zeitfeld hat eine Eigenschaft "Time" sowie eine Eigenschaft "TimeFormat", womit du den Wert vorgeben kannst.
"Time" wird dabei als Long übergeben im Format HHMMSS00, TimeFormat als Short, wobei die wichtigsten bedeuten:
1 : HH:MM (24 Stunden anzeige)
2 : HH:MM:SS (24 Stunden).
Um nun die aktuelle Zeit in das geforderte Format umzuwandeln, nutzt du folgenden code:

Code: Alles auswählen

dim vTime as long
vTime = cLng(format(hour(time), "00") & format(minute(time), "00") & _ format(second(time), "00") & "00")
REM und den jetzt dem Kontrollelement zuweisen:
oCtl.time = vTime

Da du weiter Details deines Codes nicht verrätst, kann ich detaillierter nicht antworten

Viele Grüße
Thomas

[franky]

Hallo Toxitom,

vielen Dank, der Code hat mir schon weitergeholfen. Da ich gerade
erst in den Anfängen stecke für dieses Makro, habe ich noch
keine Codes.

Ich möchte mich da langsam rantasten und testen.
Danke für Deine schnelle Hilfe.

Gruß Franky