Witam Potrzebuję pomocy w stworzeniu kodu VB w exelu do obliczania dni między dwoma datami na bazie kodu DataDiff . Kod będzie uruchamiany przyciskiem: Tak aby pobierało 1 datę z TextBox8 a drugą z TextBox12 i po policzeniu wpisało w 20 kolumnę arkuszu Ewidencja - exela

Radzę zadać pytanie na forum programowanie

Funkcja DateDiff jest wyczerpująco opisana w pomocy. Kłopot może sprawiać pobieranie dat z TextBox'ów. Jak sama nazwa wskazuje, są w formacie tekstowym. Przydatna może być tutaj funkcja DateValue oraz wymuszenie właściwego formatu podczas wpisywania.

Na innym forum dostałem już odpowiedź Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Private Sub CommandButton1_Click() Worksheets(Ewidencja).Range(T1).Value = DateDiff(d, Me.TextBox8, Me.TextBox12) End Sub

Excel - stworzeniu kodu VB na bazie funkcji DateDiff

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 11230685 21 Sie 2012 16:18

undio undio

Poziom 11

Posty: 60

Ocena: 8
Autor tematu

Post #1
11230685 21 Sie 2012 16:18

Witam
Potrzebuję pomocy w stworzeniu kodu VB w exelu do obliczania dni między dwoma datami na bazie kodu DataDiff.
Kod będzie uruchamiany przyciskiem:
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
DataDiff

Tak aby pobierało 1 datę z TextBox8 a drugą z TextBox12 i po policzeniu wpisało w 20 kolumnę arkuszu Ewidencja - exela
REKLAMA
#2 11230995 21 Sie 2012 18:01

Defice Defice

Poziom 25

Posty: 698

Pomógł: 101

Ocena: 15
Pomocny post? (0)

Post #2
11230995 21 Sie 2012 18:01

Radzę zadać pytanie na forum "programowanie"
REKLAMA
#3 11231152 21 Sie 2012 18:51

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 658
Pomocny post? (0)

Post #3
11231152 21 Sie 2012 18:51

Funkcja DateDiff jest wyczerpująco opisana w pomocy. Kłopot może sprawiać pobieranie dat z TextBox'ów. Jak sama nazwa wskazuje, są w formacie tekstowym. Przydatna może być tutaj funkcja DateValue oraz wymuszenie właściwego formatu podczas wpisywania.
#4 11232120 21 Sie 2012 22:36

undio undio

Poziom 11

Posty: 60

Ocena: 8
Autor tematu Pomocny post? (0)

Post #4
11232120 21 Sie 2012 22:36

Na innym forum dostałem już odpowiedź

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
Private Sub CommandButton1_Click() Worksheets("Ewidencja").Range("T1").Value = DateDiff("d", Me.TextBox8, Me.TextBox12) End Sub
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa