vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Verzeichnis 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ß
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

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