Avatar billede egede Nybegynder
09. april 2002 - 21:43 Der er 4 kommentarer og
2 løsninger

Opret fil og datoformatering

2 spørgsmål:
1. Hvordan opretter jeg en tom fil?

2. Jeg har et datoformat (dd/mm/åååå) og jeg skal finde ud om dd/mm har optrådt i år, hvordan gør jeg det?
Altså noget a la
If [datoformat] > [aktuel dato] Then
Men jeg skal også have datoen formateret og alt det andet...
Avatar billede sjh Nybegynder
09. april 2002 - 21:51 #1
Private Sub Form_Load()
  Open "c:\test.xxx" For Binary As #1
    Put #1, , ""
  Close #1
Me.Caption = FileDateTime("c:\test.xxx")
End Sub
Avatar billede ocp Nybegynder
10. april 2002 - 09:41 #2
Vedr. spr. 2:

dim strDate as string
strDate = "2002/04/11" 'Bemærk: År/måned/dag

if CDate(strDate) > now then
  msgbox("Dato'en er ikke passeret endnu")
end if
Avatar billede egede Nybegynder
10. april 2002 - 22:00 #3
Tak, jeg har dog kun nået at checke ocps igennem, så jeg venter lige med at give point til det hele virker...
Avatar billede egede Nybegynder
16. april 2002 - 21:31 #4
Så er det blevet testet, og det virker fint. Tak!
Jeg har liige et spørgsmpl til, hvordan opretter jeg så nye mapper?
Avatar billede sjh Nybegynder
16. april 2002 - 21:49 #5
Private Sub Form_Load()
  MkDir "C:\Test Mappe" 'Opret ny mappe
  RmDir "C:\Test Mappe" 'Slet mappe
End Sub
Avatar billede egede Nybegynder
16. april 2002 - 22:14 #6
tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester