Pozzz narode imam jednu molbu ovdje sam novi (relativno novi dugo sam reg. al nisam koristio 
) pa sam najvjerovatnije i forum profulo, a nemam ni poena da vas nagradim pa samo mogu zamoliti da mi pomognete u programiranju mog maturskog. Problem je slijedeci trebam da oduzmem 2 datuma tj. onaj koji je danas i neki drugi koji je definisan u bazi ali kod mi neradi osim kada varijablu rodjendan stavim kao neki datum evo koda pa et ako mozete pomoc hvala vam:
Private Sub Form_Load()
Dim i As Integer
Dim k As Integer
Dim rodjendan As Date
FrmRodjendan.Adodc1.Recordset.MoveFirst
i = 0
k = FrmRodjendan.Adodc1.Recordset.RecordCount
Do Until i = k
i = i + 1
rodjendan = FrmRodjendan.Adodc1.Recordset.Fields(3)
If DateDiff("d", Date, rodjendan) = 7 Then
MsgBox "prijatelju ti je rodjendan za 7 dana"
End If
FrmRodjendan.Adodc1.Recordset.MoveNext
Loop
End Sub
) pa sam najvjerovatnije i forum profulo, a nemam ni poena da vas nagradim pa samo mogu zamoliti da mi pomognete u programiranju mog maturskog. Problem je slijedeci trebam da oduzmem 2 datuma tj. onaj koji je danas i neki drugi koji je definisan u bazi ali kod mi neradi osim kada varijablu rodjendan stavim kao neki datum evo koda pa et ako mozete pomoc hvala vam:Private Sub Form_Load()
Dim i As Integer
Dim k As Integer
Dim rodjendan As Date
FrmRodjendan.Adodc1.Recordset.MoveFirst
i = 0
k = FrmRodjendan.Adodc1.Recordset.RecordCount
Do Until i = k
i = i + 1
rodjendan = FrmRodjendan.Adodc1.Recordset.Fields(3)
If DateDiff("d", Date, rodjendan) = 7 Then
MsgBox "prijatelju ti je rodjendan za 7 dana"
End If
FrmRodjendan.Adodc1.Recordset.MoveNext
Loop
End Sub