npr.....B1 = 2
..........B2 = 2012
..........B3 = 15
........D...........
1.2.2012 00:15
1.2.2012 01:15
1.2.2012 02:15
.
.
.
29.2.2012 21:15
29.2.2012 22:15
29.2.2012 23:15
Jaz sem uporabil naslednjo kodo:
Koda: Izberi vse
Private Sub CommandButton1_Click()
Dim dnevi_v_mesecu As Integer
Dim prestopno_leto As Boolean
Dim konec_na_listu As Long
intYear = Range("B2")
intMonth = Range("B1")
dnevi_v_mesecu = 0
prestopno_leto = False
konec_na_listu = Range("D65536").End(xlUp).Row
For zanka = 2 To konec_na_listu
Range("D" & zanka) = ""
Next
If intYear Mod 4 = 0 Then prestopno_leto = True
If intYear Mod 400 = 0 Then prestopno_leto = True
Select Case intMonth
Case 1, 3, 5, 7, 8, 10, 12
dnevi_v_mesecu = 31
Case 4, 6, 9, 11
dnevi_v_mesecu = 30
Case 2
If prestopno_leto = True Then
dnevi_v_mesecu = 29
Else
dnevi_v_mesecu = 28
End If
End Select
For stej_datum = 1 To dnevi_v_mesecu
For ura = 0 To 23
Range("D" & stej_datum + (24 * ura)) = DateSerial(intYear, intMonth, stej_datum) & " " & TimeSerial(ura, Range("B3"), 0)
Next
Next
End Sub
Koda: Izberi vse
Range("D" & ?????????) = DateSerial(intYear, intMonth, stej_datum) & " " & TimeSerial(ura, Range("B3"), 0)
Za rešitev se vam že v naprej zahvaljujem.
Lep pozdrav, Loris