Konvertering af dato

det er jo også den dato du har i det engelske datoformat...

ellers skulle der jo have stået "2003-08-04 12:07" som er om et par dage...

/hiks

Ja men datoformatet ser ud som det gør, og det må jeg så tage højde for i en løsning.

Man kan selvfølgelig og rette i strengen og bytte om på dd-mm men jeg håbede på der var en som havde en mindre suspekt løsning.

jeg forstår vist ikke spørgsmålet helt så!

dtmEnddate skal være lig med den 4. aug eller hvad? For det kan du jo kun få det til at være hvis du ændrer i formatet eller begynder at splitte strengen du har stående nu!

Du vil jo aldrig få den messagebox op nu - for nu vil datediff returnere et negativt tal, da det jo i dag er den 1. aug og det andet er den 8. april.

/hiks

Ja det var derfor jeg skrev (yyyy-dd-mm hh:nn) altså den 4 august.

Dim dtmEnddate As String
dtmEnddate = Format("2003-04-08", "mm-dd-yyyy hh:nn") '(yyyy-dd-mm hh:nn)
If DateDiff("d", Date, dtmEnddate) > 0 Then
  MsgBox "dokumentet er udløbet."
Else
  MsgBox DateDiff("d", dtmEnddate, Date)
End If

så burde den være der... men ved ikke hvor godt det holder... :o)

/hiks

På min maskine med engelsk opsætning holder den ikke )0: problemet er det samme, man fortæller Hvilket format man ønsker at formatere til, men det afhænger af maskinopsætningen hvordan den opfatter det der skal konverteres.
Hvis man dog bare havde en optional parameter hvor man kunne angive det.

kan du så ikke lave noget midlertidigt således at du kan bruge datepart til at sammensætte det i lige dit format...

dtmEnddate = CDate("2003-04-08 12:07") '(yyyy-dd-mm hh:nn)

ukdate = DatePart("d", dtmEnddate)
ukmonth = DatePart("m", dtmEnddate)
ukyear = DatePart("yyyy", dtmEnddate)

Dim temp As String

temp = ukmonth & "-" & ukdate & "-" & ukyear

If DateDiff("d", Date, temp) > 0 Then
  MsgBox "dokumentet er udløbet."
End If

Hvis jeg skal lave en her og nu løsning er det nok best jeg strengen "2003-04-08 12:07" og laver den om til "2003-08-04 12:07" derefter kan jeg køre en cdate("2003-08-04 12:07"), Det ville virke her og nu. På ovenstående måde bliver dtmEnddate = CDate("2003-04-08 12:07") igen til en dag i april, ved engelsk opsætning.

ja men mit forslag gik jo også på at du så selv skulle bytte rundt vha. datepart så det virkede... dét det baserer sig på er vel om du kan komme til at få det i et slutformat som du kan bruge og det kan du så selv lave vha. datepart funktionen som jeg har vist dig...

du kan jo hvis det giver samme resultat nu - bytte rundt i måden hvorpå temp strengen bliver lavet så ukdate kommer før ukmonth

/hiks

Jeg tror heller ikke helt jeg forstå spørgsmålet, datoer i Visual Basic bliver da altid opgivet i amerikansk dataformat (eller hvad det datoformat så end hedder)

Så hvis du skriver: "2003-04-08 12:07" så er det den 4. april 2003 kl 12:07

Så du SKAL skrive:
dtmEndDate = "2003-08-04 12:07"
eller
dtmEndDate = 37837.50486

>> fqsupermand
8. april, ikke 4.!
;-)

hov det var en smutter :)

Ja men denne dato er gemt i et XMLdokument som ISO format, og der skal datoen læses som tidligere beskrevet.

Jeg prøver Enten at arbejde videre med hiks sidste forslag, eller formatere strengen om så måned skrives som Januar..... Derpå laver cdate datediff...