vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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

Visual-Basic Einsteiger
Im Kalender fehlen der 6. und 7. 
Autor: Hank-15
Datum: 08.05.24 18:06

ich schreib mir eben einen Kalender und ich kann machen was ich will es fehlen 2 Tage 😞

Option Explicit
 
Dim xTag&, xMonat&, xJahr&, xTageImMonat&
Dim llx As Integer
Dim Datum1, Tag1
 
Private Sub Form_Load()
 xTag = Format(Date, "d"): xMonat = Format(Date, "mm"): xJahr = Format(Date, _
   "yyyy")
 Datum1 = "1." & xMonat: Tag1 = Weekday(Datum1)
 xTageImMonat = Day(DateSerial(xJahr, xMonat + 1, 0))
 For llx = 0 To 11
  If llx > 0 Then Load LblMonat(llx)
   With LblMonat(llx)
       .Left = LblMonat(0).Left: .Top = LblMonat(0).Top + (.Height + 60) * (llx _
         Mod 12): .Caption = Format$(DateSerial(Year(Now), llx + 1, 1), " mmmm" & _
         ""): .Visible = True
   End With
 Next
 For llx = 0 To 6
  If llx > 0 Then Load LblTagName(llx)
  With LblTagName(llx)
      .Left = LblTagName(0).Left + (.Width + 60) * (llx Mod 7): .Visible = True
  End With
 Next
 LblDatum(0).Left = LblTagName(Tag1 - 2).Left
 For llx = 0 To xTageImMonat - 1
  If llx > 0 Then Load LblDatum(llx)
  With LblDatum(llx)
     If llx < 5 Then .Left = LblDatum(0).Left + (.Width + 60) * (llx Mod 5): _
       .Visible = True: .Caption = "  " & llx + 1
     If llx > 4 Then .Left = LblTagName(0).Left + (.Width + 60) * (llx Mod _
     7): .Top = LblDatum(0).Top + (.Height + 40) * (llx \ 7): .Visible = True: _
     .Caption = "  " & llx + 1
  End With
 Next
 LblDatum(xTag - 1).ForeColor = vbGreen
 LblTagName(0).Caption = "Montag": LblTagName(1).Caption = "Dienstag": _
   LblTagName(2).Caption = "Mittwoch": LblTagName(3).Caption = "Donnerstag"
 LblTagName(4).Caption = "Freitag": LblTagName(5).Caption = "Samstag": _
 LblTagName(6).Caption = "Sonntag"
 LblMonat(xMonat - 1).ForeColor = vbGreen: LblTagName(Tag1 - 2).ForeColor = _
 vbGreen
End Sub
Danke schonmal 😀
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Im Kalender fehlen der 6. und 7.102Hank-1508.05.24 18:06
Re: Im Kalender fehlen der 6. und 7.47Kuno6008.05.24 19:51
Re: Im Kalender fehlen der 6. und 7.38Kuno6009.05.24 01:15
Re: Im Kalender fehlen der 6. und 7.37Hank-1509.05.24 08:01
Re: Im Kalender fehlen der 6. und 7.40Hank-1509.05.24 08:49
Re: Im Kalender fehlen der 6. und 7.24Kuno6011.05.24 00:39
Re: Im Kalender fehlen der 6. und 7.25Hank-1511.05.24 09:40

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