[ Pobierz całość w formacie PDF ]
.Strona: [ > ] z 1 AutorTemat: DataanonimTyp:Nie zarejestrowanyDataWitam,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, DatePrint #1, Date + 30Wiêc struktura pliku.txt po zapisaniu wygl±da tak:KowalskiJanWarszawa01-01-0531-01-05Pierwsza 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 Formularz12) 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:neutralPostów: 758Zarejestrowany: May 2003odczyt plikuOpen.#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 LoopClose #1dzis = 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ê: 20Strona: [ > ] z 1
[ Pobierz całość w formacie PDF ]