jak udělat z txt formátu datum a čas Vyřešeno

[atari]

Mám datumy a čas v txt formátu (např: 10.1.2010 a 8:08:35). Potřebuji ve VBA tyto txt hodnoty dostat do proměnné, abych s tím mohl pracovat (datumy porovnávat se dnama v týdnu, porovnávat čas atd.) žádnou funkci v Excelu jsem nenašel. Je možné toto nějak jednoduše udělat? Přikládám vzorek dat.

[Reklama]

[navstevnik]

Pro prevod data a casu z textoveho retezce na ciselne hodnoty ve VBA slouzi funkce DateValue a TimeValue, pouziti napriklad takto:

Kód: Vybrat vše

Sub Prevod()
Dim cll As Range, Dcll As Date

Set cll = ActiveSheet.Range("a1")
Dcll = DateValue(cll.Value)
If Dcll < Date Then Debug.Print "ano "; Dcll Else Debug.Print "ne "; Dcll
Dcll = TimeValue(cll.Offset(1, 0).Value)
If Dcll < Time Then Debug.Print "ano "; Dcll Else Debug.Print "ne "; Dcll
End Sub

PS.: Zkonvertovane hodnoty lze ulozit take do bunek.

[atari]

Děkuji