Delphi --> VB

Nu er jeg ikke sikker på hvad "FloatToStr" betyder/gør men det ser ud som om det er noget i stil med koden her:

Function GetFileName() As String
  GetFileName = CStr(Now & ".sms")
End Function

Hvad gør din function så er det nemmer at lave det om.

Jammen du er der næsten .. Du mangler lige at fjerne kommaet ...

Jens B

jeg kan ikke se at der er komma i det.

GetFileName giver/= "01-05-02 14:55:18.sms"
der er kun "-" og ":"

det skal være mere noget i retning af det her :

Function GetFileName() As String
  Dim f As Double
  Dim i As Integer
  f = Now
  GetFileName = CStr(f)
  i = InStr(1, s, ",")
  GetFileName = Left$(GetFileName, i - 1) & Right$(GetFileName, Len(GetFileName))

End Function

Bortset fra det ikke kompilerer ...

Jens B

hvad er "s"

i = InStr(1, s, ",")

(Du kan ikke finde "," hvis det ikke er der)

nej det er jeg godt klar over ...

Jeg tager Datoen konveterer den til en Double
konveterer Doublen til en Strend. som nu indeholder 37377,65 ... og så nogle felre decimaler ... Derfra vil jeg gerne fjerne mit komma !

Jens B

Så må det være sådan du vil have det.

Function GetFileName() As String
  GetFileName = CStr(CDbl(Date) & ".sms")
End Function

Hmmn .. Ja nu nærmer vi os ..... Så mangler jeg blot det der stod EFTER kommaet ....

Altså som oprindeligt skrevet !

Jens B

Altså start med

Function GetFileName() As String
  GetFileName = CStr(CDbl(Now) & ".sms")
End Function

Og så slet kommaet ..

Har VB ikke en pendant til Delphis Delete :

procedure Delete(var S: string; Index, Count:Integer);

Description

Delete removes a substring of Count characters from string S starting with S[Index]. S is a string-type variable. Index and Count are integer-type expressions.

If Index is larger than the length of S, no characters are deleted. If Count specifies more characters than remain starting at the S[Index], Delete removes the rest of the string.

Jens B

hvad betyder/gør "FloatToStr"

FloatToStr konveterer en Floating point type til en streng

ALTSÅ

Function GetFileName() As String
  Dim s As String
  Dim i As Integer
  s = CStr(CDbl(Now) & ".sms")
  i = InStr(1, s, ",")
  s = Delete(s, i, 1);
End Function


Hvor DELETE er en Delphi komando

Jens B

Sådan.

Function GetFileName() As String
Dim s As String
Dim i As Integer
  s = CStr(CDbl(Now) & ".sms")
  i = InStr(1, s, ",")
  GetFileName = CStr(Left(s, i - 1) & Right(s, i))
End Function

tak ...

Jens B

kan man også få ALLE 10 decimaler med ? Jeg skal bruge det til en unik kronologisk nummering af filer. Så 5 decimaler er ikke nok

Jens B

den kunne også se sådan ud:

Function GetFileName() As String
Dim s As String
Dim i As Integer
  s = CStr(CDbl(Now) & ".sms")
  i = InStr(1, s, ",")
  GetFileName = CStr(Left(s, i - 1) & Right(s, Len(s) - i))
End Function

SE det var lige DET sidste jeg skulle bruge !

Jens B

Jeg var sikker på at det skulle passe med noget specelt, for ellers kunne du bare gøre det sådan:

Function GetFileName() As String
  GetFileName = Int(DateDiff("s", 0, Now))
End Function