Új hozzászólás Aktív témák

• #17843 whatnot őstag

  Új Válasz 2013-04-19 10:58:10 #17843

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  whatnot

  őstag

  Sziasztok!

  Makróban van dátum/időpont formázási problémám.
  Adott formátumban, stringként van megadva az időpont:

  nn/hh/éééé óó:pp:mm

  Ezt kéne alábbi formátumba rakni:

  éééé.hh.nn óó:pp

  Tehát pl. 25/04/2013 09:00:00 -> 2013.04.25 09:00

  A fenti példát az alábbi kódom egyszerűen meg is oldja:

  For i = 2 To LastRow
  If Cells(i, 9).NumberFormat <> "yyyy.mm.dd hh:mm" Then
  Ttime = Cells(i, 9).Value
  Cells(i, 9).Value = Format(Ttime, "yyyy.mm.dd hh:mm")
  End If
  Next

  A probléma ott kezdődik, amikor a dátumban a hónap és a nap látszólag érvényesen felcserélhető lenne. Pl. ebben az esetben:
  04/06/2013
  Ebből ugyanis ez lesz: 2013.04.06, a 2013.06.04 helyett.

  Sajnos az nem segít, hogy én előre letisztázom neki, az adott cellákban a formátum nn/hh/éééé óó:pp:mm és ebből legyen szíves átalakítani.

  Ötlet?

Új hozzászólás Aktív témák