Seite 1 von 1
Makro für aktuelle Uhrzeitanzeige in einem Eingabeformular
Verfasst: Mi, 28.02.2007 19:17
von 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
Verfasst: Do, 01.03.2007 08:25
von 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
Verfasst: Sa, 03.03.2007 18:07
von 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