Dato og tid

[HDSoftware]

Heisan igjen ;-)

 

Blir litt forvirret av dette Date, DateTime, DateAndTime, etc. etc.

Jeg skal ha til neo så enkelt som følgende:

 

Har en string som inneholder dato og tid på følgende format:

"YYYYMMDDHHMMSS" - 14 karakterer

 

Trenger å formatere denne om til en dato og en tid streng begge veiner. Ser for meg to funksjoner

Public function FromDateString(ByVal DatoString as String) as DateTime
'  kode som gjør om til DateTime

Public Function ToDateString(ByVal Dato as DateTime) as String
' Kode som gjør om til format "YYYYMMDDHHMMSS"

 

Noen som kan hjelpe meg her?

 

På forhånd takk

 

Ole

[aadnk]

Disse funksjonene må bli noe så som følgende:

 

Public Function FromDateString(ByVal DatoString As String) As DateTime

 

    Dim iYear As Integer, iMonth As Integer, iDay As Integer

    Dim iHour As Integer, iMinute As Integer, iSecond As Integer

 

    ' Ekstrakter de ulike elementer

    iYear = DatoString.Substring(0, 4)

    iMonth = DatoString.Substring(4, 2)

    iDay = DatoString.Substring(6, 2)

    iHour = DatoString.Substring(8, 2)

    iMinute = DatoString.Substring(10, 2)

    iSecond = DatoString.Substring(12, 2)

 

    ' Returner dato

    FromDateString = New Date(iYear, iMonth, iDay, iHour, iMinute, iSecond)

 

End Function

 

Public Function ToDateString(ByVal Dato As DateTime) As String

 

    ' Konverter de ulike deler (vær sikker på at de er av statisk størrelse)

    Return PadValue(Dato.Year, 4) & PadValue(Dato.Month, 2) & PadValue(Dato.Day, 2) & _

    PadValue(Dato.Hour, 2) & PadValue(Dato.Minute, 2) & PadValue(Dato.Second, 2)

 

End Function

 

Private Function PadValue(ByVal iNumber As Integer, ByVal iMax As Long) As String

 

    ' Legg til null om nødvendig, slik at strengen alltid vil være iMax i lengde   

    Return System.Convert.ToString(iNumber).PadLeft(iMax, "0")

 

End Function

Endret 12. oktober 2006 av aadnk

[HDSoftware]

Excellent! Tester nå.

 

 

 

Hjertelig

 

Ole