Lemur zaprasza
Strona: [ > ] 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 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |