DateTime.DateFormat = "dd.MM.YYYY"
pdPaket.Initialize(MainForm.RootPane, "Paket", 300dip, 300dip)
pdPaket.LoadFromJson(File.ReadString(File.DirAssets, "Paket.json"))
pdPaket.DateTemplate.FirstDay = 1
Private oPaket As Map
oPaket.Initialize
oPaket.Put("dOd", DateTime.Now)
oPaket.Put("dDo", DateTime.Add(DateTime.Now, 1, 0, 0))
Wait For (pdPaket.ShowDialog(oPaket, "Dodaj", "Odbaci")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Log(oPaket)
Log(DateTime.Date(oPaket.Get("dOd")))
Log(DateTime.Date(oPaket.Get("dDo")))
End If