Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Data
anonim




Typ: Nie zarejestrowany
Data

Witam,

Uruchamia się Formularz1 w którym uzupełniamy dane np. Nazwisko, Imię, Adres itd. Po wpisaniu tych danych i kliknięciu w przycisk Zapisz wszystkie dane zostają zapisane do pliku wynik.txt i uruchamia się kolejny Formularz2 który wyświetla jakiś tekst.

Do pliku zapisywana jest data:

Print #1, Date
Print #1, Date + 30

Więc struktura pliku .txt po zapisaniu wygląda tak:

Kowalski
Jan
Warszawa
01-01-05
31-01-05
Pierwsza data zapisywana jest w linii 6 pliku a druga w 7 linii. 

Moje pytanie brzmi:
Jak napisać procedurę, żeby przy kolejnym uruchomieniu Formularza1 powyższy przedział dat był sprawdzany z datą systemową i program został uruchomiony lub nie?
Program zostaje uruchomiony po dacie 31-01-05, uruchamia się wtedy Formularz1
2) Program nie zostaje uruchomiony, pomiędzy  01-01-05 , 31-01-05 i wtedy uruchamia się tylko Formularz2 
Poszę o pomoc !!!
M.J.

26-01-2005 09:29
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

odczyt pliku

Open .... #1
  Do While Not Eof(#1)
    i = i + 1
    If i = 6 Then Input Line #1, beg_data
    If i = 7 Then Input Line #1, end_data
    If i > 7 Then exit do
  Loop
Close #1

dzis = Date()

'dziś miesci się pomiędzy porównywanymi datami
If dzis >= beg_data and dzis <= end_data then
  'uruchom form...
End If

'dziś nie miesci się pomiędzy porównywanymi datami
If dzis < beg_data or dzis > end_data then
  'uruchom form...
End If




_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

27-01-2005 21:35
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1