'<cmt>09-CVN-07 10:33:13</cmt>
Sub test_parsovani_data()
Dim sCmt
sCmt = "09-CVN-07 10:33:13"
MsgBox ("Původní formát: " & sCmt & vbCrLf & "Nový formát: " & parse_date_cz(sCmt))
End Sub
' funkce vrátí požadovaný formát data
Function parse_date_cz(sCmt)
Dim dMyDate As Date
Dim sDay
Dim sMonth
Dim sYear
Dim sTime
sDay = Left(sCmt, 2)
sMonth = Mid(sCmt, 4, 3)
sYear = Mid(sCmt, 8, 2)
sTime = Right(sCmt, 8)
' zkratky měsíců nemusí odpovídat
Select Case sMonth
Case "LED"
sMonth = 1
Case "UNO"
sMonth = 2
Case "BRE"
sMonth = 3
Case "DUB"
sMonth = 4
Case "KVE"
sMonth = 5
Case "CER"
sMonth = 6
Case "CVN"
sMonth = 7
Case "SRP"
sMonth = 8
Case "ZAR"
sMonth = 9
Case "RJN"
sMonth = 10
Case "LIS"
sMonth = 11
Case "PRO"
sMonth = 12
End Select
dMyDate = sDay & "/" & sMonth & "/" & sYear & " " & sTime
' upravený formát data
sDay = Format(dMyDate, "dd")
sMonth = Format(dMyDate, "mm")
sYear = Format(dMyDate, "yyyy")
sTime = Format(dMyDate, "hh:mm:ss")
' příklad vrácené funkce (rrrr-mm-dd hh:mm:ss)
parse_date_cz = sYear & "-" & sMonth & "-" & sDay & " " & sTime
End Function
ha ! Tak tohle tam nemohu najít ??ale obecně v BC v levém dolním rohu poklepáním na průjezdní bod - otevře se karta - " Vlastností " a tam v " Zobrazení " se dá zvolit pouze Symbol.
Online uživatelé v tomto fóru: CommonCrawl [Bot] a 3 návštevníci.