jak udělat z txt formátu datum a čas
Napsal: 05 úno 2010 19:28
od 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.
Re: jak udělat z txt formátu datum a čas Vyřešeno
Napsal: 05 úno 2010 21:53
od 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.
Re: jak udělat z txt formátu datum a čas
Napsal: 06 úno 2010 18:03
od atari
Děkuji