Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Uhrzeit in 3 Integer Speichern

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
30.11.2004, 13:17 Uhr
RedEagle



ich möchte die System zeit ermitteln, und in 3 Integer-Variablen speichern:

Visual Basic:
Dim Stunde As Integer
Dim Minute As Integer
Dim Sekunde As Integer
Dim Zeit As Date


Private Sub Form_Load()

Zeit = Format(Int(Now), "0000")  'Zeit ist = 00:00:00 (Getestet)
Stunde = Format(Zeit, "hh") 'Stunde ist = 0 (Auch getestet)
txt_text.Text = Stunde ' Zum Test

End Sub



Wach mache ich falsch??

Wenn ich anstatt "Int(Now)" nur "Now" schreibe, ändert sich auch nichts.
--
MFG RedEagle
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
30.11.2004, 13:40 Uhr
Bruder Leif
dances with systems
(Operator)


Moin!

Meinst Du so was wie das hier?


Visual Basic:
Private Sub Timer1_Timer()
    Dim sekunden As String
    Dim minuten As String
    Dim stunden As String
    Dim zeit
    
    zeit = Time
    sekunden = Format(Second(zeit), "00")
    minuten = Format(Minute(zeit), "00")
    stunden = Format(Hour(zeit), "00")
    
    Label1.Caption = stunden & ":" & minuten & ":" & sekunden
End Sub


--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
30.11.2004, 16:41 Uhr
RedEagle



Ja, fast.

Läuft aber nicht :

minuten = Format(Minute(zeit), "00") 'Erwartet Datenfeld

Was ist falsch??
--
MFG RedEagle

Dieser Post wurde am 30.11.2004 um 16:42 Uhr von RedEagle editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
30.11.2004, 19:39 Uhr
Bruder Leif
dances with systems
(Operator)


?!? Bin verwirrt, der Quellcodeabschnitt, den ich gepostet hab, stammt 1:1 aus meinem VB 4.0; vielleicht funzt es mit neueren Versionen nicht mehr? Hab kein neueres, hab die VB-Versionen 5 und 6 mit Delphi übersprungen...
--
Mit 40 Fieber sitzt man nicht mehr vor dem PC.
Man liegt im Bett.
Mit dem Notebook.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
30.11.2004, 19:49 Uhr
RedEagle



mmmm Interessant, mit VB 5.0 gehts wirklich.

naja, egal benutze ich halt 5, nicht 6


--
MFG RedEagle
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: