dato lavet om til ugenummer

Her er et komplet program der finder ugenummer. Opret en form med en Calender control, og en quit knap. And you are up and running.

Private Sub Calendar1_Click()
Dim workdate As String
workdate = Str(Calendar1.Day) & \"/\" & Str(Calendar1.Month) & \"/\" & Str(Calendar1.Year)
Text1.Text = uge_nr(workdate)
End Sub

Private Sub CmdQuit_Click()
End
End Sub

Function uge_nr(workdate As String) As Integer
uge_nr = DatePart(\"ww\", workdate, vbMonday, vbFirstFourDays)
End Function

Private Sub Form_Load()
Text1.Text = uge_nr(Now)
Calendar1.Day = Day(Now)
Calendar1.Month = Month(Now)
Calendar1.Year = Year(Now)
End Sub

(hint: \"hemmeligheden\" ligger i DatePart funktionen)

Nåeh ja, jeg glemte lige at sige at programmet også kræver en text box til outputtet... men det har du nok regnet ud.

eks:
workdate = Str(12) & \"/\" & Str(2) & \"/\" & Str(2001) \' 12/2/2001
ugenr = DatePart(\"ww\", strWorkdate, vbMonday, vbFirstFourDays)

dammit, typo:

strWorkdate = Str(12) & \"/\" & Str(2) & \"/\" & Str(2001) \' 12/2/2001
ugenr = DatePart(\"ww\", strWorkdate, vbMonday, vbFirstFourDays)

(glemte \"str\" i workdate)

Hejsa

Det er nu sådan at ugedatoen ligger i en fil, og at programmet gerne skulle indlæse fra denne og bagefter ligge den ud i denne! dato formatet er som tidligere, og i stedet for dato skal den ligge ugenummeret.

jamen så skal du jo bare indlæse datoen og formattere den i datoformatet som angivet, laves som en strengvariabel. Dette propper du ind i DatePart funktionen, som returnerer ugenummeret. Dette skriver du så til en fil.
Hvis dit indput format er yyyymmdd og lægges i variablen strInput kan du lave din strDate således:

strDate= mid(strInput, 1, 4) & \"/\" & mid(strInput, 5, 2) & \"/\" & _
mid(strInput, 7, 2)

Jamen den skal bare overskrive den eksisterende dato?!

Prøv at se http://www.eksperten.dk/spm/50102
Der er en der udskifter en linie i en tekstfil - det kan måske løse dit sidste problem.