format daty z kodu kreskowego

Thread View: pl.comp.bazy-danych.msaccess

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by Phantom Sun, 13 Mar 2016 11:08

#133733

Author: Phantom
Date: Sun, 13 Mar 2016 11:08

35 lines
959 bytes

Witam
dotyczy MsAccess2000-2003

Mam liczbê:
10000210000100000108021610000000004
na podstawie której tworzê kod kreskowy.
od liczby nr 19 do 24 - to liczba: 080216 która jest odpowiednikiem daty: 08 luty 2016.
Stosujê poni¿szy kod do wyci±gniêcia liczby z "liczby d³ugiej:
-------------------------------------------------
Function IDDDodZKodu(ss) As Long
On Error GoTo err_
Dim zz As Long, s2 As String

IDDDodZKodu = 0
If Len(Nz(ss, "")) <> 35 Then Exit Function

s2 = Mid(ss, 19, 6)
zz = CLng(Mid(s2, 1, 6))

IDDDodZKodu = zz

Exit Function
err_:
MsgBox "Blad w IDDDodZKodu. " & Err.Description
End Function
-------------------------------------------------
Funkcja dzia³a dobrze i uzyskujê po jej zastosowaniu liczbê:
080216
Moim problemem jest zamiana tej liczby na datê:
d³ug± lub krótk± - 08 luty 2016 r. lub ka¿d± inn± któr± mo¿na zastosowaæ w zapytaniach.

Proszê o pomoc
Pozdrawiam
Tomek

Re: format daty z kodu kreskowego

#133735

Author: MaciejF
Date: Mon, 14 Mar 2016 02:07

9 lines
157 bytes

Mo¿e tak:

datDataZK = CDate("20" & Mid(zz, 5, 2) & "-" & Mid(zz,3,2) & "-" & Left(zz,2))


Trochê prostacko ale uzyskujesz swój format.

/
MaciejF

Re: format daty z kodu kreskowego

#133736

Author: MaciejF
Date: Mon, 14 Mar 2016 02:15

9 lines
214 bytes

Jeszcze jedno,
Proponujê jednak nie konwertowaæ ci±gu tekstowego s2 na liczbê.
Niech bêdzie zz = Mid(s2, 1, 6)

080206 z pewno¶ci± nie jest liczb± i tu mo¿e byæ problem.

Pozdrawiam
/
MaciejF

Re: format daty z kodu kreskowego

#133737

Author: MaciejF
Date: Mon, 14 Mar 2016 03:22

4 lines
122 bytes

Mo¿esz u¿yæ bezpo¶rednio s2
datDataZK = CDate("20" & Mid(s2, 5, 2) & "-" & Mid(s2,3,2) & "-" & Left(s2,2))

MF

Re: format daty z kodu kreskowego

#133739

Author: Phantom
Date: Mon, 14 Mar 2016 07:55

1 lines
29 bytes

Dzia³a - dziêki wielkie!

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads