| |
Fortgeschrittene ProgrammierungVerzeichnis suche | | | Autor: Philipp | Datum: 31.05.16 10:13 |
| Ich habe 31 Tages-Verzeichnisse. In den jeweiligen Tages-Vereichnisse werden Gif-Dateien gespeichert.
Nun möchte ich eine Slideshow erstellen die aus 6 Gif-Dateien besteht. Wie mache ich es, daß wenn im aktuellen Tages-Verzeichnis weniger
als 6 Dateien vorhanden sind das Programm das Tages-Verzeichnis -1 nimmt.
Also aktuelles Tages-Vereichnis = 31. Dateien im Tages-verzeichnis 31 = 3. Jetzt soll das Programm aus dem Tages-Verzeichnis 30 die letzten
3 Gif Dateien entnehmen. So das ingesamt die Slideshow 6 Dateien zu Verfügung hat. Aber auch, Februar mit 28 o. 29 Tage oder
Monate mit 30 oder 31 Tage sollten berücksichtigt werden.
Vielen Dank und Gruß | |
Re: Verzeichnis suche | | | Autor: Blackbox | Datum: 31.05.16 11:24 |
| Hallo Philipp,
vielleicht geht es mit einer Funktion, die die Tage des anstehenden Monats
zurückgibt leichter.
Private Function GetDaysOfMonth(ByVal sD As Date) As Long
GetDaysOfMonth = DateDiff("d", _
DateSerial(Year(sD), Month(sD), 1), _
DateAdd("m", 1, sD))
End Function n = GetDaysOfMonth("01.02.2016")
Ergebnis wäre hier 29.
n = GetDaysOfMonth("01.02.2015")
Ergebnis wäre hier 28. | |
Verbesserung bei unklaren Tagen | | | Autor: Blackbox | Datum: 31.05.16 18:44 |
| Private Function GetDaysOfMonth(ByVal sD As Date) As Long
Dim dNextM As Date
dNextM = DateAdd("m", 1, sD)
GetDaysOfMonth = DateDiff("d", _
DateSerial(Year(sD), Month(sD), 1), _
DateSerial(Year(dNextM), Month(dNextM), 1))
End Function Diese Funktion kann unabhängig vom Tagesdatum aufgerufen werden - es muss nicht
der erste Tag des Monats ein. | |
Re: Verzeichnis suche | | | Autor: Philipp | Datum: 31.05.16 20:45 |
| Hallo Blackbox,
erstmal vielen Dank für Deine Antwort. Werde es gleich Morgen ausprobieren.
Gruss | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|