vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 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

Fortgeschrittene Programmierung
hab's gefunden...  
Autor: TheSplash
Datum: 07.05.02 14:55

OK, danke Dieter !
ich hab aber eine andere Loesung gefunden:

man nehme 4Variablen, sagen wir Anno, Anno2, zAnno und Diff :

dim Anno as long
dim Anno2(0 to 100) as date
dim zAnno as long
dim Diff as integer

open >Pfad der Datei< for input as #1
for i = 0 to eof(1)
input #1, anno2(i)
anno = date
zanno = anno2(i)
diff = anno - zanno
next
close #1

so und nun muss man nur noch gucken, ob die Differenz also "Diff" groesser oder
kleiner als 30 ist. Weil die Variablen als LONG deklariert wurden, werden aus den Daten eine grosse Zahl. Dann kann man diese Zahlen voneinander subtrahieren und man erhaelt ein Ergebnis. Dieses Ergebnis wird einer INTEGER-Variable gegeben und weil der Long-Wert dann eine Integerzahl ist, stehen da die Tage. Also soll heissen wenn man den Long-Wert in einem Integer-Wert umwandelt, werden draus die Tage. probierst mal, wenn's dich interessiert.


nochmal DANKE und cu !

TheSplash
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datum vergleichen (nochmal) Fehler!55TheSplash06.05.02 20:40
Re: Datum vergleichen (nochmal) Fehler!197ModeratorDieter06.05.02 20:51
hab's gefunden... 79TheSplash07.05.02 14:55

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