www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Case-Anweisung
Autor:  ChristianOtt
E-mail:  Antworten bitte nur in das Forum!
Datum:  16.02.2010 09:04:35
Subject:  Case-Anweisung
Bezug zum Buch:  Windows Scripting lernen
Message:  Hallo zusammen

bin gerade dabei mir das Scripting anzueignen und bin dabei auf einen komischen Fehler gestoßen, vielleicht hab ich aber auch nur einen Verständisfehler oder eine Kleinigkeit übersehen:

=============== Code ===================
Datum = CDate(Date+8)
LogDatum = CDate("14.02.2010")
Diff = 0
'wscript.echo diff

Diff = CInt(DateDiff("d", LogDatum, Datum))
'wscript.echo diff

Select Case Diff = CInt(DateDiff("d", LogDatum, Datum))
    Case (Diff >= 7)                                 
        wscript.echo("Diff " & Diff & ": >= 7")
        'objFSO.DeleteFolder(BAKPfad & geradeWoche)
    Case (Diff > 0) And (Diff < 7)
        Wscript.Echo("Diff " & Diff & ": > 0 und < 7")
    Case (Diff = 0)                                  
        Wscript.Echo("Sicherung nicht gestartet, da heute schon gesichert wurde!!")
        Diff = Empty     
        WScript.Quit
End Select
=============== Code ===================

Wenn ich eine der beiden Berechnungen von Diff weglassen, funktioniert das Script nicht und somit ist Diff lt. der Case-Anweisung immer >= 7!!!
Eigentlich bin ich davon ausgegangen, dass wenn Diff bereits ein Wert zugewiesen wurde, dass ich mit 'Select Case Diff' nicht noch einmal eine Berechnung anstellen muss, aber erst dann funktionierts??!!

Kann ich 'CInt()' dazu zwingen, immer eine positive Zahl zu liefern?

Ich danke euch
Christian

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Case-Anweisung von ChristianOtt  am 16.2.2010 9:04:35 AM
 Re: Case-Anweisung von MarkusDolhaine  am 28.3.2010 8:54:05 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019