VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: ortchi	Datum: 10.07.2006 15:36:44	Views: 2443	Rating:	Antwort:
Thema: Datumsfunktion
Hallo, ich schreibe gerade eine Chipkartenprogramm für einen Tierarzt und möchte darin in einer Combobox das heutige datum auswählen. Bis um 12.00 funktioniert das auch perfekt! Aber nach um 12.00 fängt der neue Tag an. For datum = CLng(CDate(dat)) To CLng(CDate(dat2)) 'Datum in Combobox einfügen ComboBox1.AddItem CDate(datum) ComboBox2.AddItem CDate(datum) ComboBox3.AddItem CDate(datum) Next datum 'Listindex wird auf das heutige Datum gesetzt CmboBox1.ListIndex = CLng(Now) - CLng(CDate(dat)) ComboBox2.ListIndex = CLng(Now) - CLng(CDate(dat)) ComboBox3.ListIndex = CLng(Now) - CLng(CDate(dat)) Also habe ich im Netz gesucht und dachte es liegt am Runden, 12.00 Uhr entspricht 0,5 , also wird es aufgerundet. Also folgender Code: For datum = CLng(CDate(dat)) To CLng(CDate(dat2)) 'Datum in Combobox einfügen ComboBox1.AddItem CDate(datum) ComboBox2.AddItem CDate(datum) ComboBox3.AddItem CDate(datum) Next datum 'Listindex wird auf das heutige Datum gesetzt ComboBox1.ListIndex = CLng(Now) - 1 / 2 - CLng(CDate(dat)) ComboBox2.ListIndex = CLng(Now) - 1 / 2 - CLng(CDate(dat)) ComboBox3.ListIndex = CLng(Now) - 1 / 2 - CLng(CDate(dat)) Jetzt funktioniert das Progi an ungeraden Tagen und an geraden Tagen ab 12.00 wieder ein Tag mehr. Hat jemand einen Tip, wo mein Denkfehler liegt? Danke! ORtchi

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen