Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Formatowanie daty i czasu
anonim




Typ: Nie zarejestrowany
Formatowanie daty i czasu

Sprawa wyglada tak, ze w jednym TextBox-ie wyswietlana jest data a w drugim godzina i chodzi o to, aby sformatowac wyswietlanie daty na "d mmmm yyyy" a czasu na "hh:mm" niezaleznie od formatu systemu. Potrzebna date i czas w TextBox-ie ustawia sie SpinButton-em. Dla daty zastosowalem jeden SpinButton, a dla czasu dwa. Jeden do ustawiania godziny, a drugi minuty. Formatowanie daty zadzialalo, ale po probie jej zmiany SpinButtonem data powraca do systemowego formatu, albo w ogole sterowanie SpinButtonem przestaje dzialac. W przypadku czasu jest jeszcze gorzej, dlatego, ze jest on wyswietlany w formacie "hh:mm:ss", czyli z sekundami, ktore nie sa mi do niczego potrzebne.

-------------------
Private Sub UserForm_Activate()
Dim BiezacaData As Date
Dim BiezacaGodz As Date
BiezacaGodz = Time
DataBiezaca = Format(Date, "d mmmm yyyy"
BiezacaGodz = Format(Time, "hh:mm"

    With TextBoxData
        TextBoxData.Value = DataBiezaca
    End With

    With TextBoxGodz
        TextBoxGodz.Value = BiezacaGodz
    End With
End Sub
--------------------------
Private Sub SpinButton3_SpinDown()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value
godzina = Format(Time, "hh:mm"
    With TextBoxGodz
        TextBoxGodz.Value = godzina - 0.0416
    End With

End Sub
-------------------------
Private Sub SpinButton3_SpinUp()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value
godzina = Format(Time, "hh:mm"

    With TextBoxGodz
        TextBoxGodz.Value = godzina + 0.0416
    End With

End Sub
----------------------
Private Sub SpinButtonGodz_SpinDown()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value

    With TextBoxGodz
        TextBoxGodz.Value = godzina - 0.00069
    End With

End Sub
------------------------
Private Sub SpinButtonGodz_SpinUp()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value

    With TextBoxGodz
        TextBoxGodz.Value = godzina + 0.00069
    End With

End Sub
------------------------
Private Sub SpinButtonData_SpinDown()
Dim dzien As Date
dzien = Date
dzien = TextBoxData.Value
dzien = Format(Date, "d mmmm yyyy"

    With TextBoxData
        TextBoxData.Value = dzien - 1
    End With

End Sub
-------------------------
Private Sub SpinButtonData_SpinUp()
Dim dzien As Date
dzien = Date
dzien = TextBoxData.Value
dzien = Format(Date, "d mmmm yyyy"

    With TextBoxData
        TextBoxData.Value = dzien + 1
    End With

End Sub


Mniej wiecej wyglada to u mnie tak jak wyzej. Wzorowalem sie na roznych przykladach jakie znalazlem w sieci, a przy moim doswiaczeniu na pewno nie jest to najlepiej sformuowane.

03-07-2004 12:30
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Popatrz na zmiany, formatuj datę, godzinę i minutę, jak wstawiasz w okienko


Private Sub UserForm_Activate()
Dim BiezacaData As Date
Dim BiezacaGodz As Date
BiezacaGodz = Time
DataBiezaca = Format(Date, "d mmmm yyyy"
BiezacaGodz = Format(Time, "hh:mm"

    With TextBoxData
        .Value = DataBiezaca
    End With

    With TextBoxGodz
        .Value = BiezacaGodz
    End With
End Sub
--------------------------
Private Sub SpinButton3_SpinDown()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value
godzina = Format(Time, "hh:mm"
    With TextBoxGodz
        'odejmij minutę
        .Value = Format(DateAdd("n", -1, godzina), "hh:mm"
    End With

End Sub
-------------------------
Private Sub SpinButton3_SpinUp()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value
godzina = Format(Time, "hh:mm"

    With TextBoxGodz
        'dodaj minutę
        .Value = Format(DateAdd("n", 1, godzina), "hh:mm"
    End With

End Sub
----------------------
Private Sub SpinButtonGodz_SpinDown()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value

    With TextBoxGodz
        'odejmij godzinę
        .Value = Format(DateAdd("h", -1, godzina), "hh:mm"
    End With

End Sub
------------------------
Private Sub SpinButtonGodz_SpinUp()
Dim godzina As Date
godzina = Time
godzina = TextBoxGodz.Value

    With TextBoxGodz
        'dodaj godzinę
        .Value = Format(DateAdd("h", 1, godzina), "hh:mm"
    End With

End Sub
------------------------
Private Sub SpinButtonData_SpinDown()
Dim dzien As Date
dzien = Date
dzien = TextBoxData.Value
dzien = Format(Date, "d mmmm yyyy"

    With TextBoxData
        'odejmij dzień
        .Value = Format(DateAdd("d", -1, dzien), "d mmmm yyyy"
    End With

End Sub
-------------------------
Private Sub SpinButtonData_SpinUp()
Dim dzien As Date
dzien = Date
dzien = TextBoxData.Value
dzien = Format(Date, "d mmmm yyyy"

    With TextBoxData
        'dodaj dzień
        .Value = Format(DateAdd("d", 1, dzien), "d mmmm yyyy"1,
    End With

End Sub



Najbardziej widać to na tym przykładzie:


Sub fdiosfuiosd()
Dim dzien As Date
Dim godzina As Date
Dim minuta As Date

dzien = Date
godzina = Time
minuta = godzina

MsgBox dzien & vbTab & Format(DateAdd("d", 1, dzien), "dd-mm-yyyy"
MsgBox godzina & vbTab & Format(DateAdd("h", 1, godzina), "hh:mm"
MsgBox godzina & vbTab & Format(DateAdd("n", 1, godzina), "hh:mm"
End Sub


[Post edytowany dnia 04-07-2004 12:29 przez losmac]


_____________________________________________
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ś

04-07-2004 12:20
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

Po wprowadzeniu kilku korekt w moim bałaganie ze zmiennymi formatowanie pięknie zadziałało i wszystko śmiga aż miło.

Dzięki losmac

04-07-2004 18:44
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1