Re: Datum und Uhrzeit
05.09.2002 08:38:04
Holze
Passiert!!!Na dann versuch ich halt die Sache etwas einfacher zu erklären!!!
So sieht zur Zeit meine Datums-und Uhrzeiteingabe über die InputBox aus.
Sub eing()
Dim Prompt, datumseingabe
Prompt = "Bitte geben Sie Datum und Uhrzeit ein." & Chr(13) & Chr(10) & _
"Bitte nur in dieser Form: 13.03.2002 13:00" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"!!! Keine Eingabe hat die aktuelle Uhrzeit zur Folge !!!"
datumseingabe = InputBox(Prompt)
datumseingabe = Selection.NumberFormat = "m/d/yyyy h:mm"
If datumseingabe = ("") Or Not IsDate(datumseingabe) Then
ActiveCell = Now
Else
ActiveCell = datumseingabe
Selection.NumberFormat = "m/d/yyyy h:mm"
End If
........
end sub
Nun geht es aber darum das ich nicht immer eine Eingabe in der Formatierung "m/d/yyyy h:mm" machen möchte.
Sondern, Beispiel: aktuelles Datum = 5.10.2002 10.00
Jetzt das Problem:
1. Es erfolgt eine Eingabe = 3. ,dann soll die "3." im Datum als Tag zur aktuellen Datum verändert werden, ohne Monat,Jahr und Uhrzeit zu verändern, also Ergebnis = 3.10.2002 10:00
2. Eingabe = 3.9. , Ergebnis = 3.9.2002 10:00
3. Eingabe = 13: , Ergebnis = 5.10.2002 13:00
4. Eingabe = 13:43 , Ergebnis = 5.10.2002 13:58
5. Eingabe = .9. , Ergebnis = 5.9.2002 10.00
und zu letzt noch
6. alle Eingaben sollten kombinierbar sein Bsp:
Eingabe = 3. 13: , Ergebnis = 3.10.2002 13:00
Vieleicht hilft das ein bischen mehr zur Erklärung meines Problems.
Gruß Holze