vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Suche Visual-Basic Code
Code 
Autor: Chris
Datum: 27.07.01 18:10
Private Sub Command1_Click()
Dim Von As Date
Dim Bis As Date
Dim TT As Integer
Dim MM As Integer
Dim JJ As Integer
Dim sFilename As String
Dim Summe As Long
Dim F As Integer
Dim sLine As String

List1.Clear

With Text1
TT = Val(Left$(.Text, 2)): MM = Val(Mid$(.Text, 4, 2)): JJ = Val(Mid$(.Text, 7))
End With
With Text2
Bis = DateSerial(Val(Mid$(.Text, 7)), Val(Mid$(.Text, 4, 2)), Val(Left$(.Text, 2)))
End With

Summe = 0
Do
Von = DateSerial(JJ, MM, TT)
If Von > Bis Then Exit Do

sFilename = "cigene dateien\" & Format$(Von, "dd.mm.yy") & ".txt"
If Dir$(sFilename, vbNormal) <> "" Then

F = FreeFile
Open sFilename For Input As #F
Line Input #F, sLine
Close #F

Summe = Summe + CLng(sLine)
End If
TT = TT + 1
Loop

Text3.Text = CLng(Summe)

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Von....Bis.....92Chris23.07.01 15:01
Re: Von....Bis.....284ModeratorDieter23.07.01 15:05
Danke Dieter ! ! ! !64Chris23.07.01 15:09
Dieter bitte ansehen ! ! !66Chris23.07.01 15:26
Re: Dieter bitte ansehen ! ! !261ModeratorDieter23.07.01 15:35
FUNKTIONIERT !!!66Chris23.07.01 15:39
Bitte lesen, Dieter ! ! !78Chris23.07.01 16:44
Re: Bitte lesen, Dieter ! ! !278ModeratorDieter23.07.01 16:57
Bitte lesen, Dieter(Wichtig)73Chris25.07.01 12:17
Re: Bitte lesen, Dieter(Wichtig)276ModeratorDieter25.07.01 13:50
Re: Bitte lesen, Dieter(Wichtig)63Chris26.07.01 16:38
Mehr Input...276ModeratorDieter26.07.01 19:16
Re: Mehr Input...62Chris27.07.01 10:19
Re: Mehr Input...279ModeratorDieter27.07.01 10:27
Hilfe, Dieter64Chris27.07.01 14:58
Re: Hilfe, Dieter275ModeratorDieter27.07.01 15:23
Re: Hilfe, Dieter61Chris27.07.01 17:27
Re: Hilfe, Dieter295ModeratorDieter27.07.01 17:56
Code79Chris27.07.01 18:10
Hmm...296ModeratorDieter27.07.01 18:20
Re: Hmm...64Chris28.07.01 09:29
Re: Hmm...304ModeratorDieter28.07.01 09:42

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-2025 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