Fehler in Datumsprüfung

Computer: Software & Programmierung Visual Basic
#1

Moin,
habe schon ein schlechtes gewissen da ich mom ja dauerkunde bin :stuck_out_tongue:
aber da ist noch ein problem das ich habe:
Warum funktionier die Datumsprüfung nicht ?
Es werde keine Files Kopiert obwohl der Ordner Leer ist :confused:

Public Source As String
Public Desti As String
Public Testi2 As date
Public dtest As Long
Public DrDate As String

dtest = 4 'Monate
Source = „C:\source.src“
Desti = „C:\Desti.dst“

If GFTM(Source) GFTM(Desti) Then
DrDate = GFTM(Source)
Testi2 = Left(DrDate, InStrRev(DrDate, „.“) - 1)

If DateDiff(„m“, Testi2, Date)

#2

Was fehl ist die
If PathFileExists(Desti) = False Then

prüfung oder ? der rest ist ok ?

erst denken …

#3

Hi Joe,

Was fehl ist die
If PathFileExists(Desti) = False Then

prüfung oder ?

ja, sieht danach aus.

der rest ist ok ?

Die Zeile …

Testi2 = Left(DrDate, InStrRev(DrDate, „.“) - 1)

würde ich ersetzen durch:

Testi2 = DateValue(DrDate)

Die Stringoperation ist ‚unsauber‘ und langsam.

Gruß, Rainer

#4

Hi Joe,

habe schon ein schlechtes gewissen da ich mom ja dauerkunde
bin :stuck_out_tongue:

*gg* dafür ist das Brett doch da. :smile: Wenn das Problem gelöst ist kannst Du ja trotzdem auch mal mitlesen …

Gruß, Rainer

#5

hmmmpf

ich habe nun
DrDate = GFTM(Source)
Testi2 = DateValue(DrDate)

DrDate As Date geht nicht wegen GFTM(Source) oder ?
Testi2 As Date

Wenn DrDate ein String ist bekomme ich nen fehler von Testi2
und wenn DRdate ein Date ist bekomme ich nen fehler vom GFTM(Source)

danke , mfg joe

Testi2 = Left(DrDate, InStrRev(DrDate, „.“) - 1)

würde ich ersetzen durch:

Testi2 = DateValue(DrDate)

Die Stringoperation ist ‚unsauber‘ und langsam.

Gruß, Rainer

#6

Hi Joe,

ich habe nun
DrDate = GFTM(Source)

was ist das?

Testi2 = DateValue(DrDate)

Hier ist Testi2 ein Datum, DrDate ein String, der ein Datum enthält. DateValue wandelt den String in das Datumsformat.

DrDate As Date geht nicht wegen GFTM(Source) oder?

Ich verstehe kein Wort.

Testi2 As Date

Wenn DrDate ein String ist bekomme ich nen Fehler von Testi2

Nein, bekommst Du nicht. Hab ich getestet, DateValue funktioniert. :smile:

Gruß, Rainer

#7

Ergänzung
Hi Joe,

Wenn DrDate ein String ist bekomme ich nen fehler von Testi2

Korrektur, Du bekommst einen Fehler, wenn der String nichts enthält, was man in ein Datum umwandeln kann. Das kann man aber mit IsDate() vorher prüfen, damit man nicht am Ende noch ‚On Error‘ verwendet. :smile:

Gruß, Rainer