vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest niedziela, 13 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

 sprawdzanie poprawności daty


otwartyotwarty rozpoczął: tedew postów: 7


napisał: tedew
postów: 19


umieszczony:
22 czerwca 2005
10:13

  
r_c
dzięki za pomoc , i sorki za problem - ale na początku miał być txtbox ale się zmieniło na inputbox :)

jeszcze raz sorki

pozdr.
napisał: tedew
postów: 19


umieszczony:
22 czerwca 2005
09:40

  
@r_c
dzięki za kłopot , i sorki za problem - ale na początku miał być txtbox ale się zmieniło na inputbox :)

jeszcze raz sorki

pozdr.
napisał: r_c
postów: 38


umieszczony:
21 czerwca 2005
17:25

  
Raz wspominasz o textboxie raz o imputboxie o co właściwie chodzi?
Ponizej kod który formatuje datę

Sub PrawidlowaData()
Const F = "yyyy/mm/dd;@"
Dim m_data
Do
   m_data = InputBox("Podaj datę", "Data", _
            "Podaj datę w formacie rrrr-mm-dd")
   If IsDate(m_data) Then Exit Do
   MsgBox "Podaj prawidłowy format daty: np. " _
          & Format(Date, F) & " .", vbCritical, "Popraw"
Loop
     m_data = Format(m_data, F)
     MsgBox "Tak jest b.dobrze : " & m_data

End Sub
napisał: tedew
postów: 19


umieszczony:
21 czerwca 2005
10:16

  
witam
Panowie dzieki za odp :)
tylko mam problem z ustaleniem formatu daty :( , musi być koniecznie taki , np:
2005-05-02 czyli rok-miesiac-dzien ( razem z tymi myślnikiami )
date taką przesyłam do zmiennej za pomocą inputBox

pozdr.
napisał: r_c
postów: 38


umieszczony:
16 czerwca 2005
18:47

  
A może tak:
Dim m_data
m_data = Format(TextBox1.Value, vbShortDate)
  ' vbshortDate pobiera ustawienie krótkiej daty w Panelu Sterowania
    If Not IsDate(TextBox1.Value) Then
       MsgBox "Podaj prawidłowy format daty: np. " & Date & " .", vbCritical, "Popraw"
       With TextBox1
            .Value = ""
            .SetFocus
       End With
    Else
End If
End Sub


r_c
napisał: pil
postów: 154


umieszczony:
16 czerwca 2005
15:31

  
Może coś takiego ?
Do while (IsDate(wartosc_z_txt) = False)
   'pętla wykonywana dopóki użytkownik
   'nie poda właściwego formatu
   MsgBox "Podaj prawidłowy format"
Loop
napisał: tedew
postów: 19


umieszczony:
16 czerwca 2005
13:01

  
witam:)
ostatnio napotkałem na taki oto problem:)
jest pole txt do którego wprowadzam date - która jest wykorzytsawan później w programie. Wszytsko pięknie jak user wprowadzi poprawny format daty, jednak zawsze ktoś poda zły i się wywala program
prawidłowy format jest taki : 2005-05-05
I pytanko
Czy może zrobic tak aby program tak długo kazał wpisywać date aż będzie miała odp format ??? trzeba by było stworzyć jakąś maskę ( lub coś podobnego ) aby to sprawdzało - tylko że niezabradzo wiem jak to zrobić :(

może ktoś miał doświadczenie z takim probleme ???

pozdr


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z
Zarejestrowanych użytkowników: 6379 free counters
© A. Szarek 2003-2024
Warning: Unknown: write failed: Disk quota exceeded (122) in Unknown on line 0 Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct (/tmp) in Unknown on line 0